1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#include <stdarg.h>
#include "compat-common.h"
#include "fp2-struct-defs.h"
#include "fp2-struct-init.h"
#define T(TYPE) \
extern TYPE g01##TYPE, g02##TYPE, g03##TYPE, g04##TYPE; \
extern TYPE g05##TYPE, g06##TYPE, g07##TYPE, g08##TYPE; \
extern TYPE g09##TYPE, g10##TYPE, g11##TYPE, g12##TYPE; \
extern TYPE g13##TYPE, g14##TYPE, g15##TYPE, g16##TYPE; \
\
extern void check##TYPE (TYPE x, double y); \
\
void \
checkg##TYPE (void) \
{ \
check##TYPE (g01##TYPE, 1.0); \
check##TYPE (g02##TYPE, 2.0); \
check##TYPE (g03##TYPE, 3.0); \
check##TYPE (g04##TYPE, 4.0); \
check##TYPE (g05##TYPE, 5.0); \
check##TYPE (g06##TYPE, 6.0); \
check##TYPE (g07##TYPE, 7.0); \
check##TYPE (g08##TYPE, 8.0); \
check##TYPE (g09##TYPE, 9.0); \
check##TYPE (g10##TYPE, 10.0); \
check##TYPE (g11##TYPE, 11.0); \
check##TYPE (g12##TYPE, 12.0); \
check##TYPE (g13##TYPE, 13.0); \
check##TYPE (g14##TYPE, 14.0); \
check##TYPE (g15##TYPE, 15.0); \
check##TYPE (g16##TYPE, 16.0); \
} \
\
TYPE \
test0##TYPE (void) \
{ \
return g01##TYPE; \
} \
\
TYPE \
test1##TYPE (TYPE x01) \
{ \
return x01; \
} \
\
TYPE \
testva##TYPE (int n, ...) \
{ \
int i; \
TYPE rslt; \
va_list ap; \
if (1) \
{ \
va_start (ap, n); \
for (i = 0; i < n; i++) \
{ \
rslt = va_arg (ap, TYPE); \
} \
va_end (ap); \
} \
return rslt; \
}
T(Sfd)
T(Sfl)
T(Sdf)
T(Sdl)
T(Slf)
T(Sld)
T(Sfdl)
T(Sfld)
T(Sdfl)
T(Sdlf)
T(Slfd)
T(Sldf)
|
