1 #include <stdarg.h> 2 3 #include "compat-common.h" 4 5 #define T(NAME, TYPE, INITVAL) \ 6 extern TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME; \ 7 extern TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME; \ 8 extern TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME; \ 9 extern TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME; \ 10 \ 11 extern void check##NAME (TYPE x, TYPE v); \ 12 \ 13 void \ 14 init##NAME (TYPE *p, TYPE v) \ 15 { \ 16 *p = v + INITVAL; \ 17 } \ 18 \ 19 void \ 20 checkg##NAME (void) \ 21 { \ 22 check##NAME (g01##NAME, 1+INITVAL); \ 23 check##NAME (g02##NAME, 2+INITVAL); \ 24 check##NAME (g03##NAME, 3+INITVAL); \ 25 check##NAME (g04##NAME, 4+INITVAL); \ 26 check##NAME (g05##NAME, 5+INITVAL); \ 27 check##NAME (g06##NAME, 6+INITVAL); \ 28 check##NAME (g07##NAME, 7+INITVAL); \ 29 check##NAME (g08##NAME, 8+INITVAL); \ 30 check##NAME (g09##NAME, 9+INITVAL); \ 31 check##NAME (g10##NAME, 10+INITVAL); \ 32 check##NAME (g11##NAME, 11+INITVAL); \ 33 check##NAME (g12##NAME, 12+INITVAL); \ 34 check##NAME (g13##NAME, 13+INITVAL); \ 35 check##NAME (g14##NAME, 14+INITVAL); \ 36 check##NAME (g15##NAME, 15+INITVAL); \ 37 check##NAME (g16##NAME, 16+INITVAL); \ 38 } \ 39 \ 40 TYPE \ 41 test0##NAME (void) \ 42 { \ 43 return g01##NAME; \ 44 } \ 45 \ 46 TYPE \ 47 test1##NAME (TYPE x01) \ 48 { \ 49 return x01; \ 50 } \ 51 \ 52 TYPE \ 53 testva##NAME (int n, ...) \ 54 { \ 55 int i; \ 56 TYPE rslt; \ 57 va_list ap; \ 58 va_start (ap, n); \ 59 for (i = 0; i < n; i++) \ 60 rslt = va_arg (ap, TYPE); \ 61 va_end (ap); \ 62 return rslt; \ 63 } 64 65 #ifndef SKIP_COMPLEX 66 #ifndef SKIP_COMPLEX_INT 67 T(ci, _Complex int, CINT (2, 3)) 68 T(cl, _Complex long, CINT (3, 4)) 69 T(cll, _Complex long long, CINT (4, 5)) 70 #endif 71 T(cd, _Complex double, CDBL (2.0, 3.0)) 72 T(cld, _Complex long double, CDBL (3.0, 4.0)) 73 #endif 74