Return to varargs-spur.h CVS log

Up to [Research Unix] / researchv10dc / cmd / gcc

Annotation of researchv10dc/cmd/gcc/varargs-spur.h, revision 1.1.1.1

1.1       root        1: /*  varargs.h for SPUR */
                      2: 
                      3: /* NB.  This is NOT the definition needed for the new ANSI proposed
                      4:    standard */
                      5:  
                      6: 
                      7: struct va_struct { char regs[20]; };
                      8: 
                      9: #define va_alist va_regs, va_stack
                     10: 
                     11: #define va_dcl struct va_struct va_regs; int va_stack;
                     12: 
                     13: typedef int va_list;
                     14: 
                     15: #define va_start(pvar) ((pvar) = 0)
                     16: 
                     17: #define va_arg(pvar,type)  \
                     18:     ({  type va_result; \
                     19:         if ((pvar) >= 20) { \
                     20:            va_result = *( (type *) (&va_stack + ((pvar) - 20)/4)); \
                     21:           (pvar) += (sizeof(type) + 7) & ~7; \
                     22:        } \
                     23:        else if ((pvar) + sizeof(type) > 20) { \
                     24:           va_result = * (type *) &va_stack; \
                     25:           (pvar) = 20 + ( (sizeof(type) + 7) & ~7); \
                     26:        } \
                     27:        else if (sizeof(type) == 8) { \
                     28:           union {double d; int i[2];} u; \
                     29:           u.i[0] = *(int *) (va_regs.regs + (pvar)); \
                     30:           u.i[1] = *(int *) (va_regs.regs + (pvar) + 4); \
                     31:           va_result = * (type *) &u; \
                     32:           (pvar) += (sizeof(type) + 3) & ~3; \
                     33:        } \
                     34:        else { \
                     35:           va_result = * (type *) (va_regs.regs + (pvar)); \
                     36:           (pvar) += (sizeof(type) + 3) & ~3; \
                     37:        } \
                     38:        va_result; })

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