/* Define __gnuc_va_list. */

#ifndef __GNUC_VA_LIST
#define __GNUC_VA_LIST
typedef void * __gnuc_va_list;
#endif /* not __GNUC_VA_LIST */

/* If this is for internal libc use, don't define anything but
   __gnuc_va_list.  */
#if defined (_STDARG_H) || defined (_VARARGS_H)

#ifdef _STDARG_H
#define va_start(AP, LASTARG)						\
  (AP = ((__gnuc_va_list) __builtin_next_arg (LASTARG)))
#else
#define __va_ellipsis  ...
#define va_alist       __builtin_va_alist
#define va_dcl         int __builtin_va_alist; __va_ellipsis
#define va_start(AP)   AP = (char *) & __builtin_va_alist
#endif

/* Now stuff common to both varargs & stdarg implementations.  */
#define __va_rounded_size(TYPE)						\
  (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
     
#undef va_end
     
void va_end (__gnuc_va_list);

#define va_end(AP) ((void)0)

/* We need to be able to detect structures and handle them specially.  */
#define __va_aggregate_p(TYPE)	(__builtin_classify_type(*(TYPE *)0) >= 12)

#define va_arg(AP, TYPE)							\
  (__va_aggregate_p (TYPE) ?							\
     (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (char *)),	\
      ** ((TYPE **) (void *)((char *) (AP) - __va_rounded_size (char *))))	\
   : (sizeof (TYPE) % sizeof (int) == 0) ?					\
     (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),		\
      * ((TYPE *) (void *)  ((char *) (AP) - __va_rounded_size (TYPE))))	\
   : (sizeof (TYPE) < 4) ?							\
     (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),		\
      * ((TYPE *) (void *)  ((char *) (AP) - sizeof (TYPE))))			\
   :										\
     (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (char *)),	\
      ** ((TYPE **) (void *)((char *) (AP) - __va_rounded_size (char *)))))

#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
