OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20060202-1.c] - Rev 774

Go to most recent revision | Compare with Previous | Blame | View Log

typedef __SIZE_TYPE__ size_t;
typedef const struct objc_selector
{
  void *sel_id;
}
 *SEL;
typedef struct objc_object
{
}
 *id;
typedef struct objc_class *Class;
struct objc_class
{
  struct sarray *dtable;
};
typedef size_t sidx;
struct soffset
{
  unsigned int boffset:(sizeof (size_t) * 8) / 2;
  unsigned int eoffset:(sizeof (size_t) * 8) / 2;
};
union sofftype
{
  struct soffset off;
  sidx idx;
};
struct sarray
{
  size_t capacity;
};
static __inline__ unsigned int
soffset_decode (sidx indx)
{
  union sofftype x;
  x.idx = indx;
  return x.off.eoffset + (x.off.boffset * (1 << 5));
}
static __inline__ void *
sarray_get_safe (struct sarray *array, sidx indx)
{
  if (soffset_decode (indx) < array->capacity)
    return (void *)sarray_get (array, indx);
}
void *
get_imp (Class class, SEL sel)
{
  void *res = sarray_get_safe (class->dtable, (size_t) sel->sel_id);
  if (res == 0)
    {
	{
	  res = get_imp (class, sel);
	}
    }
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.