Return to va-pa.h CVS log

Up to [GCC 2.x] / gcc / ginclude

Annotation of gcc/ginclude/va-pa.h, revision 1.1

1.1     ! root        1: 
        !             2: /* Define __gnuc_va_list. */
        !             3: 
        !             4: #ifndef __GNUC_VA_LIST
        !             5: #define __GNUC_VA_LIST
        !             6: 
        !             7: typedef double *__gnuc_va_list;
        !             8: #endif /* not __GNUC_VA_LIST */
        !             9: 
        !            10: /* If this is for internal libc use, don't define anything but
        !            11:    __gnuc_va_list.  */
        !            12: #if defined (_STDARG_H) || defined (_VARARGS_H)
        !            13: #if __GNUC__ > 1
        !            14: #define __va_ellipsis ...
        !            15: #define __gnuc_va_start(AP) ((AP) = (va_list)__builtin_saveregs())
        !            16: #else
        !            17: #define va_alist __va_a__, __va_b__, __va_c__, __va_d__
        !            18: #define __va_ellipsis 
        !            19: #define __gnuc_va_start(AP)\
        !            20:   (AP) = (double *) &__va_a__, &__va_b__, &__va_c__, &__va_d__, \
        !            21:   (AP) = (double *)((char *)(AP) + 4)
        !            22: #endif /* __GNUC__ > 1 */
        !            23: 
        !            24: /* Call __builtin_next_arg even though we aren't using its value, so that
        !            25:    we can verify that LASTARG is correct.  */
        !            26: #ifdef _STDARG_H
        !            27: #define va_start(AP,LASTARG) \
        !            28:   (__builtin_next_arg (LASTARG), __gnuc_va_start (AP))
        !            29: #else
        !            30: /* The ... causes current_function_varargs to be set in cc1.  */
        !            31: #define va_dcl long va_alist; __va_ellipsis
        !            32: #define va_start(AP) __gnuc_va_start (AP)
        !            33: #endif
        !            34: 
        !            35: #define va_arg(AP,TYPE)                                                \
        !            36:   (sizeof(TYPE) > 8 ?                                          \
        !            37:    ((AP = (__gnuc_va_list) ((char *)AP - sizeof (int))),       \
        !            38:     (*((TYPE *) (void *) (*((int *) (AP))))))                  \
        !            39:    :((AP =                                                     \
        !            40:       (__gnuc_va_list) ((long)((char *)AP - sizeof (TYPE))     \
        !            41:                        & (sizeof(TYPE) > 4 ? ~0x7 : ~0x3))),   \
        !            42:      (*((TYPE *) (void *) ((char *)AP + ((8 - sizeof(TYPE)) % 4))))))
        !            43: 
        !            44: #ifndef va_end
        !            45: void va_end (__gnuc_va_list);          /* Defined in libgcc.a */
        !            46: #endif
        !            47: #define va_end(AP)
        !            48: 
        !            49: #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.