Mercurial > hg > CbC > old > device

annotate mc.h @ 778:a177c65f3e37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
large string (STRINGS) register usage fix LNOT on float
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 19 Nov 2010 04:39:47 +0900
parents 1f6e34c4dbbf
children 3ebbec5a72dc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
1 /* Micro-C header file */
d35df41eac69 Initial revision
kono
parents:
diff changeset
2
607
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
3
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
4 /************************************************************************
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
5 ** Copyright (C) 2006 Shinji Kono
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
6 ** 連絡先： 琉球大学情報工学科 河野 真治
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
7 ** （E-Mail Address: kono@ie.u-ryukyu.ac.jp）
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
8 **
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
9 ** このソースのいかなる複写，改変，修正も許諾します。ただし、
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
10 ** その際には、誰が貢献したを示すこの部分を残すこと。
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
11 ** 再配布や雑誌の付録などの問い合わせも必要ありません。
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
12 ** 営利利用も上記に反しない範囲で許可します。
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
13 ** バイナリの配布の際にはversion messageを保存することを条件とします。
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
14 ** このプログラムについては特に何の保証もしない、悪しからず。
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
15 **
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
16 ** Everyone is permitted to do anything on this program
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
17 ** including copying, modifying, improving,
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
18 ** as long as you don't try to pretend that you wrote it.
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
19 ** i.e., the above copyright notice has to appear in all copies.
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
20 ** Binary distribution requires original version messages.
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
21 ** You don't have to ask before copying, redistribution or publishing.
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
22 ** THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE.
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
23 ***********************************************************************/
e055df7c1082 *** empty log message ***
kono
parents: 602
diff changeset
24
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
25 #define FLOAT_CODE 1
237
1933266f1efa long long ia32 (imcomplete)
kono
parents: 235
diff changeset
26 #define LONGLONG_CODE 1
292
6d4231b6f9fe switch statement prepare
kono
parents: 278
diff changeset
27 #define CASE_CODE 1
316
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
28 #define ASM_CODE 1
329
4c8f8ef8c0cf bit field continue...
kono
parents: 327
diff changeset
29 #define BIT_FIELD_CODE 1
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
30
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
31 /* reserved word start */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
32
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
33 /* type ( keyword ) */
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
34
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
35 #define INT (-1)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
36 #define UNSIGNED (-2)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
37 #define CHAR (-3)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
38 #define UCHAR (-4)
162
0c604d2ff585 *** empty log message ***
kono
parents: 150
diff changeset
39 #define POINTER (-5)
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
40 #define ARRAY (-6)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
41 #define STRUCT (-7)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
42 #define UNION (-8)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
43 #define FUNCTION (-9)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
44
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
45 #define SIGNED (-10)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
46 #define LONG (-11)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
47 #define SHORT (-12)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
48 #define USHORT (-13)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
49 #define VOID (-14)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
50 #define CODE (-15)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
51 #define ENUM (-16)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
52
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
53 #define FLOAT (-17)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
54 #define DOUBLE (-18)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
55 #define LONGLONG (-19)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
56 #define ULONGLONG (-20)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
57
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
58 /* type qualifier */
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
59
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
60 #define KONST (-21)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
61 #define STATIC (-22)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
62 #define EXTRN (-23)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
63 #define EXTRN1 (-24)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
64 #define VOLATILE (-25)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
65 #define RESTRICT (-26)
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
66 #define INLINE (-27)
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
67 #define NOINLINE (-28)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
68 #define REGISTER (-29)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
69 #define FREGISTER (-30)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
70 #define DREGISTER (-31)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
71 #define LREGISTER (-32)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
72 #define POSSIBLE_VALUES (-33)
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
73
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
74 #define DOTS (-34)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
75
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
76 /* keyword */
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
77
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
78 #define GOTO (-35)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
79 #define RETURN (-36)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
80 #define BREAK (-37)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
81 #define CONTINUE (-38)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
82 #define IF (-39)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
83 #define ELSE (-40)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
84 #define FOR (-41)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
85 #define DO (-42)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
86 #define WHILE (-43)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
87 #define SWITCH (-44)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
88 #define CASE (-45)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
89 #define DEFAULT (-46)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
90 #define RESERVE (-47)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
91 #define TAG (-48)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
92 #define FIELD (-49)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
93 #define IDENT (-50)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
94 #define MACRO (-51)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
95 #define BLABEL (-52)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
96 #define FLABEL (-53)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
97 #define TYPEDEF (-54)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
98 #define SIZEOF (-55)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
99 #define TYPE (-56)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
100 #define DEFINED (-57)
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
101
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
102 #define ENVIRONMENT (-58)
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
103
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
104 #define FMACRO (-59)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
105 #define LMACRO (-60)
482
8370ba6e8557 *** empty log message ***
kono
parents: 467
diff changeset
106
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
107 #define TYPEOF (-61)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
108 #define ASM (-62)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
109
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
110 #define C_FILE (-63)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
111 #define C_FUNCTION (-64)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
112 #define C_LINE (-65)
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 526
diff changeset
113
691
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
114 #define ALIGNED (-66)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
115 #define GENERATED (-67)
25115b50d033 *** empty log message ***
kono
parents: 690
diff changeset
116 #define NORETURN (-68)
648
234bc5f79a11 alignement attribute (working)
kono
parents: 646
diff changeset
117
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
118 /* reserved word end */
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
119
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
120 #define EMPTY (-99)
103
f849af4b5ea9 *** empty log message ***
kono
parents: 101
diff changeset
121
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
122 /* mode start */
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
123 #define TOP 0
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
124 #define GDECL 1
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
125 #define GSDECL 2
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
126 #define GUDECL 3
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
127 #define ADECL 4
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
128 #define LDECL 5
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
129 #define LSDECL 6
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
130 #define LUDECL 7
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
131 #define STADECL 8
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
132 #define STAT 9
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
133 #define GTDECL 10
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
134 #define LTDECL 11
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
135 #define IFDEF 12
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
136 #define MDECL 13
176
kono
parents: 174
diff changeset
137 #define GEDECL 14
kono
parents: 174
diff changeset
138 #define LEDECL 15
362
5cf12c7a3274 local label first try
kono
parents: 358
diff changeset
139 #define LLDECL 16
5cf12c7a3274 local label first try
kono
parents: 358
diff changeset
140 #define SFDINIT 17
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
141 /* mode end */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
142
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
143 #define US 1
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
144 #define AS 10000
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
145 #define SOP 200
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
146 #define COP 400
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
147 #define DOP 600
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
148 #define FOP 800
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
149 #define LOP 1000
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
150
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
151 /* tree node tags start */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
152
316
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
153 #define LIST_ARGS(i) (i==FUNCTION||i==CODE||i==ASM)
599
df04bc5fd5fe *** empty log message ***
kono
parents: 590
diff changeset
154 #define OP(i) (i%SOP) /* tag value without attribute */
df04bc5fd5fe *** empty log message ***
kono
parents: 590
diff changeset
155 #define OP_TAG(i) (((i)/SOP)*SOP) /* attribute of tag */
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
156
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
157 /* nullary argments */
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
158
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
159 #define GVAR 1
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
160 #define RGVAR 2
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
161 #define URGVAR 3
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
162 #define LVAR 4
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
163 #define RLVAR 5
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
164 #define URLVAR 6
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
165 #define CRGVAR (COP+RGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
166 #define CURGVAR (COP+URGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
167 #define CRLVAR (COP+RLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
168 #define CURLVAR (COP+URLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
169 #define FRGVAR (FOP+RGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
170 #define FRLVAR (FOP+RLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
171 #define DRGVAR (DOP+RGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
172 #define DRLVAR (DOP+RLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
173 #define SRGVAR (SOP+RGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
174 #define SURGVAR (SOP+URGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
175 #define SRLVAR (SOP+RLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
176 #define SURLVAR (SOP+URLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
177 #define LRGVAR (LOP+RGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
178 #define LURGVAR (LOP+URGVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
179 #define LRLVAR (LOP+RLVAR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
180 #define LURLVAR (LOP+URLVAR)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
181
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
182 #define CONST 7
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
183 #define DCONST (DOP+CONST)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
184 #define FCONST (FOP+CONST)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
185 #define LCONST (LOP+CONST)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
186 #define STRING 8
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
187 #define FNAME 9
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
188 #define LCALL 10
452
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
189 #define COMMENT 11
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
190 #define DECL 12
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
191 #define COMP 13
602
429ec87e03e7 *** empty log message ***
kono
parents: 599
diff changeset
192 #define IVAR 14
429ec87e03e7 *** empty log message ***
kono
parents: 599
diff changeset
193 #define RIVAR 15
616
2ba903c8e749 builtin_fabs
kono
parents: 612
diff changeset
194 #define BUILTIN_INF 16
2ba903c8e749 builtin_fabs
kono
parents: 612
diff changeset
195 #define BUILTIN_INFF 17
2ba903c8e749 builtin_fabs
kono
parents: 612
diff changeset
196 #define BUILTIN_INFL 18
676
5e71527f9fd6 *** empty log message ***
kono
parents: 673
diff changeset
197 #define LABEL 19
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
198 #define STRINGS 20
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
199
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
200 #define NULLARY_ARGS(i) (i==RETURN||i==ENVIRONMENT||i==LCALL||i==REGISTER||i==DREGISTER||i==FREGISTER||i==LREGISTER||(GVAR<=(i%SOP)&&(i%SOP)<=LABEL))
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
201
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
202 /* unary argments */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
203
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
204 #define ADDRESS 21
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
205 #define MINUS 22
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
206 #define LNOT 23
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
207 #define BNOT 24
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
208 #define INC 25
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
209 #define PERIOD 26
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
210 #define ARROW 27
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
211 #define POSTINC 28
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
212 #define UPOSTINC 29
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
213 #define PREINC 30
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
214 #define UPREINC 31
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
215 #define POSTDEC 32
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
216 #define UPOSTDEC 33
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
217 #define PREDEC 34
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
218 #define UPREDEC 35
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
219 #define DEC 36
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
220 #define CPOSTINC (COP+POSTINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
221 #define CUPOSTINC (COP+UPOSTINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
222 #define CPREINC (COP+PREINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
223 #define CUPREINC (COP+UPREINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
224 #define CPOSTDEC (COP+POSTDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
225 #define CUPOSTDEC (COP+UPOSTDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
226 #define CPREDEC (COP+CPREDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
227 #define CUPREDEC (COP+UPREDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
228 #define SPOSTINC (SOP+POSTINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
229 #define SUPOSTINC (SOP+UPOSTINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
230 #define SPREINC (SOP+PREINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
231 #define SUPREINC (SOP+UPREINC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
232 #define SPOSTDEC (SOP+POSTDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
233 #define SUPOSTDEC (SOP+UPOSTDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
234 #define SPREDEC (SOP+PREDEC)
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
235 #define SUPREDEC (SOP+UPREDEC)
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
236 #define FPOSTINC (FOP+POSTINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
237 #define FPREINC (FOP+PREINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
238 #define DPOSTINC (DOP+POSTINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
239 #define DPREINC (DOP+PREINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
240 #define LPOSTINC (LOP+POSTINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
241 #define LPREINC (LOP+PREINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
242 #define LUPOSTINC (LOP+UPOSTINC)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
243 #define LUPREINC (LOP+UPREINC)
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
244 #define INDIRECT 37
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
245 #define RINDIRECT 38
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
246 #define URINDIRECT 39
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
247 #define CRINDIRECT (COP+RINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
248 #define CURINDIRECT (COP+URINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
249 #define SRINDIRECT (SOP+RINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
250 #define SURINDIRECT (SOP+URINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
251 #define FRINDIRECT (FOP+RINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
252 #define DRINDIRECT (DOP+RINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
253 #define LRINDIRECT (LOP+RINDIRECT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
254 #define LURINDIRECT (LOP+URINDIRECT)
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
255 #define RSTRUCT 40
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
256 #define ALLOCA 41
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
257 #define BUILTINP 42
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
258 #define BUILTIN_EXPECT 43
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
259 #define BUILTIN_FABS 44
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
260 #define BUILTIN_FABSF 45
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
261 #define BUILTIN_FABSL 46
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
262 #define ATTRIBUTE 47
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
263 #define BIT_FIELD 48
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
264 #define RBIT_FIELD 49
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
265 #define BPREINC 50
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
266 #define BPOSTINC 51
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
267 #define CAST 52
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
268 #define DECL_DATA 53
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
269 #define CONV 54
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
270
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
271 #define UNARY_ARGS(i) (ADDRESS<=(i%SOP)&&(i%SOP)<=CONV)
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
272
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
273 /* binary argments */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
274
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
275 #define MUL 55
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
276 #define UMUL 56
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
277 #define DIV 57
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
278 #define UDIV 58
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
279 #define MOD 59
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
280 #define UMOD 60
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
281 #define ADD 61
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
282 #define SUB 62
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
283 #define CMP 63
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
284 #define RSHIFT 64
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
285 #define URSHIFT 65
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
286 #define LSHIFT 66
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
287 #define ULSHIFT 67
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
288 #define GT 68
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
289 #define UGT 69
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
290 #define GE 70
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
291 #define UGE 71
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
292 #define LT 72
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
293 #define ULT 73
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
294 #define LE 74
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
295 #define ULE 75
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
296 #define EQ 76
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
297 #define NEQ 77
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
298 #define BAND 78
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
299 #define EOR 79
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
300 #define BOR 80
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
301 #define LAND 81
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
302 #define LOR 82
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
303 #define ASS 83
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
304 #define UCMP 84
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
305 #define UCMPGE 85
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
306 #define CMPGE 86
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
307 #define CMPEQ 87
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
308 #define CMPNEQ 88
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
309 #define ASSOP 89
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
310 #define UASSOP 90
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
311 #define COMMA 91
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
312
612
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
313 #define CASS (COP+ASS)
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
314 #define CASSOP (COP+ASSOP)
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
315 #define CUASSOP (COP+UASSOP)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
316
612
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
317 #define SASS (SOP+ASS)
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
318 #define SASSOP (SOP+ASSOP)
26daeeef30a0 *** empty log message ***
kono
parents: 609
diff changeset
319 #define SUASSOP (SOP+UASSOP)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
320
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
321 #define DASS (DOP+ASS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
322 #define DCMPGE (DOP+CMPGE)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
323 #define DCMPEQ (DOP+CMPEQ)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
324 #define DCMPNEQ (DOP+CMPNEQ)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
325 #define DASSOP (DOP+ASSOP)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
326 #define DCMP (DOP+CMP)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
327 #define DMINUS (DOP+MINUS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
328 #define DMUL (DOP+MUL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
329 #define DDIV (DOP+DIV)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
330 #define DADD (DOP+ADD)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
331 #define DSUB (DOP+SUB)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
332
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
333 #define FASS (FOP+ASS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
334 #define FCMPGE (FOP+CMPGE)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
335 #define FCMPEQ (FOP+CMPEQ)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
336 #define FCMPNEQ (FOP+CMPNEQ)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
337 #define FASSOP (FOP+ASSOP)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
338 #define FCMP (FOP+CMP)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
339 #define FMINUS (FOP+MINUS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
340 #define FMUL (FOP+MUL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
341 #define FDIV (FOP+DIV)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
342 #define FADD (FOP+ADD)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
343 #define FSUB (FOP+SUB)
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
344
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
345 #define LASS (LOP+CASS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
346 #define LCMPGE (LOP+CMPGE)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
347 #define LCMPEQ (LOP+CMPEQ)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
348 #define LCMPNEQ (LOP+CMPNEQ)
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
349 #define LASSOP (LOP+CASSOP)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
350 #define LUASSOP (LOP+CUASSOP)
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
351 #define LCMP (LOP+CMP)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
352 #define LMINUS (LOP+MINUS)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
353 #define LMUL (LOP+MUL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
354 #define LDIV (LOP+DIV)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
355 #define LUMUL (LOP+UMUL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
356 #define LUDIV (LOP+UDIV)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
357 #define LADD (LOP+ADD)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
358 #define LSUB (LOP+SUB)
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
359
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
360
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
361 #define LMOD (LOP+MOD)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
362 #define LUMOD (LOP+UMOD)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
363 #define LLSHIFT (LOP+LSHIFT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
364 #define LULSHIFT (LOP+ULSHIFT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
365 #define LRSHIFT (LOP+RSHIFT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
366 #define LURSHIFT (LOP+URSHIFT)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
367 #define LBAND (LOP+BAND)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
368 #define LEOR (LOP+EOR)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
369 #define LBOR (LOP+BOR)
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
370
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
371 #define BASS 92
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
372 #define BASSOP 93
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
373 #define BFD_REPL 94
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
374
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
375 #define JUMP 95
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
376 #define DECL_DATA_ARRAY 96
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
377 #define DECL_DATA_LIST 97
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
378 #define DECL_DATA_FIELD 98
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
379
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
380 #define STASS 99
326
e5d40f8c4cce bit-field continue.
kono
parents: 318
diff changeset
381
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
382
651
c9a489ac3fc7 *** empty log message ***
kono
parents: 648
diff changeset
383 #define BINARY_ARGS(i) ((MUL<=(i%SOP)&&(i%SOP)<=STASS)||i==ARRAY)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
384
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
385 /* ternary argments */
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
386
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
387 #define COND 100
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
388 #define UCOND 101
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
389 #define SCOND (SOP+COND)
490
95fcc858fd1c cond unsigned fix.
kono
parents: 482
diff changeset
390 #define SUCOND (SOP+UCOND)
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
391 #define DCOND (DOP+COND)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
392 #define FCOND (FOP+COND)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
393 #define LCOND (LOP+COND)
490
95fcc858fd1c cond unsigned fix.
kono
parents: 482
diff changeset
394 #define LUCOND (LOP+UCOND)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
395
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
396 #define TERNARY_ARGS(i) (COND==(i%SOP)||UCOND==(i%SOP))
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
397
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
398 /* not appeared as tags */
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
399
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
400 #define LPAR 102
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
401 #define RPAR 103
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
402 #define LBRA 104
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
403 #define RBRA 105
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
404 #define LC 106
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
405 #define RC 107
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
406 #define COLON 108
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
407 #define SM 109
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
408 #define CNAME 110
194
114e9d64b5cc *** empty log message ***
kono
parents: 188
diff changeset
409
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
410 #define I2C 111
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
411 #define I2S 112
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
412 #define I2I 113
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
413 #define I2U 114
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
414 #define I2D 115
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
415 #define I2F 116
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
416 #define I2LL 117
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
417 #define I2ULL 118
353
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 351
diff changeset
418
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
419 #define U2UC 119
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
420 #define U2US 120
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
421 #define U2I 121
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
422 #define U2U 122
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
423 #define U2D 123
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
424 #define U2F 124
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
425 #define U2LL 125
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
426 #define U2ULL 126
353
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 351
diff changeset
427
194
114e9d64b5cc *** empty log message ***
kono
parents: 188
diff changeset
428
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
429 #define D2I (DOP+I2I)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
430 #define D2U (DOP+I2U)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
431 #define D2D (DOP+I2D)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
432 #define D2F (DOP+I2F)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
433 #define D2LL (DOP+I2LL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
434 #define D2ULL (DOP+I2ULL)
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
435
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
436 #define F2I (FOP+I2I)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
437 #define F2U (FOP+I2U)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
438 #define F2D (FOP+I2D)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
439 #define F2F (FOP+I2F)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
440 #define F2LL (FOP+I2LL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
441 #define F2ULL (FOP+I2ULL)
194
114e9d64b5cc *** empty log message ***
kono
parents: 188
diff changeset
442
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
443 #define LL2I (LOP+I2I)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
444 #define LL2U (LOP+I2U)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
445 #define LL2D (LOP+I2D)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
446 #define LL2F (LOP+I2F)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
447 #define LL2LL (LOP+I2LL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
448 #define LL2ULL (LOP+I2ULL)
194
114e9d64b5cc *** empty log message ***
kono
parents: 188
diff changeset
449
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
450 #define ULL2I (LOP+U2I)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
451 #define ULL2U (LOP+U2U)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
452 #define ULL2D (LOP+U2D)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
453 #define ULL2F (LOP+U2F)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
454 #define ULL2LL (LOP+U2LL)
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
455 #define ULL2ULL (LOP+U2ULL)
194
114e9d64b5cc *** empty log message ***
kono
parents: 188
diff changeset
456
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
457 /* tree node tags end */
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
458
453
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
459 /* statement start */
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
460
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
461 #define ST_DECL 127
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
462 #define ST_IF 128
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
463 #define ST_DO 129
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
464 #define ST_WHILE 130
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
465 #define ST_FOR 131
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
466 #define ST_SWITCH 132
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
467 #define ST_COMP 133
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
468 #define ST_BREAK 134
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
469 #define ST_CONTINUE 135
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
470 #define ST_CASE 136
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
471 #define ST_DEFAULT 137
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
472 #define ST_RETURN 138
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
473 #define ST_GOTO 139
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
474 #define ST_ASM 140
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
475 #define ST_LABEL 141
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
476 #define ST_OP 142
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
477 #define ST_COMMENT 143
453
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
478
509
e58848f6ebc1 inline continue...
kono
parents: 500
diff changeset
479 #define IS_STATEMENT(i) (i==INLINE||(ST_DECL<=i&&i<=ST_COMMENT))
453
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
480
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 731
diff changeset
481 #define HAS_ADDRESS 144
526
9ff5cd7afe2f *** empty log message ***
kono
parents: 523
diff changeset
482
453
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
483 /* statement end */
1e5ca85d3f97 inline on going...
kono
parents: 452
diff changeset
484
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
485 /* error number start */
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
486
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
487 #define FILERR 1
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
488 #define DCERR 2
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
489 #define RDERR 3
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
490 #define STERR 4
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
491 #define EXERR 5
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
492 #define CNERR 6
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
493 #define CHERR 7
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
494 #define GSERR 8
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
495 #define LSERR 9
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
496 #define STRERR 10
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
497 #define LNERR 11
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
498 #define EOFERR 12
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
499 #define MCERR 13
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
500 #define INCERR 14
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
501 #define HPERR 15
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
502 #define TYERR 16
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
503 #define LVERR 17
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
504 #define UDERR 18
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
505 #define OPTION 19
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
506 #define REG_ERR 20
389
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
507 #define RGERR 21
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
508 #define CODE_ERR 22
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
509 #define MSERR 23
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
510 #define BTERR 24
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
511 #define HSERR 25
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
512 #define NMERR 26
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
513 #define MMERR 27
68fb244e0e3c mc-arm generates code-gen-all.s with no error,
kono
parents: 363
diff changeset
514 #define INERR 28
523
009289571b54 *** empty log message ***
kono
parents: 509
diff changeset
515 #define AGERR 29
009289571b54 *** empty log message ***
kono
parents: 509
diff changeset
516 #define ILERR 30
558
528fed826f17 const value switch statement prune.
kono
parents: 544
diff changeset
517 #define CSERR 31
572
388baa7d4bee more strict errors.
kono
parents: 566
diff changeset
518 #define GTERR 32
388baa7d4bee more strict errors.
kono
parents: 566
diff changeset
519 #define FNERR 33
388baa7d4bee more strict errors.
kono
parents: 566
diff changeset
520 #define UCERR 34
388baa7d4bee more strict errors.
kono
parents: 566
diff changeset
521 #define UFERR 35
574
aad312f61654 remove too much inmode.
kono
parents: 572
diff changeset
522 #define ENERR 36
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 651
diff changeset
523 #define RETERR 37
681
e16b34f2b386 DECL_DATA has parse tree now.
kono
parents: 680
diff changeset
524 #define UFLDERR 38
e16b34f2b386 DECL_DATA has parse tree now.
kono
parents: 680
diff changeset
525 #define SIERR 39
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
526
164
1c2a9232ea93 mc.h generation
kono
parents: 162
diff changeset
527 /* error number end */
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
528
526
9ff5cd7afe2f *** empty log message ***
kono
parents: 523
diff changeset
529 /* ctmode bit */
9ff5cd7afe2f *** empty log message ***
kono
parents: 523
diff changeset
530
461
2a49dfe59540 attribute
kono
parents: 456
diff changeset
531 #define KONST_BIT 1
2a49dfe59540 attribute
kono
parents: 456
diff changeset
532 #define VOLATILE_BIT 2
2a49dfe59540 attribute
kono
parents: 456
diff changeset
533 #define RESTRICT_BIT 4
2a49dfe59540 attribute
kono
parents: 456
diff changeset
534
25
b7a94557bf92 *** empty log message ***
kono
parents: 20
diff changeset
535 #define FILES 10
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
536 #define MAX_INCLUDE_PATH_COUNT 10
448
422415e15eb8 *** empty log message ***
kono
parents: 447
diff changeset
537 /*
422415e15eb8 *** empty log message ***
kono
parents: 447
diff changeset
538 For this comiler 8192*2 is Ok. Linux kernel requires 8192*4.
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
539 we need automatic increment of gsyms?
448
422415e15eb8 *** empty log message ***
kono
parents: 447
diff changeset
540 */
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
541 #define GSYMS (8192*32)
690
5d3b4669854c fix prindirect
kono
parents: 681
diff changeset
542 #define HEAPSIZE 150000
452
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
543 #define CHEAPSIZE (sizeof(NMTBL)*8192)
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
544 #define LBUFSIZE 4096
347
cef4d8eb9a26 name table reconfigure continue...
kono
parents: 346
diff changeset
545 #define STRSIZE 4096
254
5aaca4f9d96b *** empty log message ***
kono
parents: 250
diff changeset
546
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
547 typedef struct nametable {
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
548 char *nm;
348
e77b3a7002ad name table reconfigure compiled. debug start.
kono
parents: 347
diff changeset
549 struct nametable *next;
445
kono
parents: 435
diff changeset
550 int sc,attr;
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
551 int ty,dsp;
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
552 union {
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
553 struct nametable *nptr;
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
554 char *nm;
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
555 } u;
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
556 } NMTBL;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
557
452
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
558 extern int *heap; /* heap area (in cheap ) */
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
559 extern NMTBL *global_list; /* list of all global NMTBL */
8e3284b0a8c9 minor update
kono
parents: 451
diff changeset
560 extern NMTBL *local_static_list; /* list of local static variable */
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
561
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
562 #if FLOAT_CODE
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
563 extern int dlist2(int e1, double e2);
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
564 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
565 #if LONGLONG_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
566 extern int llist2(int e1, long long e2);
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
567 #endif
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
568 extern int list2(int e1, int e2);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
569 extern int list3(int e1, int e2, int e3);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
570 extern int list3n(int e1, int e2, NMTBL *e3);
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
571 extern int glist3n(int e1, int e2, NMTBL *e3);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
572 extern int list4(int e1, int e2, int e3,int e4);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
573 extern int list4n(int e1, int e2, int e3,NMTBL *e4);
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
574 extern int list4s(int e1, int e2, int e3,char *e4);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
575 extern int glist4n(int e1, int e2, int e3,NMTBL *e4);
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
576 extern int list5(int e1, int e2, int e3,int e4,int e5);
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
577 extern int list5n(int e1, int e2, int e3,int e4,NMTBL * e5);
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
578 extern int length(int e1);
464
d88f08d81bba inline continue....
kono
parents: 461
diff changeset
579 extern int getfree(int size);
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
580 extern int nth(int n,int e1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
581 extern int reverse0(int t1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
582 extern int append4(int p,int a1,int a2,int a3);
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
583 extern int append5(int p,int a1,int a2,int a3,int a4);
309
a86612cf1a19 struct partial initialization (local struct copy)
kono
parents: 308
diff changeset
584 extern int insert_ascend(int p,int e,int eq());
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents: 59
diff changeset
585
347
cef4d8eb9a26 name table reconfigure continue...
kono
parents: 346
diff changeset
586 extern void free_nptr(NMTBL *n);
cef4d8eb9a26 name table reconfigure continue...
kono
parents: 346
diff changeset
587 extern NMTBL *get_nptr();
346
969089695850 name reconfigure.... continue...
kono
parents: 331
diff changeset
588
716
21f770a3b298 *** empty log message ***
kono
parents: 712
diff changeset
589 #define align(x,alig) ((x+(alig-1))&~(alig-1))
21f770a3b298 *** empty log message ***
kono
parents: 712
diff changeset
590
609
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
591 // mc-tree.c
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
592
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
593 extern void print_expr(int e, FILE *vout);
af6b9ae79583 modificatioon for udpcl
kono
parents: 607
diff changeset
594
716
21f770a3b298 *** empty log message ***
kono
parents: 712
diff changeset
595
731
1f6e34c4dbbf INTEL64 (start)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 716
diff changeset
596 // #if 1
1f6e34c4dbbf INTEL64 (start)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 716
diff changeset
597 //extern int heapsize;
1f6e34c4dbbf INTEL64 (start)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 716
diff changeset
598 // #define CHECK_HEAP1(b) ({int _k=(int)(b);if(_k>heapsize||_k<=0)error(-1);_k;})
1f6e34c4dbbf INTEL64 (start)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 716
diff changeset
599 //#else
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
600 #define CHECK_HEAP(b) (b)
731
1f6e34c4dbbf INTEL64 (start)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 716
diff changeset
601 //#endif
33
8500dbb69dd9 bad macro processing. give up this method.
kono
parents: 32
diff changeset
602
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
603 #define car(e) (heap[(int)(CHECK_HEAP(e))])
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
604
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
605 #define cadr(e) (heap[((int)(CHECK_HEAP(e)))+1])
33
8500dbb69dd9 bad macro processing. give up this method.
kono
parents: 32
diff changeset
606
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
607 #define caddr(e) (heap[((int)(CHECK_HEAP(e)))+2])
33
8500dbb69dd9 bad macro processing. give up this method.
kono
parents: 32
diff changeset
608
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
609 #define cadddr(e) (heap[((int)(CHECK_HEAP(e)))+3])
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
610
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
611 #define caddddr(e) (heap[((int)(CHECK_HEAP(e)))+4])
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 448
diff changeset
612
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
613 #define ncaddr(e) (*(NMTBL**)&heap[((int)(e))+2])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
614
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
615 #define ncadddr(e) (*(NMTBL**)&heap[((int)(e))+3])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
616
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
617 #define ncaddddr(e) (*(NMTBL**)&heap[((int)(e))+4])
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
618
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
619 #define vcaddr(e) (*(void**)&heap[((int)(e))+2])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
620
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
621 #define vcadddr(e) (*(void**)&heap[((int)(e))+3])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
622
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
623 #define pcaddr(e) (*(int**)&heap[((int)(e))+2])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
624
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
625 #define pcadddr(e) (*(int**)&heap[((int)(e))+3])
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
626
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
627 #define scaddr(e) (*(char**)&heap[((int)(e))+2])
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
628 #ifdef NOTHREAD
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
629 my_spe_run_thread(t_args);
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
630 #endif
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
631 #define scadddr(e) (*(char**)&heap[((int)(e))+3])
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
632
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
633 #if FLOAT_CODE
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
634 #define dcadr(e) (*(double*)&heap[((int)(e))+1])
f94ca1168520 float first try...
kono
parents: 78
diff changeset
635 #define dcaddr(e) (*(double*)&heap[((int)(e))+2])
195
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
636 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
637
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
638 #if LONGLONG_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
639 #define lcadr(e) (*(long long*)&heap[((int)(e))+1])
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
640 #define lcaddr(e) (*(long long*)&heap[((int)(e))+2])
c193120ee2a6 *** empty log message ***
kono
parents: 194
diff changeset
641 #endif
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
642
33
8500dbb69dd9 bad macro processing. give up this method.
kono
parents: 32
diff changeset
643 /* end */