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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
/*-----------------------------------------------------------------*-C-*---
* File: handc/runtime/collectn.h
*
* Copyright (C)1997 Donovan Kolbly <d.kolbly@rscheme.org>
* as part of the RScheme project, licensed for free use.
* See <http://www.rscheme.org/> for the latest information.
*
* File version: 1.4
* File mod date: 1997.11.29 23:10:49
* System build: v0.7.2, 97.12.21
*
* Purpose: COLLECTn() macros
*------------------------------------------------------------------------*/
#define COLLECT0() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5: t = cons( REG4, t ); \
case 4: t = cons( REG3, t ); \
case 3: t = cons( REG2, t ); \
case 2: t = cons( REG1, t ); \
case 1: t = cons( REG0, t ); \
case 0: ; } REG0 = t; )
#define COLLECT1() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5: t = cons( REG4, t ); \
case 4: t = cons( REG3, t ); \
case 3: t = cons( REG2, t ); \
case 2: t = cons( REG1, t ); \
case 1: ; \
case 0: ; } REG1 = t; )
#define COLLECT2() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5: t = cons( REG4, t ); \
case 4: t = cons( REG3, t ); \
case 3: t = cons( REG2, t ); \
case 2:; case 1:; \
case 0:; } REG2 = t; )
#define COLLECT3() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5: t = cons( REG4, t ); \
case 4: t = cons( REG3, t ); \
case 3:; case 2:; case 1:; \
case 0:; } REG3 = t; )
#define COLLECT4() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5: t = cons( REG4, t ); \
case 4:; \
case 3:; case 2:; case 1:; \
case 0:; } REG4 = t; )
#define COLLECT5() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6: t = cons( REG5, t ); \
case 5:; case 4:; \
case 3:; case 2:; case 1:; \
case 0:; } REG5 = t; )
#define COLLECT6() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7: t = cons( REG6, t ); \
case 6:; case 5:; case 4:; \
case 3:; case 2:; case 1:; \
case 0:; } REG6 = t; )
#define COLLECT7() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8: t = cons( REG7, t ); \
case 7:; case 6:; case 5:; case 4:; \
case 3:; case 2:; case 1:; \
case 0:; } REG7 = t; )
#define COLLECT8() STMT( obj t = COLLECT_TOP(); \
switch (arg_count_reg) \
{ \
default: t = cons( REG9, t ); \
case 9: t = cons( REG8, t ); \
case 8:; case 7:; case 6:; case 5:; case 4:; \
case 3:; case 2:; case 1:; \
case 0:; } REG8 = t; )
#define COLLECT9() STMT( obj t = COLLECT_TOP(); \
if (arg_count_reg >= 10) \
t = cons( REG9, t ); \
REG9 = t; )
|
