/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 *
 * Copyright 2000 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/* This is just like the default gvarargs.h
   except for differences described below.  */

/* Define __gnuc_va_list.  */

#ifndef __GNUC_VA_LIST
#define __GNUC_VA_LIST

#ifdef __sparc_v9__
typedef long long __va_greg;
typedef double __va_freg;
typedef struct {
  __va_greg * __va_next_o;              /* next available %o* register */
  __va_greg * __va_next_o_limit;        /* past last available %o* register */
  __va_freg * __va_next_fp;             /* next available %f* register */
  __va_freg * __va_next_fp_limit;       /* last available %f* register */
  __va_greg * __va_next_stack;          /* next extended word on stack */
} __gnuc_va_list;
#else
#ifndef __svr4__
/* This has to be a char * to be compatible with Sun.
   i.e., we have to pass a `va_list' to vsprintf.  */
typedef char * __gnuc_va_list;
#else
/* This has to be a void * to be compatible with Sun svr4.
   i.e., we have to pass a `va_list' to vsprintf.  */
typedef void * __gnuc_va_list;
#endif
#endif /* not __sparc_v9__ */
#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  _KERNEL
/*
 * The Solaris kernel stdarg style va_start() even though it includes
 * <sys/varargs.h>.
 */
#define _STDARG_H
#undef  _VARARGS_H
#endif  /* _KERNEL */

#ifdef _STDARG_H

#ifdef __sparc_v9__
#define va_start(AP, LASTARG) \
__extension__ \
  ({ \
     AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
     AP.__va_next_o_limit = (AP.__va_next_o + \
                             (__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
     AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
     AP.__va_next_fp_limit = (AP.__va_next_fp + \
                              (__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
     AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
  })
#else
/* Call __builtin_next_arg even though we aren't using its value, so that
   we can verify that LASTARG is correct.  */
#ifdef __GCC_NEW_VARARGS__
#define va_start(AP, LASTARG) \
  (__builtin_next_arg (LASTARG), AP = (char *) __builtin_saveregs ())
#else
#define va_start(AP, LASTARG)                                   \
  (__builtin_saveregs (), AP = ((char *) __builtin_next_arg (LASTARG)))
#endif
#endif /* not __sparc_v9__ */

#else

#define va_alist  __builtin_va_alist
#define va_dcl    int __builtin_va_alist;...

#ifdef __sparc_v9__
#ifdef __sparcv9
#define va_start(AP) \
__extension__ \
  ({ \
     AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
     AP.__va_next_o_limit = (AP.__va_next_o + \
                             (__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
     AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
     AP.__va_next_fp_limit = (AP.__va_next_fp + \
                              (__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
     /* CYGNUS LOCAL dje/sparc64 */ \
     AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
       - (__builtin_args_info (0) >= 6 || __builtin_args_info (1) >= 16 ? 1 : 0); \
  })
#else   /* __sparcv9 */
#define va_start(AP) \
__extension__ \
  ({ \
     AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
     AP.__va_next_o_limit = (AP.__va_next_o + \
                             (__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
     AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
     AP.__va_next_fp_limit = (AP.__va_next_fp + \
                              (__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
     /* CYGNUS LOCAL dje/sparc64 */ \
     AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
       - (__builtin_args_info (0) >= 6 || __builtin_args_info (1) >= 16 ? 1 : 0); \
  })
#endif  /* __sparcv9 */
#else
#ifdef __GCC_NEW_VARARGS__
#define va_start(AP)            ((AP) = (char *) __builtin_saveregs ())
#else
#define va_start(AP)                                            \
 (__builtin_saveregs (), (AP) = ((char *) &__builtin_va_alist))
#endif
#endif /* not __sparc_v9__ */

#endif

#ifndef va_end
void va_end (__gnuc_va_list);           /* Defined in libgcc.a */

/* Values returned by __builtin_classify_type.  */

enum __va_type_classes {
  __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
};

#endif
#define va_end(pvar)    ((void)0)

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

/* RECORD_TYPE args passed using the C calling convention are
   passed by invisible reference.  ??? RECORD_TYPE args passed
   in the stack are made to be word-aligned; for an aggregate that is
   not word-aligned, we advance the pointer to the first non-reg slot.  */

#ifdef __sparc_v9__

#define va_arg(pvar,TYPE)                                       \
__extension__                                                   \
(*({int __type = __builtin_classify_type (* (TYPE *) 0);        \
  void * __result;                                              \
  if (__type == __real_type_class)              /* float? */    \
    {                                                           \
      __va_freg *__r;                                           \
      /* see PASS_IN_REG_P in gcc's sparc.h */                  \
      if (pvar.__va_next_fp < pvar.__va_next_fp_limit           \
          && ((__r = (__va_freg *) (((__va_greg) pvar.__va_next_fp + sizeof (TYPE) - 1) & ~(__va_greg) (sizeof (TYPE) - 1))) \
              < pvar.__va_next_fp_limit))                       \
        {                                                       \
          pvar.__va_next_fp = __r + (sizeof (TYPE) + 7) / 8;    \
        }                                                       \
      else                                                      \
        {                                                       \
          __r = (__va_freg *) pvar.__va_next_stack;             \
          pvar.__va_next_stack += (sizeof (TYPE) + 7) / 8;      \
        }                                                       \
      __result = __r;                                           \
    }                                                           \
  else if (__type < __record_type_class)        /* integer? */  \
    {                                                           \
      __va_greg *__r;                                           \
      if (pvar.__va_next_o < pvar.__va_next_o_limit)            \
        __r = pvar.__va_next_o++;                               \
      else                                                      \
        __r = pvar.__va_next_stack++;                           \
      /* adjust for 4 byte ints */                              \
      __result = (char *) __r + 8 - sizeof (TYPE);              \
    }                                                           \
  else /* aggregate object */                                   \
    {                                                           \
      void **__r;                                               \
      if (pvar.__va_next_o < pvar.__va_next_o_limit)            \
        __r = (void **) pvar.__va_next_o++;                     \
      else                                                      \
        __r = (void **) pvar.__va_next_stack++;                 \
      __result = *__r;                                          \
    }                                                           \
  (TYPE *) __result;}))

#else /* not __sparc_v9__ */

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

/* We don't declare the union member `d' to have type TYPE
   because that would lose in C++ if TYPE has a constructor.  */
/* We cast to void * and then to TYPE * because this avoids
   a warning about increasing the alignment requirement.
   The casts to char * avoid warnings about invalid pointer arithmetic.  */
#define va_arg(pvar,TYPE)                                       \
__extension__                                                   \
(*({((__builtin_classify_type (*(TYPE*) 0) >= __record_type_class \
      || (__builtin_classify_type (*(TYPE*) 0) == __real_type_class \
          && sizeof (TYPE) == 16))                              \
    ? ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE *),    \
       *(TYPE **) (void *) ((char *)(pvar) - __va_rounded_size (TYPE *))) \
    : __va_rounded_size (TYPE) == 8                             \
    ? ({ union {char __d[sizeof (TYPE)]; int __i[2];} __u;      \
         __u.__i[0] = ((int *) (void *) (pvar))[0];             \
         __u.__i[1] = ((int *) (void *) (pvar))[1];             \
         (pvar) = (char *)(pvar) + 8;                           \
         (TYPE *) (void *) __u.__d; })                          \
    : ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE),      \
       ((TYPE *) (void *) ((char *)(pvar) - __va_rounded_size (TYPE)))));}))
#endif /* not __sparc_v9__ */

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