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
|
#define FOR_EACH_SCALAR(F) \
F(sc, signed char) \
F(uc, unsigned char) \
F(ss, short) \
F(us, unsigned short) \
F(si, int) \
F(ui, unsigned int) \
F(sl, long) \
F(ul, unsigned long) \
F(sll, long long) \
F(ull, unsigned long long) \
F(f, float) \
F(d, double) \
F(ld, long double) \
F(ptr, void *)
#define EXTERN(SUFFIX, TYPE) extern TYPE x##SUFFIX;
#define STATIC(SUFFIX, TYPE) static TYPE s##SUFFIX;
#define COMMON(SUFFIX, TYPE) TYPE c##SUFFIX;
#define GETADDR(SUFFIX, TYPE) \
TYPE *get##SUFFIX (int which) \
{ \
return (which == 0 ? &c##SUFFIX \
: which == 1 ? &s##SUFFIX \
: &x##SUFFIX); \
}
#define COPY(SUFFIX, TYPE) c##SUFFIX = s##SUFFIX; s##SUFFIX = x##SUFFIX;
FOR_EACH_SCALAR (EXTERN)
FOR_EACH_SCALAR (STATIC)
FOR_EACH_SCALAR (COMMON)
FOR_EACH_SCALAR (GETADDR)
void
copy (void)
{
FOR_EACH_SCALAR (COPY);
}
extern void foo (int);
void
sibcall1 (void)
{
foo (1);
}
void
sibcall2 (void)
{
foo (csi + ssi + xsi);
}
static void
sibcall3 (void)
{
foo (1);
foo (2);
foo (3);
}
extern void bar (void (*) (void));
int
nested (int x)
{
void sub (void) { foo (x); }
bar (sub);
bar (sibcall3);
return 1;
}
|
