Return to va-hp800.h CVS log

Up to [GCC 2.x] / gcc

Annotation of gcc/va-hp800.h, revision 1.1.1.1

1.1       root        1: typedef char *va_list;
                      2: 
                      3: #if __GNUCC__ > 1
                      4: 
                      5: #ifdef _STDARG_H
                      6: #define va_start(AP,LASTARG) \
                      7:   (__builtin_saveregs(), (AP) = __builtin_next_arg ())
                      8: #else
                      9: #define va_alist  __builtin_va_alist
                     10: /* The ... causes current_function_varargs to be set in cc1.  */
                     11: #define va_dcl    int __builtin_va_alist; ...
                     12: #define va_start(AP) \
                     13:   ((AP) = (va_list *)&__builtin_va_alist + sizeof(int))
                     14: #endif /* _STDARG_H */
                     15: 
                     16: /* Handle pass by invisible reference and voids left by aligned */
                     17: /* doubles. */
                     18: 
                     19: #define __va_rounded_size(TYPE)  \
                     20:   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
                     21: 
                     22: #define va_arg(AP,TYPE) \
                     23: ((__va_rounded_size(TYPE) <= 8))                                       \
                     24:   ? ((AP) -= __va_rounded_size (TYPE), (__alignof__ (TYPE) > 4 ?       \
                     25:                                        (int)AP &= ~(0x7) : 0),         \
                     26:      *(TYPE *)(AP))                                                    \
                     27:   : ((AP) -= sizeof (TYPE *), **(TYPE **)(AP))
                     28: 
                     29: void va_end (va_list);         /* Defined in libgcc.a */
                     30: #define va_end(AP)
                     31: 
                     32: #else /* __GNUCC__ > 1 */
                     33: 
                     34: /* __builtin_saveregs () tickles a bug in the pa-risc gcc 1.39 port, */
                     35: /* so don't use it for varargs. Obviously the stdarg stuff doesn't */
                     36: /* work very well. */ 
                     37: 
                     38: #ifdef _STDARG_H
                     39: #define va_start(AP,LASTARG) \
                     40:   (__builtin_saveregs(), (AP) = __builtin_next_arg ())
                     41: 
                     42: /* gcc1 doesn't implement pass by invisible reference */ 
                     43: #define __va_rounded_size(TYPE)  \
                     44:   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
                     45: 
                     46: #define va_arg(AP,TYPE) \
                     47:   ((AP) -= __va_rounded_size (TYPE), (__alignof__ (TYPE) > 4 ? \
                     48:                                      (int)AP &= ~(0x7) : 0),   \
                     49:    *(TYPE *)(AP))
                     50: 
                     51: void va_end (va_list);         /* Defined in libgcc.a */
                     52: #define va_end(AP)
                     53: #else /* _STDARG_H */
                     54: #define va_alist __va_a__, __va_b__, __va_c__, __va_d__
                     55: #define va_dcl int __va_a__, __va_b__, __va_c__, __va_d__;
                     56: #define va_start(list) list = (char *) &__va_a__, &__va_b__, &__va_c__, \
                     57:   &__va_d__
                     58: 
                     59: # define va_arg(list,mode) *(mode *) ((int) (list = (char *) \
                     60:        (((int) list + sizeof(int /*__va_a__*/) - sizeof(mode)) & ~(sizeof(mode)-1)) \
                     61:        - sizeof(int /*__va_a__*/)) + sizeof(int /*__va_a__*/))
                     62:   
                     63: #define va_end(list)
                     64: 
                     65: #endif /* _STDARG_H */
                     66: #endif /* __GNUCC__ > 1 */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.