![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to va-ppc.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [GCC 2.x] / gcc / ginclude|
Return to va-ppc.h CVS log | Up to [GCC 2.x] / gcc / ginclude |
1.1 root 1: /* GNU C varargs support for the PowerPC with V.4 calling sequence */
2:
3: /* Define __gnuc_va_list. */
4:
5: #ifndef __GNUC_VA_LIST
6: #define __GNUC_VA_LIST
7:
8: /* Note that the names in this structure are in the user's namespace, but
9: that the V.4 abi explicitly states that these names should be used. */
10: typedef struct {
11: char gpr; /* index into the array of 8 GPRs stored in the
12: register save area gpr=0 corresponds to r3,
13: gpr=1 to r4, etc. */
14: char fpr; /* index into the array of 8 FPRs stored in the
15: register save area fpr=0 corresponds to f1,
16: fpr=1 to f2, etc. */
17: char *overflow_arg_area; /* location on stack that holds the next
18: overflow argument */
19: char *reg_save_area; /* where r3:r10 and f1:f8, if saved are stored */
20: } __gnuc_va_list[1];
21: #endif /* not __GNUC_VA_LIST */
22:
23: /* If this is for internal libc use, don't define anything but
24: __gnuc_va_list. */
25: #if defined (_STDARG_H) || defined (_VARARGS_H)
26:
27: /* Register save area located below the frame pointer */
28: typedef struct {
29: long __gp_save[8]; /* save area for GP registers */
30: double __fp_save[8]; /* save area for FP registers */
31: } __va_regsave_t;
32:
33: /* Macros to access the register save area */
34: /* We cast to void * and then to TYPE * because this avoids
35: a warning about increasing the alignment requirement. */
36: #define __VA_FP_REGSAVE(AP,TYPE) \
37: ((TYPE *) (void *) (&(((__va_regsave_t *) \
38: (AP)->reg_save_area)->__fp_save[(int)(AP)->fpr])))
39:
40: #define __VA_GP_REGSAVE(AP,TYPE) \
41: ((TYPE *) (void *) (&(((__va_regsave_t *) \
42: (AP)->reg_save_area)->__gp_save[(int)(AP)->gpr])))
43:
44: /* Common code for va_start for both varargs and stdarg. This depends
45: on the format of rs6000_args in rs6000.h. The fields used are:
46:
47: #0 WORDS # words used for GP regs/stack values
48: #1 FREGNO next available FP register
49: #2 NARGS_PROTOTYPE # args left in the current prototype
50: #3 ORIG_NARGS original value of NARGS_PROTOTYPE
51: #4 VARARGS_OFFSET offset from frame pointer of varargs area */
52:
53: #define __va_words __builtin_args_info (0)
54: #define __va_fregno __builtin_args_info (1)
55: #define __va_nargs __builtin_args_info (2)
56: #define __va_orig_nargs __builtin_args_info (3)
57: #define __va_varargs_offset __builtin_args_info (4)
58:
59: #define __va_start_common(AP, FAKE) \
60: __extension__ ({ \
61: register int __words = __va_words - FAKE; \
62: \
63: (AP)->gpr = (__words < 8) ? __words : 8; \
64: (AP)->fpr = __va_fregno - 33; \
65: (AP)->reg_save_area = (((char *) __builtin_frame_address (0)) \
66: + __va_varargs_offset); \
67: (AP)->overflow_arg_area = ((char *)__builtin_saveregs () \
68: + (((__words >= 8) ? __words - 8 : 0) \
69: * sizeof (long))); \
70: (void)0; \
71: })
72:
73: #ifdef _STDARG_H /* stdarg.h support */
74:
75: /* Calling __builtin_next_arg gives the proper error message if LASTARG is
76: not indeed the last argument. */
77: #define va_start(AP,LASTARG) \
78: (__builtin_next_arg (LASTARG), __va_start_common (AP, 0))
79:
80: #else /* varargs.h support */
81:
82: #define va_start(AP) __va_start_common (AP, 1)
83: #define va_alist __va_1st_arg
84: #define va_dcl register int va_alist; ...
85:
86: #endif /* _STDARG_H */
87:
88: #ifdef _SOFT_FLOAT
89: #define __va_float_p(TYPE) 0
90: #else
91: #define __va_float_p(TYPE) (__builtin_classify_type(*(TYPE *)0) == 8)
92: #endif
93:
94: #define __va_aggregate_p(TYPE) (__builtin_classify_type(*(TYPE *)0) >= 12)
95: #define __va_size(TYPE) ((sizeof(TYPE) + sizeof (long) - 1) / sizeof (long))
96:
97: #define va_arg(AP,TYPE) \
98: __extension__ (*({ \
99: register TYPE *__ptr; \
100: \
101: if (__va_float_p (TYPE) && (AP)->fpr < 8) \
102: { \
103: __ptr = __VA_FP_REGSAVE (AP, TYPE); \
104: (AP)->fpr++; \
105: } \
106: \
107: else if (__va_aggregate_p (TYPE) && (AP)->gpr < 8) \
108: { \
109: __ptr = * __VA_GP_REGSAVE (AP, TYPE *); \
110: (AP)->gpr++; \
111: } \
112: \
113: else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \
114: && (AP)->gpr + __va_size(TYPE) <= 8) \
115: { \
116: __ptr = __VA_GP_REGSAVE (AP, TYPE); \
117: (AP)->gpr += __va_size (TYPE); \
118: } \
119: \
120: else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \
121: && (AP)->gpr < 8) \
122: { \
123: (AP)->gpr = 8; \
124: __ptr = (TYPE *) (void *) ((AP)->overflow_arg_area); \
125: (AP)->overflow_arg_area += __va_size (TYPE) * sizeof (long); \
126: } \
127: \
128: else if (__va_aggregate_p (TYPE)) \
129: { \
130: __ptr = * (TYPE **) (void *) ((AP)->overflow_arg_area); \
131: (AP)->overflow_arg_area += sizeof (TYPE *); \
132: } \
133: else \
134: { \
135: __ptr = (TYPE *) (void *) ((AP)->overflow_arg_area); \
136: (AP)->overflow_arg_area += __va_size (TYPE) * sizeof (long); \
137: } \
138: \
139: __ptr; \
140: }))
141:
142: #define va_end(AP) ((void)0)
143:
144: #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.