Subversion Repositories openrisc

#undef F
#undef N
#undef B
#undef TX
 
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
 
#define F(n, x, v, w) 						\
  if (p->x != arg.x) FAIL (n, 74);
#define N(n, x)
#define B(n, x, v, w) 						\
  if (p->x != arg.x) FAIL (n, 74);
#define TX(n, type, attrs, fields, ops) 			\
void								\
check##n##va (int z, ...)					\
{								\
  type S##n arg, *p;						\
  va_list ap;							\
  int i;							\
								\
  if (test_va)							\
    {								\
      va_start (ap, z);						\
      for (i = 0; i < 5; ++i)					\
	{							\
	  p = NULL;						\
	  switch ((z << 4) | i)					\
	    {							\
	    case 0x10:						\
	      if (va_arg (ap, double) != 1.0)			\
		FAIL (n, 70);					\
	      break;						\
	    case 0x12:						\
	      if (va_arg (ap, long long) != 2LL)		\
		FAIL (n, 71);					\
	      break;						\
	    case 0x22:						\
	      if (va_arg (ap, long double) != 2.0L)		\
		FAIL (n, 72);					\
	      break;						\
	    case 0x11:						\
	    case 0x20:						\
	    case 0x21:						\
	    case 0x24:						\
	      p = &s##n;					\
	      arg = va_arg (ap, type S##n);			\
	      break;						\
	    case 0x13:						\
	    case 0x14:						\
	    case 0x23:						\
	      p = &a##n[2];					\
	      arg = va_arg (ap, type S##n);			\
	      break;						\
	    default:						\
	      FAIL (n, 73);					\
	      break;						\
	    }							\
	  if (p)						\
	    {							\
	      ops						\
	    }							\
	}							\
      va_end (ap);						\
    }								\
}