gcc/ginclude/va-ppc.h - gcc - Git at Google

 /* GNU C varargs support for the PowerPC with either the V.4 or Windows NT calling sequences */

 #ifndef _WIN32
 /* System V.4 support */
 /* Define __gnuc_va_list.  */

 #ifndef __GNUC_VA_LIST
 #define __GNUC_VA_LIST

 #ifndef _SYS_VA_LIST_H
 #define _SYS_VA_LIST_H		/* Solaris sys/va_list.h */

 /* Solaris decided to rename overflow_arg_area to input_arg_area,
    so handle it via a macro.  */
 #define __va_overflow(AP) (AP)->overflow_arg_area

 /* Note that the names in this structure are in the user's namespace, but
    that the V.4 abi explicitly states that these names should be used.  */
 typedef struct __va_list_tag {
   unsigned char gpr;		/* index into the array of 8 GPRs stored in the
 				   register save area gpr=0 corresponds to r3,
 				   gpr=1 to r4, etc. */
   unsigned char fpr;		/* index into the array of 8 FPRs stored in the
 				   register save area fpr=0 corresponds to f1,
 				   fpr=1 to f2, etc. */
   char *overflow_arg_area;	/* location on stack that holds the next
 				   overflow argument */
   char *reg_save_area;		/* where r3:r10 and f1:f8, if saved are stored */
 } __va_list[1], __gnuc_va_list[1];

 #else /* _SYS_VA_LIST */

 typedef __va_list __gnuc_va_list;
 #define __va_overflow(AP) (AP)->input_arg_area

 #endif /* not _SYS_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)

 /* Register save area located below the frame pointer */
 #ifndef __VA_PPC_H__
 #define __VA_PPC_H__
 typedef struct {
   long   __gp_save[8];		/* save area for GP registers */
   double __fp_save[8];		/* save area for FP registers */
 } __va_regsave_t;

 /* Macros to access the register save area */
 /* We cast to void * and then to TYPE * because this avoids
    a warning about increasing the alignment requirement.  */
 #define __VA_FP_REGSAVE(AP,OFS,TYPE)					\
   ((TYPE *) (void *) (&(((__va_regsave_t *)				\
 			 (AP)->reg_save_area)->__fp_save[OFS])))

 #define __VA_GP_REGSAVE(AP,OFS,TYPE)					\
   ((TYPE *) (void *) (&(((__va_regsave_t *)				\
 			 (AP)->reg_save_area)->__gp_save[OFS])))

 /* Common code for va_start for both varargs and stdarg.  We allow all
    the work to be done by __builtin_saveregs.  It returns a pointer to
    a va_list that was constructed on the stack; we must simply copy it
    to the user's variable.  */

 #define __va_start_common(AP, FAKE) \
   __builtin_memcpy ((AP), __builtin_saveregs (), sizeof(__gnuc_va_list))

 #ifdef _STDARG_H /* stdarg.h support */

 /* Calling __builtin_next_arg gives the proper error message if LASTARG is
    not indeed the last argument.  */
 #define va_start(AP,LASTARG) \
   (__builtin_next_arg (LASTARG), __va_start_common (AP, 0))

 #else /* varargs.h support */

 #define va_start(AP) __va_start_common (AP, 1)
 #define va_alist __va_1st_arg
 #define va_dcl register int va_alist; ...

 #endif /* _STDARG_H */

 #ifdef _SOFT_FLOAT
 #define __va_float_p(TYPE)	0
 #else
 #define __va_float_p(TYPE)	(__builtin_classify_type(*(TYPE *)0) == 8)
 #endif

 #define __va_aggregate_p(TYPE)	(__builtin_classify_type(*(TYPE *)0) >= 12)
 #define __va_size(TYPE)		((sizeof(TYPE) + sizeof (long) - 1) / sizeof (long))

 /* This symbol isn't defined.  It is used to flag type promotion violations
    at link time.  We can only do this when optimizing.  Use __builtin_trap
    instead of abort so that we don't require a prototype for abort.

    __builtin_trap stuff is not available on the gcc-2.95 branch, so we just
    avoid calling it for now.  */

 #ifdef __OPTIMIZE__
 extern void __va_arg_type_violation(void) __attribute__((__noreturn__));
 #else
 #define __va_arg_type_violation()
 #endif

 #define va_arg(AP,TYPE)							   \
 __extension__ (*({							   \
   register TYPE *__ptr;							   \
 									   \
   if (__va_float_p (TYPE) && sizeof (TYPE) < 16)			   \
     {									   \
       unsigned char __fpr = (AP)->fpr;					   \
       if (__fpr < 8)							   \
 	{								   \
 	  __ptr = __VA_FP_REGSAVE (AP, __fpr, TYPE);			   \
 	  (AP)->fpr = __fpr + 1;					   \
 	}								   \
       else if (sizeof (TYPE) == 8)					   \
 	{								   \
 	  unsigned long __addr = (unsigned long) (__va_overflow (AP));	   \
 	  __ptr = (TYPE *)((__addr + 7) & -8);				   \
 	  __va_overflow (AP) = (char *)(__ptr + 1);			   \
 	}								   \
       else								   \
 	{								   \
 	  /* float is promoted to double.  */				   \
 	  __va_arg_type_violation ();					   \
 	}								   \
     }									   \
 									   \
   /* Aggregates and long doubles are passed by reference.  */		   \
   else if (__va_aggregate_p (TYPE) || __va_float_p (TYPE))		   \
     {									   \
       unsigned char __gpr = (AP)->gpr;					   \
       if (__gpr < 8)							   \
 	{								   \
 	  __ptr = * __VA_GP_REGSAVE (AP, __gpr, TYPE *);		   \
 	  (AP)->gpr = __gpr + 1;					   \
 	}								   \
       else								   \
 	{								   \
 	  TYPE **__pptr = (TYPE **) (__va_overflow (AP));		   \
 	  __ptr = * __pptr;						   \
 	  __va_overflow (AP) = (char *) (__pptr + 1);			   \
 	}								   \
     }									   \
 									   \
   /* Only integrals remaining.  */					   \
   else									   \
     {									   \
       /* longlong is aligned.  */					   \
       if (sizeof (TYPE) == 8)						   \
 	{								   \
 	  unsigned char __gpr = (AP)->gpr;				   \
 	  if (__gpr < 7)						   \
 	    {								   \
 	      __gpr += __gpr & 1;					   \
 	      __ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE);		   \
 	      (AP)->gpr = __gpr + 2;					   \
 	    }								   \
 	  else								   \
 	    {								   \
 	      unsigned long __addr = (unsigned long) (__va_overflow (AP)); \
 	      __ptr = (TYPE *)((__addr + 7) & -8);			   \
 	      (AP)->gpr = 8;						   \
 	      __va_overflow (AP) = (char *)(__ptr + 1);			   \
 	    }								   \
 	}								   \
       else if (sizeof (TYPE) == 4)					   \
 	{								   \
 	  unsigned char __gpr = (AP)->gpr;				   \
 	  if (__gpr < 8)						   \
 	    {								   \
 	      __ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE);		   \
 	      (AP)->gpr = __gpr + 1;					   \
 	    }								   \
 	  else								   \
 	    {								   \
 	      __ptr = (TYPE *) __va_overflow (AP);			   \
 	      __va_overflow (AP) = (char *)(__ptr + 1);			   \
 	    }								   \
 	}								   \
       else								   \
 	{								   \
 	  /* Everything else was promoted to int.  */			   \
 	  __va_arg_type_violation ();					   \
 	}								   \
     }									   \
   __ptr;								   \
 }))

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

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

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


 #else
 /* Windows NT */
 /* Define __gnuc_va_list.  */

 #ifndef __GNUC_VA_LIST
 #define __GNUC_VA_LIST
 typedef char *__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_start_common(AP, LASTARG, FAKE)				\
   ((__builtin_saveregs ()), ((AP) = ((char *) &LASTARG) + __va_rounded_size (AP)), 0)

 #ifdef _STDARG_H /* stdarg.h support */

 /* Calling __builtin_next_arg gives the proper error message if LASTARG is
    not indeed the last argument.  */
 #define va_start(AP,LASTARG)						\
   (__builtin_saveregs (),						\
    (AP) = __builtin_next_arg (LASTARG),					\
    0)

 #else /* varargs.h support */

 #define va_start(AP)							\
   (__builtin_saveregs (),						\
    (AP) = __builtin_next_arg (__va_1st_arg) - sizeof (int),		\
    0)

 #define va_alist __va_1st_arg
 #define va_dcl register int __va_1st_arg; ...

 #endif /* _STDARG_H */

 #define __va_rounded_size(TYPE) ((sizeof (TYPE) + 3) & ~3)
 #define __va_align(AP, TYPE)						\
      ((((unsigned long)(AP)) + ((sizeof (TYPE) >= 8) ? 7 : 3))		\
       & ~((sizeof (TYPE) >= 8) ? 7 : 3))

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

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

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

 #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
 #endif /* Windows NT */
	/* GNU C varargs support for the PowerPC with either the V.4 or Windows NT calling sequences */

	#ifndef _WIN32
	/* System V.4 support */
	/* Define __gnuc_va_list. */

	#ifndef __GNUC_VA_LIST
	#define __GNUC_VA_LIST

	#ifndef _SYS_VA_LIST_H
	#define _SYS_VA_LIST_H /* Solaris sys/va_list.h */

	/* Solaris decided to rename overflow_arg_area to input_arg_area,
	so handle it via a macro. */
	#define __va_overflow(AP) (AP)->overflow_arg_area

	/* Note that the names in this structure are in the user's namespace, but
	that the V.4 abi explicitly states that these names should be used. */
	typedef struct __va_list_tag {
	unsigned char gpr; /* index into the array of 8 GPRs stored in the
	register save area gpr=0 corresponds to r3,
	gpr=1 to r4, etc. */
	unsigned char fpr; /* index into the array of 8 FPRs stored in the
	register save area fpr=0 corresponds to f1,
	fpr=1 to f2, etc. */
	char overflow_arg_area; / location on stack that holds the next
	overflow argument */
	char reg_save_area; / where r3:r10 and f1:f8, if saved are stored */
	} __va_list[1], __gnuc_va_list[1];

	#else /* _SYS_VA_LIST */

	typedef __va_list __gnuc_va_list;
	#define __va_overflow(AP) (AP)->input_arg_area

	#endif /* not _SYS_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)

	/* Register save area located below the frame pointer */
	#ifndef __VA_PPC_H__
	#define __VA_PPC_H__
	typedef struct {
	long __gp_save[8]; /* save area for GP registers */
	double __fp_save[8]; /* save area for FP registers */
	} __va_regsave_t;

	/* Macros to access the register save area */
	/* We cast to void * and then to TYPE * because this avoids
	a warning about increasing the alignment requirement. */
	#define __VA_FP_REGSAVE(AP,OFS,TYPE) \
	((TYPE ) (void ) (&(((__va_regsave_t *) \
	(AP)->reg_save_area)->__fp_save[OFS])))

	#define __VA_GP_REGSAVE(AP,OFS,TYPE) \
	((TYPE ) (void ) (&(((__va_regsave_t *) \
	(AP)->reg_save_area)->__gp_save[OFS])))

	/* Common code for va_start for both varargs and stdarg. We allow all
	the work to be done by __builtin_saveregs. It returns a pointer to
	a va_list that was constructed on the stack; we must simply copy it
	to the user's variable. */

	#define __va_start_common(AP, FAKE) \
	__builtin_memcpy ((AP), __builtin_saveregs (), sizeof(__gnuc_va_list))

	#ifdef _STDARG_H /* stdarg.h support */

	/* Calling __builtin_next_arg gives the proper error message if LASTARG is
	not indeed the last argument. */
	#define va_start(AP,LASTARG) \
	(__builtin_next_arg (LASTARG), __va_start_common (AP, 0))

	#else /* varargs.h support */

	#define va_start(AP) __va_start_common (AP, 1)
	#define va_alist __va_1st_arg
	#define va_dcl register int va_alist; ...

	#endif /* _STDARG_H */

	#ifdef _SOFT_FLOAT
	#define __va_float_p(TYPE) 0
	#else
	#define __va_float_p(TYPE) (__builtin_classify_type((TYPE )0) == 8)
	#endif

	#define __va_aggregate_p(TYPE) (__builtin_classify_type((TYPE )0) >= 12)
	#define __va_size(TYPE) ((sizeof(TYPE) + sizeof (long) - 1) / sizeof (long))

	/* This symbol isn't defined. It is used to flag type promotion violations
	at link time. We can only do this when optimizing. Use __builtin_trap
	instead of abort so that we don't require a prototype for abort.

	__builtin_trap stuff is not available on the gcc-2.95 branch, so we just
	avoid calling it for now. */

	#ifdef __OPTIMIZE__
	extern void __va_arg_type_violation(void) __attribute__((__noreturn__));
	#else
	#define __va_arg_type_violation()
	#endif

	#define va_arg(AP,TYPE) \
	__extension__ (*({ \
	register TYPE *__ptr; \
	\
	if (__va_float_p (TYPE) && sizeof (TYPE) < 16) \
	{ \
	unsigned char __fpr = (AP)->fpr; \
	if (__fpr < 8) \
	{ \
	__ptr = __VA_FP_REGSAVE (AP, __fpr, TYPE); \
	(AP)->fpr = __fpr + 1; \
	} \
	else if (sizeof (TYPE) == 8) \
	{ \
	unsigned long __addr = (unsigned long) (__va_overflow (AP)); \
	__ptr = (TYPE *)((__addr + 7) & -8); \
	__va_overflow (AP) = (char *)(__ptr + 1); \
	} \
	else \
	{ \
	/* float is promoted to double. */ \
	__va_arg_type_violation (); \
	} \
	} \
	\
	/* Aggregates and long doubles are passed by reference. */ \
	else if (__va_aggregate_p (TYPE) \|\| __va_float_p (TYPE)) \
	{ \
	unsigned char __gpr = (AP)->gpr; \
	if (__gpr < 8) \
	{ \
	__ptr = * __VA_GP_REGSAVE (AP, __gpr, TYPE *); \
	(AP)->gpr = __gpr + 1; \
	} \
	else \
	{ \
	TYPE __pptr = (TYPE ) (__va_overflow (AP)); \
	__ptr = * __pptr; \
	__va_overflow (AP) = (char *) (__pptr + 1); \
	} \
	} \
	\
	/* Only integrals remaining. */ \
	else \
	{ \
	/* longlong is aligned. */ \
	if (sizeof (TYPE) == 8) \
	{ \
	unsigned char __gpr = (AP)->gpr; \
	if (__gpr < 7) \
	{ \
	__gpr += __gpr & 1; \
	__ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE); \
	(AP)->gpr = __gpr + 2; \
	} \
	else \
	{ \
	unsigned long __addr = (unsigned long) (__va_overflow (AP)); \
	__ptr = (TYPE *)((__addr + 7) & -8); \
	(AP)->gpr = 8; \
	__va_overflow (AP) = (char *)(__ptr + 1); \
	} \
	} \
	else if (sizeof (TYPE) == 4) \
	{ \
	unsigned char __gpr = (AP)->gpr; \
	if (__gpr < 8) \
	{ \
	__ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE); \
	(AP)->gpr = __gpr + 1; \
	} \
	else \
	{ \
	__ptr = (TYPE *) __va_overflow (AP); \
	__va_overflow (AP) = (char *)(__ptr + 1); \
	} \
	} \
	else \
	{ \
	/* Everything else was promoted to int. */ \
	__va_arg_type_violation (); \
	} \
	} \
	__ptr; \
	}))

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

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

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


	#else
	/* Windows NT */
	/* Define __gnuc_va_list. */

	#ifndef __GNUC_VA_LIST
	#define __GNUC_VA_LIST
	typedef char *__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_start_common(AP, LASTARG, FAKE) \
	((__builtin_saveregs ()), ((AP) = ((char *) &LASTARG) + __va_rounded_size (AP)), 0)

	#ifdef _STDARG_H /* stdarg.h support */

	/* Calling __builtin_next_arg gives the proper error message if LASTARG is
	not indeed the last argument. */
	#define va_start(AP,LASTARG) \
	(__builtin_saveregs (), \
	(AP) = __builtin_next_arg (LASTARG), \
	0)

	#else /* varargs.h support */

	#define va_start(AP) \
	(__builtin_saveregs (), \
	(AP) = __builtin_next_arg (__va_1st_arg) - sizeof (int), \
	0)

	#define va_alist __va_1st_arg
	#define va_dcl register int __va_1st_arg; ...

	#endif /* _STDARG_H */

	#define __va_rounded_size(TYPE) ((sizeof (TYPE) + 3) & ~3)
	#define __va_align(AP, TYPE) \
	((((unsigned long)(AP)) + ((sizeof (TYPE) >= 8) ? 7 : 3)) \
	& ~((sizeof (TYPE) >= 8) ? 7 : 3))

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

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

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

	#endif /* defined (_STDARG_H) \|\| defined (_VARARGS_H) */
	#endif /* Windows NT */