NetBSD/sys/arch/sh3/include/va-sh.h

/* $NetBSD: va-sh.h,v 1.2 1999/09/16 12:48:06 msaitoh Exp $ */

/* 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 __SH3E__

typedef long __va_greg;
typedef double __va_freg;

typedef struct {
	__va_greg *__va_next_o;		/* next available register */
	__va_greg *__va_next_o_limit;	/* past last available register */
	__va_freg *__va_next_fp;	/* next available fp register */
	__va_freg *__va_next_fp_limit;	/* last available fp register */
	__va_greg *__va_next_stack;	/* next extended word on stack */
}       __gnuc_va_list;
#else /* !SH3E */

typedef void *__gnuc_va_list;

#endif /* !SH3E */

#endif /* __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

#ifdef __SH3E__

#define va_start(AP, LASTARG) \
__extension__ \
  ({ \
     AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
     AP.__va_next_fp_limit = (AP.__va_next_fp + \
			      (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
     AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
     AP.__va_next_o_limit = (AP.__va_next_o + \
			     (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
     AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
  })

#else /* ! SH3E */

#define va_start(AP, LASTARG) 						\
 (AP = ((__gnuc_va_list) __builtin_next_arg (LASTARG)))

#endif /* ! SH3E */

#else /* _VARARGS_H */

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

#ifdef __SH3E__

#define va_start(AP) \
__extension__ \
  ({ \
     AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
     AP.__va_next_fp_limit = (AP.__va_next_fp + \
			      (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
     AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
     AP.__va_next_o_limit = (AP.__va_next_o + \
			     (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
     AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
       - (__builtin_args_info (0) >= 4 || __builtin_args_info (1) >= 8 ? 1 : 0); \
  })

#else /* ! SH3E */

#define va_start(AP)  AP=(char *) &__builtin_va_alist

#endif /* ! SH3E */

#endif /* _STDARG */

#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)

#ifndef BYTE_ORDER
#error Define BYTE_ORDER!
#endif

#if BYTE_ORDER == LITTLE_ENDIAN
#define __LITTLE_ENDIAN_P 1
#else
#define __LITTLE_ENDIAN_P 0
#endif

#define __SCALAR_TYPE(TYPE)					\
  ((TYPE) == __integer_type_class				\
   || (TYPE) == __char_type_class				\
   || (TYPE) == __enumeral_type_class)

/* 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.
 */

 /* When this is a smaller-than-int integer, using auto-increment in the
  * promoted (SImode) is fastest; however, there is no way to express that is
  * C.  Therefore, we use an asm. We want the MEM_IN_STRUCT_P bit set in the
  * emitted RTL, therefore we use unions even when it would otherwise be
  * unnecessary.
  */

#define __va_arg_sh1(AP, TYPE) __extension__ 				\
__extension__								\
({(sizeof (TYPE) == 1							\
   ? ({union {TYPE t; char c;} __t;					\
       __asm(""								\
	   : "=r" (__t.c)						\
	   : "0" ((((union { int i, j; } *) (AP))++)->i));		\
       __t.t;})								\
   : sizeof (TYPE) == 2							\
   ? ({union {TYPE t; short s;} __t;					\
       __asm(""								\
	   : "=r" (__t.s)						\
	   : "0" ((((union { int i, j; } *) (AP))++)->i));		\
       __t.t;})								\
   : sizeof (TYPE) >= 4 || __LITTLE_ENDIAN_P				\
   ? (((union { TYPE t; int i;} *) (AP))++)->t				\
   : ((union {TYPE t;TYPE u;}*) ((char *)++(int *)(AP) - sizeof (TYPE)))->t);})

#ifdef __SH3E__

#define __PASS_AS_FLOAT(TYPE_CLASS, SIZE) \
  (TYPE_CLASS == __real_type_class && SIZE == 4)

#define va_arg(pvar, TYPE)					\
__extension__							\
({int __type = __builtin_classify_type (* (TYPE *) 0);		\
  void * __result_p;						\
  if (__PASS_AS_FLOAT (__type, sizeof(TYPE)))			\
    {								\
      if (pvar.__va_next_fp < pvar.__va_next_fp_limit)		\
	{							\
	  __result_p = &pvar.__va_next_fp;			\
	}							\
      else							\
	__result_p = &pvar.__va_next_stack;			\
    }								\
  else								\
    {								\
      if (pvar.__va_next_o + ((sizeof (TYPE) + 3) / 4)		\
	  <= pvar.__va_next_o_limit) 				\
	__result_p = &pvar.__va_next_o;				\
      else							\
	{							\
	  if (sizeof (TYPE) > 4)				\
	    pvar.__va_next_o = pvar.__va_next_o_limit;		\
								\
	  __result_p = &pvar.__va_next_stack;			\
	}							\
    } 								\
  __va_arg_sh1(*(void **)__result_p, TYPE);})

#else /* ! SH3E */

#define va_arg(AP, TYPE) __va_arg_sh1((AP), TYPE)

#endif /* SH3E */

/* Copy __gnuc_va_list into another variable of this type.  */
#define __va_copy(dest, src) (dest) = (src)

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