#ifndef _STDARG_H
#define _STDARG_H

#if !defined(__HIGHC__) && !defined(__GNUC__) || !defined(__STDC__)
#error stdarg not supported except for High C and GNU C in ANSI C mode
#endif

#ifdef __GNUC__

typedef char *va_list;

/* Amount of space required in an argument list for an arg of type TYPE.
   TYPE may alternatively be an expression whose type is used.  */

#define __va_rounded_size(TYPE)  \
  (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))

#define va_start(AP, LASTARG) 						\
 (AP = ((char *) &(LASTARG) + __va_rounded_size (LASTARG)))

#define va_end(AP)

#define va_arg(AP, TYPE)						\
 (AP += __va_rounded_size (TYPE),					\
  *((TYPE *) (AP - __va_rounded_size (TYPE))))

#else	/* High C */

typedef int *va_list;
#define	va_start(ap, arg)	ap = ((int *)&arg) + ((sizeof(arg) + 3) / 4)
#define	va_end(ap)
#define	va_arg(ap, type)	((type *)(ap += (sizeof(type)+3)/4))[-1]

#endif

#endif /* _STDARG_H */