/* GNU C varargs and stdargs support for the DEC Alpha.  */

/* Note:  We must use the name __builtin_savregs.  GCC attaches special
   significance to that name.  In particular, regardless of where in a
   function __builtin_saveregs is called, GCC moves the call up to the
   very start of the function.  */

/* Define __gnuc_va_list.  */

#ifndef __GNUC_VA_LIST
#define __GNUC_VA_LIST

typedef struct {
  long __va_arg;		/* Current argument number. */
  long *__va_stack;		/* Start of arguments on stack */
  long *__va_iregs;		/* Integer parameter registers ($16-$21) */
  long *__va_fregs;		/* FP parameter registers ($f16-$f21) */
} __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)

#define va_list __gnuc_va_list
#define _VA_LIST
#define _VA_LIST_

#if !defined(_STDARG_H)

/* varargs support */
#define va_alist __builtin_va_alist
#define va_dcl
#define va_start(pvar) ((pvar) = * (__gnuc_va_list *) __builtin_saveregs ())

#else /* STDARG.H */

/* ANSI alternative.  */

#define va_start(pvar, firstarg)  \
  ((pvar) = *(__gnuc_va_list *) __builtin_saveregs ())

#endif /* _STDARG_H */

#define va_end(__va)

/* Values returned by __builtin_classify_type.  */

enum {
  __no_type_class = -1,
  __void_type_class,
  __integer_type_class,
  __char_type_class,
  __enumeral_type_class,
  __boolean_type_class,
  __pointer_type_class,
  __reference_type_class,
  __offset_type_class,
  __real_type_class,
  __complex_type_class,
  __function_type_class,
  __method_type_class,
  __record_type_class,
  __union_type_class,
  __array_type_class,
  __string_type_class,
  __set_type_class,
  __file_type_class,
  __lang_type_class
};

/* Note that parameters are always aligned at least to a word boundary
   (when passed) regardless of what GCC's __alignof__ operator says.  */

/* Avoid errors if compiling GCC v2 with GCC v1.  */
#if __GNUC__ == 1
#define __extension__
#endif

/* Get the rounded number of words of a type.  */

#define __va_nwords(__type)  \
  ((sizeof (__type) + sizeof (long) - 1) / sizeof (long))

#define va_arg(__va, __type)						\
__extension__								\
(* (__type *)								\
 ({									\
  register void *__rv;  /* result value */				\
  switch (__builtin_classify_type (* (__type *) 0))			\
    {			        					\
    case __real_type_class:						\
									\
      /* Get a pointer to the value.  If we want a float instead of	\
	 a double, we have to make one and point to it instead.  */     \
									\
      __rv = (void *) & ((__va).__va_arg < 6				\
			 ? (__va).__va_fregs[(__va).__va_arg]		\
			 : (__va).__va_stack[(__va).__va_arg - 6]);	\
									\
      if (sizeof (__type) == sizeof (float))				\
	{								\
	  float __rf = * ((double *) __rv);				\
									\
	  __rv = (void *) &__rf;					\
	}								\
									\
      break;								\
	      								\
    case __void_type_class:						\
    case __integer_type_class:						\
    case __char_type_class:						\
    case __enumeral_type_class:						\
    case __boolean_type_class:						\
    case __pointer_type_class:						\
    case __reference_type_class:					\
    case __offset_type_class:						\
    case __record_type_class:						\
    case __union_type_class:						\
									\
      /* Force this on the stack if it's alignment isn't right.  */	\
									\
      if ((__va).__va_arg < 6)						\
	switch (sizeof (__type))					\
	  {								\
	  case sizeof (char):						\
	    break;							\
	  case sizeof (short):						\
	    if (__alignof__ (__type) < sizeof (short))			\
	      (__va).__va_arg = 6;					\
	    break;							\
	  case 3:							\
	  case sizeof (int):						\
	    if (__alignof__ (__type) < sizeof (int))			\
	      (__va).__va_arg = 6;					\
	    break;							\
	  default:							\
	    if (__alignof__ (__type) < sizeof (long))			\
	      (__va).__va_arg = 6;					\
	    break;							\
	  }								\
									\
      /* If this object is only one word long, just get it.  If it is   \
	 longer, we need to worry about the possibility that it is	\
	 passed both in registers and in memory.  */			\
									\
      if (sizeof (__type) <= sizeof (long)				\
	  || (__va).__va_arg >= 6					\
	  || (__va).__va_arg + __va_nwords (__type) < 6)		\
	__rv = (void *) & ((__va).__va_arg < 6				\
			   ? (__va).__va_iregs[(__va).__va_arg]		\
			   : (__va).__va_stack[(__va).__va_arg - 6]);	\
      else								\
	{								\
	  long __obj[__va_nwords (__type)];				\
	  int __i;							\
									\
	  for (__i = 0; __i < __va_nwords (__type); __i++)		\
	    __obj[__i] = ((__va).__va_arg < 6				\
			  ? (__va).__va_iregs[(__va).__va_arg]		\
			  : (__va).__va_stack[(__va).__va_arg - 6]);	\
									\
	  __rv = (void *) &__obj[0];					\
	}								\
      break;								\
									\
    case __complex_type_class:						\
    case __function_type_class:						\
    case __method_type_class:						\
    case __array_type_class:						\
    case __string_type_class:						\
    case __set_type_class:						\
    case __file_type_class:						\
    case __lang_type_class:						\
    case __no_type_class:						\
    default:								\
	abort ();							\
    }									\
									\
  (__va).__va_arg += __va_nwords (__type);				\
									\
  __rv;									\
}))

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