]>
Commit | Line | Data |
---|---|---|
d23b8f57 RK |
1 | /**************************************************************************** |
2 | * * | |
3 | * GNAT COMPILER COMPONENTS * | |
4 | * * | |
5 | * A T R E E * | |
6 | * * | |
7 | * C Header File * | |
8 | * * | |
1d005acc | 9 | * Copyright (C) 1992-2019, Free Software Foundation, Inc. * |
d23b8f57 RK |
10 | * * |
11 | * GNAT is free software; you can redistribute it and/or modify it under * | |
12 | * terms of the GNU General Public License as published by the Free Soft- * | |
d70c0bd6 | 13 | * ware Foundation; either version 3, or (at your option) any later ver- * |
d23b8f57 RK |
14 | * sion. GNAT is distributed in the hope that it will be useful, but WITH- * |
15 | * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * | |
16 | * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * | |
b5c84c3c RD |
17 | * for more details. You should have received a copy of the GNU General * |
18 | * Public License distributed with GNAT; see file COPYING3. If not, go to * | |
19 | * http://www.gnu.org/licenses for a complete copy of the license. * | |
d23b8f57 RK |
20 | * * |
21 | * GNAT was originally developed by the GNAT team at New York University. * | |
71ff80dc | 22 | * Extensive contributions were provided by Ada Core Technologies Inc. * |
d23b8f57 RK |
23 | * * |
24 | ****************************************************************************/ | |
25 | ||
c7732bbe EB |
26 | /* This is the C header that corresponds to the Ada package specification for |
27 | Atree. It also contains the implementation of inlined functions from the | |
28 | package body for Atree. It was created manually from atree.ads and | |
d23b8f57 RK |
29 | atree.adb and must be kept synchronized with changes in these files. |
30 | ||
31 | Note that only routines for reading the tree are included, since the tree | |
9e9bd455 LG |
32 | transformer is not supposed to modify the tree in any way. */ |
33 | ||
34 | #ifdef __cplusplus | |
35 | extern "C" { | |
36 | #endif | |
d23b8f57 RK |
37 | |
38 | /* Structure used for the first part of the node in the case where we have | |
39 | an Nkind. */ | |
40 | ||
41 | struct NFK | |
42 | { | |
313d6f2c AC |
43 | Boolean is_extension : 1; |
44 | Boolean pflag1 : 1; | |
45 | Boolean pflag2 : 1; | |
46 | Boolean in_list : 1; | |
c159409f | 47 | Boolean has_aspects : 1; |
313d6f2c AC |
48 | Boolean rewrite_ins : 1; |
49 | Boolean analyzed : 1; | |
50 | Boolean c_f_s : 1; | |
d23b8f57 | 51 | Boolean error_posted : 1; |
313d6f2c | 52 | |
d23b8f57 RK |
53 | Boolean flag4 : 1; |
54 | Boolean flag5 : 1; | |
55 | Boolean flag6 : 1; | |
56 | Boolean flag7 : 1; | |
57 | Boolean flag8 : 1; | |
58 | Boolean flag9 : 1; | |
59 | Boolean flag10 : 1; | |
60 | ||
61 | Boolean flag11 : 1; | |
62 | Boolean flag12 : 1; | |
63 | Boolean flag13 : 1; | |
64 | Boolean flag14 : 1; | |
65 | Boolean flag15 : 1; | |
66 | Boolean flag16 : 1; | |
67 | Boolean flag17 : 1; | |
68 | Boolean flag18 : 1; | |
69 | ||
70 | unsigned char kind; | |
71 | }; | |
72 | ||
73 | /* Structure for the first part of a node when Nkind is not present by | |
74 | extra flag bits are. */ | |
75 | ||
76 | struct NFNK | |
77 | { | |
313d6f2c AC |
78 | Boolean is_extension : 1; |
79 | Boolean pflag1 : 1; | |
80 | Boolean pflag2 : 1; | |
81 | Boolean in_list : 1; | |
c159409f | 82 | Boolean has_aspects : 1; |
313d6f2c AC |
83 | Boolean rewrite_ins : 1; |
84 | Boolean analyzed : 1; | |
85 | Boolean c_f_s : 1; | |
d23b8f57 | 86 | Boolean error_posted : 1; |
313d6f2c | 87 | |
d23b8f57 RK |
88 | Boolean flag4 : 1; |
89 | Boolean flag5 : 1; | |
90 | Boolean flag6 : 1; | |
91 | Boolean flag7 : 1; | |
92 | Boolean flag8 : 1; | |
93 | Boolean flag9 : 1; | |
94 | Boolean flag10 : 1; | |
95 | ||
96 | Boolean flag11 : 1; | |
97 | Boolean flag12 : 1; | |
98 | Boolean flag13 : 1; | |
99 | Boolean flag14 : 1; | |
100 | Boolean flag15 : 1; | |
101 | Boolean flag16 : 1; | |
102 | Boolean flag17 : 1; | |
103 | Boolean flag18 : 1; | |
104 | ||
07fc65c4 GB |
105 | Boolean flag65 : 1; |
106 | Boolean flag66 : 1; | |
107 | Boolean flag67 : 1; | |
108 | Boolean flag68 : 1; | |
109 | Boolean flag69 : 1; | |
110 | Boolean flag70 : 1; | |
111 | Boolean flag71 : 1; | |
112 | Boolean flag72 : 1; | |
d23b8f57 RK |
113 | }; |
114 | ||
115 | /* Structure used for extra flags in third component overlaying Field12 */ | |
116 | struct Flag_Word | |
117 | { | |
118 | Boolean flag73 : 1; | |
119 | Boolean flag74 : 1; | |
120 | Boolean flag75 : 1; | |
121 | Boolean flag76 : 1; | |
122 | Boolean flag77 : 1; | |
123 | Boolean flag78 : 1; | |
124 | Boolean flag79 : 1; | |
125 | Boolean flag80 : 1; | |
126 | Boolean flag81 : 1; | |
127 | Boolean flag82 : 1; | |
128 | Boolean flag83 : 1; | |
129 | Boolean flag84 : 1; | |
130 | Boolean flag85 : 1; | |
131 | Boolean flag86 : 1; | |
132 | Boolean flag87 : 1; | |
133 | Boolean flag88 : 1; | |
134 | Boolean flag89 : 1; | |
135 | Boolean flag90 : 1; | |
136 | Boolean flag91 : 1; | |
137 | Boolean flag92 : 1; | |
138 | Boolean flag93 : 1; | |
139 | Boolean flag94 : 1; | |
140 | Boolean flag95 : 1; | |
141 | Boolean flag96 : 1; | |
ddf2e109 | 142 | Byte convention : 8; |
d23b8f57 RK |
143 | }; |
144 | ||
145 | /* Structure used for extra flags in fourth component overlaying Field12 */ | |
146 | struct Flag_Word2 | |
147 | { | |
148 | Boolean flag97 : 1; | |
149 | Boolean flag98 : 1; | |
150 | Boolean flag99 : 1; | |
151 | Boolean flag100 : 1; | |
152 | Boolean flag101 : 1; | |
153 | Boolean flag102 : 1; | |
154 | Boolean flag103 : 1; | |
155 | Boolean flag104 : 1; | |
156 | Boolean flag105 : 1; | |
157 | Boolean flag106 : 1; | |
158 | Boolean flag107 : 1; | |
159 | Boolean flag108 : 1; | |
160 | Boolean flag109 : 1; | |
161 | Boolean flag110 : 1; | |
162 | Boolean flag111 : 1; | |
163 | Boolean flag112 : 1; | |
164 | Boolean flag113 : 1; | |
165 | Boolean flag114 : 1; | |
166 | Boolean flag115 : 1; | |
167 | Boolean flag116 : 1; | |
168 | Boolean flag117 : 1; | |
169 | Boolean flag118 : 1; | |
170 | Boolean flag119 : 1; | |
171 | Boolean flag120 : 1; | |
172 | Boolean flag121 : 1; | |
173 | Boolean flag122 : 1; | |
174 | Boolean flag123 : 1; | |
175 | Boolean flag124 : 1; | |
176 | Boolean flag125 : 1; | |
177 | Boolean flag126 : 1; | |
178 | Boolean flag127 : 1; | |
179 | Boolean flag128 : 1; | |
180 | }; | |
181 | ||
182 | /* Structure used for extra flags in fourth component overlaying Field11 */ | |
183 | struct Flag_Word3 | |
184 | { | |
185 | Boolean flag152 : 1; | |
186 | Boolean flag153 : 1; | |
187 | Boolean flag154 : 1; | |
188 | Boolean flag155 : 1; | |
189 | Boolean flag156 : 1; | |
190 | Boolean flag157 : 1; | |
191 | Boolean flag158 : 1; | |
192 | Boolean flag159 : 1; | |
193 | ||
194 | Boolean flag160 : 1; | |
195 | Boolean flag161 : 1; | |
196 | Boolean flag162 : 1; | |
197 | Boolean flag163 : 1; | |
198 | Boolean flag164 : 1; | |
199 | Boolean flag165 : 1; | |
200 | Boolean flag166 : 1; | |
201 | Boolean flag167 : 1; | |
202 | ||
203 | Boolean flag168 : 1; | |
204 | Boolean flag169 : 1; | |
205 | Boolean flag170 : 1; | |
206 | Boolean flag171 : 1; | |
207 | Boolean flag172 : 1; | |
208 | Boolean flag173 : 1; | |
209 | Boolean flag174 : 1; | |
210 | Boolean flag175 : 1; | |
211 | ||
212 | Boolean flag176 : 1; | |
213 | Boolean flag177 : 1; | |
214 | Boolean flag178 : 1; | |
215 | Boolean flag179 : 1; | |
216 | Boolean flag180 : 1; | |
217 | Boolean flag181 : 1; | |
218 | Boolean flag182 : 1; | |
219 | Boolean flag183 : 1; | |
220 | }; | |
221 | ||
e0ae93e2 | 222 | /* Structure used for extra flags in fifth component overlaying Field12 */ |
82c80734 RD |
223 | struct Flag_Word4 |
224 | { | |
225 | Boolean flag184 : 1; | |
226 | Boolean flag185 : 1; | |
227 | Boolean flag186 : 1; | |
228 | Boolean flag187 : 1; | |
229 | Boolean flag188 : 1; | |
230 | Boolean flag189 : 1; | |
231 | Boolean flag190 : 1; | |
232 | Boolean flag191 : 1; | |
233 | ||
234 | Boolean flag192 : 1; | |
235 | Boolean flag193 : 1; | |
236 | Boolean flag194 : 1; | |
237 | Boolean flag195 : 1; | |
238 | Boolean flag196 : 1; | |
239 | Boolean flag197 : 1; | |
240 | Boolean flag198 : 1; | |
241 | Boolean flag199 : 1; | |
242 | ||
243 | Boolean flag200 : 1; | |
244 | Boolean flag201 : 1; | |
245 | Boolean flag202 : 1; | |
246 | Boolean flag203 : 1; | |
247 | Boolean flag204 : 1; | |
248 | Boolean flag205 : 1; | |
249 | Boolean flag206 : 1; | |
250 | Boolean flag207 : 1; | |
251 | ||
252 | Boolean flag208 : 1; | |
253 | Boolean flag209 : 1; | |
254 | Boolean flag210 : 1; | |
255 | Boolean flag211 : 1; | |
256 | Boolean flag212 : 1; | |
257 | Boolean flag213 : 1; | |
258 | Boolean flag214 : 1; | |
259 | Boolean flag215 : 1; | |
260 | }; | |
261 | ||
fc142f63 AC |
262 | /* Structure used for extra flags in sixth component overlaying Field12 */ |
263 | struct Flag_Word5 | |
264 | { | |
265 | Boolean flag255 : 1; | |
266 | Boolean flag256 : 1; | |
267 | Boolean flag257 : 1; | |
268 | Boolean flag258 : 1; | |
269 | Boolean flag259 : 1; | |
270 | Boolean flag260 : 1; | |
271 | Boolean flag261 : 1; | |
272 | Boolean flag262 : 1; | |
273 | ||
274 | Boolean flag263 : 1; | |
275 | Boolean flag264 : 1; | |
276 | Boolean flag265 : 1; | |
277 | Boolean flag266 : 1; | |
278 | Boolean flag267 : 1; | |
279 | Boolean flag268 : 1; | |
280 | Boolean flag269 : 1; | |
281 | Boolean flag270 : 1; | |
282 | ||
283 | Boolean flag271 : 1; | |
284 | Boolean flag272 : 1; | |
285 | Boolean flag273 : 1; | |
286 | Boolean flag274 : 1; | |
287 | Boolean flag275 : 1; | |
288 | Boolean flag276 : 1; | |
289 | Boolean flag277 : 1; | |
290 | Boolean flag278 : 1; | |
291 | ||
292 | Boolean flag279 : 1; | |
293 | Boolean flag280 : 1; | |
294 | Boolean flag281 : 1; | |
295 | Boolean flag282 : 1; | |
296 | Boolean flag283 : 1; | |
297 | Boolean flag284 : 1; | |
298 | Boolean flag285 : 1; | |
299 | Boolean flag286 : 1; | |
300 | }; | |
d23b8f57 RK |
301 | struct Non_Extended |
302 | { | |
303 | Source_Ptr sloc; | |
304 | Int link; | |
305 | Int field1; | |
306 | Int field2; | |
307 | Int field3; | |
308 | Int field4; | |
309 | Int field5; | |
310 | }; | |
311 | ||
312 | /* The Following structure corresponds to variant with is_extension = True. */ | |
313 | struct Extended | |
314 | { | |
315 | Int field6; | |
316 | Int field7; | |
317 | Int field8; | |
318 | Int field9; | |
319 | Int field10; | |
b0f26df5 | 320 | union |
d23b8f57 RK |
321 | { |
322 | Int field11; | |
82c80734 | 323 | struct Flag_Word3 fw3; |
d23b8f57 RK |
324 | } X; |
325 | ||
326 | union | |
327 | { | |
328 | Int field12; | |
82c80734 RD |
329 | struct Flag_Word fw; |
330 | struct Flag_Word2 fw2; | |
e0ae93e2 | 331 | struct Flag_Word4 fw4; |
fc142f63 | 332 | struct Flag_Word5 fw5; |
d23b8f57 RK |
333 | } U; |
334 | }; | |
335 | ||
336 | /* A tree node itself. */ | |
337 | ||
338 | struct Node | |
339 | { | |
340 | union kind | |
341 | { | |
342 | struct NFK K; | |
343 | struct NFNK NK; | |
344 | } U; | |
345 | ||
346 | union variant | |
347 | { | |
348 | struct Non_Extended NX; | |
349 | struct Extended EX; | |
350 | } V; | |
351 | }; | |
352 | ||
353 | /* The actual tree is an array of nodes. The pointer to this array is passed | |
354 | as a parameter to the tree transformer procedure and stored in the global | |
355 | variable Nodes_Ptr after adjusting it by subtracting Node_First_Entry, so | |
356 | that Node_Id values can be used as subscripts. */ | |
357 | extern struct Node *Nodes_Ptr; | |
358 | ||
d23b8f57 | 359 | #define Parent atree__parent |
b4e2d709 | 360 | extern Node_Id Parent (Node_Id); |
d23b8f57 | 361 | |
d9049849 AC |
362 | #define Original_Node atree__original_node |
363 | extern Node_Id Original_Node (Node_Id); | |
364 | ||
4bcf6815 AC |
365 | /* The auxiliary flags array which is allocated in parallel to Nodes */ |
366 | ||
367 | struct Flags | |
368 | { | |
369 | Boolean Flag0 : 1; | |
370 | Boolean Flag1 : 1; | |
371 | Boolean Flag2 : 1; | |
372 | Boolean Flag3 : 1; | |
373 | Boolean Spare0 : 1; | |
374 | Boolean Spare1 : 1; | |
375 | Boolean Spare2 : 1; | |
376 | Boolean Spare3 : 1; | |
377 | }; | |
378 | extern struct Flags *Flags_Ptr; | |
379 | ||
d23b8f57 RK |
380 | /* Overloaded Functions: |
381 | ||
382 | These functions are overloaded in the original Ada source, but there is | |
383 | only one corresponding C function, which works as described below. */ | |
384 | ||
385 | /* Type used for union of Node_Id, List_Id, Elist_Id. */ | |
386 | typedef Int Tree_Id; | |
387 | ||
388 | /* These two functions can only be used for Node_Id and List_Id values and | |
389 | they work in the C version because Empty = No_List = 0. */ | |
390 | ||
b4e2d709 NN |
391 | static Boolean No (Tree_Id); |
392 | static Boolean Present (Tree_Id); | |
d23b8f57 RK |
393 | |
394 | INLINE Boolean | |
b4e2d709 | 395 | No (Tree_Id N) |
d23b8f57 RK |
396 | { |
397 | return N == Empty; | |
398 | } | |
399 | ||
400 | INLINE Boolean | |
b4e2d709 | 401 | Present (Tree_Id N) |
d23b8f57 RK |
402 | { |
403 | return N != Empty; | |
404 | } | |
405 | ||
b4e2d709 | 406 | extern Node_Id Parent (Tree_Id); |
d23b8f57 RK |
407 | |
408 | #define Current_Error_Node atree__current_error_node | |
409 | extern Node_Id Current_Error_Node; | |
410 | ||
411 | /* Node Access Functions: */ | |
412 | ||
07fc65c4 GB |
413 | #define Nkind(N) ((Node_Kind) (Nodes_Ptr[(N) - First_Node_Id].U.K.kind)) |
414 | #define Ekind(N) ((Entity_Kind) (Nodes_Ptr[N + 1].U.K.kind)) | |
415 | #define Sloc(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.sloc) | |
416 | #define Paren_Count(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.pflag1 \ | |
417 | + 2 * Nodes_Ptr[(N) - First_Node_Id].U.K.pflag2) | |
418 | ||
419 | #define Field1(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.field1) | |
420 | #define Field2(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.field2) | |
421 | #define Field3(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.field3) | |
422 | #define Field4(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.field4) | |
423 | #define Field5(N) (Nodes_Ptr[(N) - First_Node_Id].V.NX.field5) | |
424 | #define Field6(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.field6) | |
425 | #define Field7(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.field7) | |
426 | #define Field8(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.field8) | |
427 | #define Field9(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.field9) | |
428 | #define Field10(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.field10) | |
429 | #define Field11(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.X.field11) | |
430 | #define Field12(N) (Nodes_Ptr[(N) - First_Node_Id + 1].V.EX.U.field12) | |
431 | #define Field13(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.field6) | |
432 | #define Field14(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.field7) | |
433 | #define Field15(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.field8) | |
434 | #define Field16(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.field9) | |
435 | #define Field17(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.field10) | |
436 | #define Field18(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.X.field11) | |
437 | #define Field19(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field6) | |
438 | #define Field20(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field7) | |
439 | #define Field21(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field8) | |
440 | #define Field22(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field9) | |
441 | #define Field23(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field10) | |
82c80734 RD |
442 | #define Field24(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field6) |
443 | #define Field25(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field7) | |
444 | #define Field26(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field8) | |
a9d8907c | 445 | #define Field27(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field9) |
bfc8aa81 | 446 | #define Field28(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field10) |
e606088a | 447 | #define Field29(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.field11) |
fc142f63 AC |
448 | #define Field30(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field6) |
449 | #define Field31(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field7) | |
450 | #define Field32(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field8) | |
451 | #define Field33(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field9) | |
452 | #define Field34(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field10) | |
453 | #define Field35(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.X.field11) | |
57d08392 AC |
454 | #define Field36(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field6) |
455 | #define Field37(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field7) | |
456 | #define Field38(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field8) | |
457 | #define Field39(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field9) | |
fd4dd9c9 | 458 | #define Field40(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field10) |
57d08392 | 459 | #define Field41(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.X.field11) |
d23b8f57 RK |
460 | |
461 | #define Node1(N) Field1 (N) | |
462 | #define Node2(N) Field2 (N) | |
463 | #define Node3(N) Field3 (N) | |
464 | #define Node4(N) Field4 (N) | |
465 | #define Node5(N) Field5 (N) | |
466 | #define Node6(N) Field6 (N) | |
467 | #define Node7(N) Field7 (N) | |
468 | #define Node8(N) Field8 (N) | |
469 | #define Node9(N) Field9 (N) | |
470 | #define Node10(N) Field10 (N) | |
471 | #define Node11(N) Field11 (N) | |
472 | #define Node12(N) Field12 (N) | |
473 | #define Node13(N) Field13 (N) | |
474 | #define Node14(N) Field14 (N) | |
475 | #define Node15(N) Field15 (N) | |
476 | #define Node16(N) Field16 (N) | |
477 | #define Node17(N) Field17 (N) | |
478 | #define Node18(N) Field18 (N) | |
479 | #define Node19(N) Field19 (N) | |
480 | #define Node20(N) Field20 (N) | |
481 | #define Node21(N) Field21 (N) | |
482 | #define Node22(N) Field22 (N) | |
483 | #define Node23(N) Field23 (N) | |
82c80734 RD |
484 | #define Node24(N) Field24 (N) |
485 | #define Node25(N) Field25 (N) | |
486 | #define Node26(N) Field26 (N) | |
487 | #define Node27(N) Field27 (N) | |
bfc8aa81 | 488 | #define Node28(N) Field28 (N) |
e0ae93e2 | 489 | #define Node29(N) Field29 (N) |
477cfc5b | 490 | #define Node30(N) Field30 (N) |
fc142f63 AC |
491 | #define Node31(N) Field31 (N) |
492 | #define Node32(N) Field32 (N) | |
493 | #define Node33(N) Field33 (N) | |
494 | #define Node34(N) Field34 (N) | |
495 | #define Node35(N) Field35 (N) | |
496 | #define Node36(N) Field36 (N) | |
57d08392 AC |
497 | #define Node37(N) Field37 (N) |
498 | #define Node38(N) Field38 (N) | |
499 | #define Node39(N) Field39 (N) | |
500 | #define Node40(N) Field40 (N) | |
501 | #define Node41(N) Field41 (N) | |
d23b8f57 RK |
502 | |
503 | #define List1(N) Field1 (N) | |
504 | #define List2(N) Field2 (N) | |
505 | #define List3(N) Field3 (N) | |
506 | #define List4(N) Field4 (N) | |
507 | #define List5(N) Field5 (N) | |
508 | #define List10(N) Field10 (N) | |
509 | #define List14(N) Field14 (N) | |
86200f66 | 510 | #define List25(N) Field25 (N) |
635ffc52 AC |
511 | #define List38(N) Field38 (N) |
512 | #define List39(N) Field39 (N) | |
d23b8f57 | 513 | |
4cd52f5e | 514 | #define Elist1(N) Field1 (N) |
d23b8f57 RK |
515 | #define Elist2(N) Field2 (N) |
516 | #define Elist3(N) Field3 (N) | |
517 | #define Elist4(N) Field4 (N) | |
29efbb8c | 518 | #define Elist5(N) Field5 (N) |
d23b8f57 | 519 | #define Elist8(N) Field8 (N) |
d7af5ea5 | 520 | #define Elist9(N) Field9 (N) |
46202729 | 521 | #define Elist10(N) Field10 (N) |
fdc54be6 | 522 | #define Elist11(N) Field11 (N) |
d23b8f57 RK |
523 | #define Elist13(N) Field13 (N) |
524 | #define Elist15(N) Field15 (N) | |
a9d8907c | 525 | #define Elist16(N) Field16 (N) |
d23b8f57 RK |
526 | #define Elist18(N) Field18 (N) |
527 | #define Elist21(N) Field21 (N) | |
528 | #define Elist23(N) Field23 (N) | |
df3e68b1 | 529 | #define Elist24(N) Field24 (N) |
bfc8aa81 | 530 | #define Elist25(N) Field25 (N) |
f17889b3 | 531 | #define Elist26(N) Field26 (N) |
3ddfabe3 | 532 | #define Elist29(N) Field29 (N) |
651822ae | 533 | #define Elist30(N) Field30 (N) |
75b87c16 | 534 | #define Elist36(N) Field36 (N) |
d23b8f57 RK |
535 | |
536 | #define Name1(N) Field1 (N) | |
537 | #define Name2(N) Field2 (N) | |
538 | ||
539 | #define Char_Code2(N) (Field2 (N) - Char_Code_Bias) | |
540 | ||
541 | #define Str3(N) Field3 (N) | |
542 | ||
82c80734 | 543 | #define Uint2(N) ((Field2 (N) == 0) ? Uint_0 : Field2 (N)) |
07fc65c4 GB |
544 | #define Uint3(N) ((Field3 (N) == 0) ? Uint_0 : Field3 (N)) |
545 | #define Uint4(N) ((Field4 (N) == 0) ? Uint_0 : Field4 (N)) | |
546 | #define Uint5(N) ((Field5 (N) == 0) ? Uint_0 : Field5 (N)) | |
547 | #define Uint8(N) ((Field8 (N) == 0) ? Uint_0 : Field8 (N)) | |
548 | #define Uint9(N) ((Field9 (N) == 0) ? Uint_0 : Field9 (N)) | |
549 | #define Uint10(N) ((Field10 (N) == 0) ? Uint_0 : Field10 (N)) | |
550 | #define Uint11(N) ((Field11 (N) == 0) ? Uint_0 : Field11 (N)) | |
551 | #define Uint12(N) ((Field12 (N) == 0) ? Uint_0 : Field12 (N)) | |
552 | #define Uint13(N) ((Field13 (N) == 0) ? Uint_0 : Field13 (N)) | |
553 | #define Uint14(N) ((Field14 (N) == 0) ? Uint_0 : Field14 (N)) | |
554 | #define Uint15(N) ((Field15 (N) == 0) ? Uint_0 : Field15 (N)) | |
555 | #define Uint16(N) ((Field16 (N) == 0) ? Uint_0 : Field16 (N)) | |
556 | #define Uint17(N) ((Field17 (N) == 0) ? Uint_0 : Field17 (N)) | |
557 | #define Uint22(N) ((Field22 (N) == 0) ? Uint_0 : Field22 (N)) | |
3830827c | 558 | #define Uint24(N) ((Field24 (N) == 0) ? Uint_0 : Field24 (N)) |
d23b8f57 RK |
559 | |
560 | #define Ureal3(N) Field3 (N) | |
561 | #define Ureal18(N) Field18 (N) | |
562 | #define Ureal21(N) Field21 (N) | |
563 | ||
07fc65c4 GB |
564 | #define Analyzed(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.analyzed) |
565 | #define Comes_From_Source(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.c_f_s) | |
566 | #define Error_Posted(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.error_posted) | |
c159409f | 567 | #define Has_Aspects(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.has_aspects) |
07fc65c4 GB |
568 | #define Convention(N) \ |
569 | (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.convention) | |
570 | ||
4bcf6815 AC |
571 | #define Flag0(N) (Flags_Ptr[(N) - First_Node_Id].Flag0) |
572 | #define Flag1(N) (Flags_Ptr[(N) - First_Node_Id].Flag1) | |
573 | #define Flag2(N) (Flags_Ptr[(N) - First_Node_Id].Flag2) | |
574 | #define Flag3(N) (Flags_Ptr[(N) - First_Node_Id].Flag3) | |
575 | ||
07fc65c4 GB |
576 | #define Flag4(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag4) |
577 | #define Flag5(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag5) | |
578 | #define Flag6(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag6) | |
579 | #define Flag7(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag7) | |
580 | #define Flag8(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag8) | |
581 | #define Flag9(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag9) | |
582 | #define Flag10(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag10) | |
583 | #define Flag11(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag11) | |
584 | #define Flag12(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag12) | |
585 | #define Flag13(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag13) | |
586 | #define Flag14(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag14) | |
587 | #define Flag15(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag15) | |
588 | #define Flag16(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag16) | |
589 | #define Flag17(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag17) | |
590 | #define Flag18(N) (Nodes_Ptr[(N) - First_Node_Id].U.K.flag18) | |
591 | ||
592 | #define Flag19(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.in_list) | |
c159409f | 593 | #define Flag20(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.has_aspects) |
07fc65c4 GB |
594 | #define Flag21(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.rewrite_ins) |
595 | #define Flag22(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.analyzed) | |
596 | #define Flag23(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.c_f_s) | |
597 | #define Flag24(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.error_posted) | |
598 | #define Flag25(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag4) | |
599 | #define Flag26(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag5) | |
600 | #define Flag27(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag6) | |
601 | #define Flag28(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag7) | |
602 | #define Flag29(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag8) | |
603 | #define Flag30(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag9) | |
604 | #define Flag31(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag10) | |
605 | #define Flag32(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag11) | |
606 | #define Flag33(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag12) | |
607 | #define Flag34(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag13) | |
608 | #define Flag35(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag14) | |
609 | #define Flag36(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag15) | |
610 | #define Flag37(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag16) | |
611 | #define Flag38(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag17) | |
612 | #define Flag39(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.flag18) | |
613 | ||
614 | #define Flag40(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.in_list) | |
c159409f | 615 | #define Flag41(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.has_aspects) |
07fc65c4 GB |
616 | #define Flag42(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.rewrite_ins) |
617 | #define Flag43(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.analyzed) | |
618 | #define Flag44(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.c_f_s) | |
619 | #define Flag45(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.error_posted) | |
620 | #define Flag46(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag4) | |
621 | #define Flag47(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag5) | |
622 | #define Flag48(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag6) | |
623 | #define Flag49(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag7) | |
624 | #define Flag50(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag8) | |
625 | #define Flag51(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag9) | |
626 | #define Flag52(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag10) | |
627 | #define Flag53(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag11) | |
628 | #define Flag54(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag12) | |
629 | #define Flag55(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag13) | |
630 | #define Flag56(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag14) | |
631 | #define Flag57(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag15) | |
632 | #define Flag58(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag16) | |
633 | #define Flag59(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag17) | |
634 | #define Flag60(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.flag18) | |
635 | #define Flag61(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.pflag1) | |
636 | #define Flag62(N) (Nodes_Ptr[(N) - First_Node_Id + 1].U.K.pflag2) | |
637 | #define Flag63(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.pflag1) | |
638 | #define Flag64(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.K.pflag2) | |
639 | ||
640 | #define Flag65(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag65) | |
641 | #define Flag66(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag66) | |
642 | #define Flag67(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag67) | |
643 | #define Flag68(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag68) | |
644 | #define Flag69(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag69) | |
645 | #define Flag70(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag70) | |
646 | #define Flag71(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag71) | |
647 | #define Flag72(N) (Nodes_Ptr[(N) - First_Node_Id + 2].U.NK.flag72) | |
648 | ||
649 | #define Flag73(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag73) | |
650 | #define Flag74(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag74) | |
651 | #define Flag75(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag75) | |
652 | #define Flag76(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag76) | |
653 | #define Flag77(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag77) | |
654 | #define Flag78(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag78) | |
655 | #define Flag79(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag79) | |
656 | #define Flag80(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag80) | |
657 | #define Flag81(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag81) | |
658 | #define Flag82(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag82) | |
659 | #define Flag83(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag83) | |
660 | #define Flag84(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag84) | |
661 | #define Flag85(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag85) | |
662 | #define Flag86(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag86) | |
663 | #define Flag87(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag87) | |
664 | #define Flag88(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag88) | |
665 | #define Flag89(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag89) | |
666 | #define Flag90(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag90) | |
667 | #define Flag91(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag91) | |
668 | #define Flag92(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag92) | |
669 | #define Flag93(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag93) | |
670 | #define Flag94(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag94) | |
671 | #define Flag95(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag95) | |
672 | #define Flag96(N) (Nodes_Ptr[(N) - First_Node_Id + 2].V.EX.U.fw.flag96) | |
673 | #define Flag97(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag97) | |
674 | #define Flag98(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag98) | |
675 | #define Flag99(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag99) | |
676 | #define Flag100(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag100) | |
677 | #define Flag101(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag101) | |
678 | #define Flag102(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag102) | |
679 | #define Flag103(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag103) | |
680 | #define Flag104(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag104) | |
681 | #define Flag105(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag105) | |
682 | #define Flag106(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag106) | |
683 | #define Flag107(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag107) | |
684 | #define Flag108(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag108) | |
685 | #define Flag109(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag109) | |
686 | #define Flag110(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag110) | |
687 | #define Flag111(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag111) | |
688 | #define Flag112(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag112) | |
689 | #define Flag113(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag113) | |
690 | #define Flag114(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag114) | |
691 | #define Flag115(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag115) | |
692 | #define Flag116(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag116) | |
693 | #define Flag117(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag117) | |
694 | #define Flag118(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag118) | |
695 | #define Flag119(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag119) | |
696 | #define Flag120(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag120) | |
697 | #define Flag121(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag121) | |
698 | #define Flag122(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag122) | |
699 | #define Flag123(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag123) | |
700 | #define Flag124(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag124) | |
701 | #define Flag125(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag125) | |
702 | #define Flag126(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag126) | |
703 | #define Flag127(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag127) | |
704 | #define Flag128(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.U.fw2.flag128) | |
705 | ||
706 | #define Flag129(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.in_list) | |
c159409f | 707 | #define Flag130(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.has_aspects) |
07fc65c4 GB |
708 | #define Flag131(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.rewrite_ins) |
709 | #define Flag132(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.analyzed) | |
710 | #define Flag133(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.c_f_s) | |
711 | #define Flag134(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.error_posted) | |
712 | #define Flag135(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag4) | |
713 | #define Flag136(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag5) | |
714 | #define Flag137(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag6) | |
715 | #define Flag138(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag7) | |
716 | #define Flag139(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag8) | |
717 | #define Flag140(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag9) | |
718 | #define Flag141(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag10) | |
719 | #define Flag142(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag11) | |
720 | #define Flag143(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag12) | |
721 | #define Flag144(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag13) | |
722 | #define Flag145(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag14) | |
723 | #define Flag146(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag15) | |
724 | #define Flag147(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag16) | |
725 | #define Flag148(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag17) | |
726 | #define Flag149(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.flag18) | |
727 | #define Flag150(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.pflag1) | |
728 | #define Flag151(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.K.pflag2) | |
729 | ||
730 | #define Flag152(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag152) | |
731 | #define Flag153(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag153) | |
732 | #define Flag154(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag154) | |
733 | #define Flag155(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag155) | |
734 | #define Flag156(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag156) | |
735 | #define Flag157(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag157) | |
736 | #define Flag158(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag158) | |
737 | #define Flag159(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag159) | |
738 | #define Flag160(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag160) | |
739 | #define Flag161(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag161) | |
740 | #define Flag162(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag162) | |
741 | #define Flag163(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag163) | |
742 | #define Flag164(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag164) | |
743 | #define Flag165(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag165) | |
744 | #define Flag166(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag166) | |
745 | #define Flag167(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag167) | |
746 | #define Flag168(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag168) | |
747 | #define Flag169(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag169) | |
748 | #define Flag170(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag170) | |
749 | #define Flag171(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag171) | |
750 | #define Flag172(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag172) | |
751 | #define Flag173(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag173) | |
752 | #define Flag174(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag174) | |
753 | #define Flag175(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag175) | |
754 | #define Flag176(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag176) | |
755 | #define Flag177(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag177) | |
756 | #define Flag178(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag178) | |
757 | #define Flag179(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag179) | |
758 | #define Flag180(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag180) | |
759 | #define Flag181(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag181) | |
760 | #define Flag182(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag182) | |
761 | #define Flag183(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag183) | |
82c80734 | 762 | |
e0ae93e2 RD |
763 | #define Flag184(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag184) |
764 | #define Flag185(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag185) | |
765 | #define Flag186(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag186) | |
766 | #define Flag187(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag187) | |
767 | #define Flag188(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag188) | |
768 | #define Flag189(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag189) | |
769 | #define Flag190(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag190) | |
770 | #define Flag191(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag191) | |
771 | #define Flag192(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag192) | |
772 | #define Flag193(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag193) | |
773 | #define Flag194(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag194) | |
774 | #define Flag195(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag195) | |
775 | #define Flag196(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag196) | |
776 | #define Flag197(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag197) | |
777 | #define Flag198(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag198) | |
778 | #define Flag199(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag199) | |
779 | #define Flag200(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag200) | |
780 | #define Flag201(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag201) | |
781 | #define Flag202(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag202) | |
782 | #define Flag203(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag203) | |
783 | #define Flag204(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag204) | |
784 | #define Flag205(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag205) | |
785 | #define Flag206(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag206) | |
786 | #define Flag207(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag207) | |
787 | #define Flag208(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag208) | |
788 | #define Flag209(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag209) | |
789 | #define Flag210(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag210) | |
790 | #define Flag211(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag211) | |
791 | #define Flag212(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag212) | |
792 | #define Flag213(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag213) | |
793 | #define Flag214(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag214) | |
794 | #define Flag215(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.U.fw4.flag215) | |
795 | ||
796 | #define Flag216(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.in_list) | |
c159409f | 797 | #define Flag217(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.has_aspects) |
e0ae93e2 RD |
798 | #define Flag218(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.rewrite_ins) |
799 | #define Flag219(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.analyzed) | |
800 | #define Flag220(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.c_f_s) | |
801 | #define Flag221(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.error_posted) | |
802 | #define Flag222(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag4) | |
803 | #define Flag223(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag5) | |
804 | #define Flag224(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag6) | |
805 | #define Flag225(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag7) | |
806 | #define Flag226(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag8) | |
807 | #define Flag227(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag9) | |
808 | #define Flag228(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag10) | |
809 | #define Flag229(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag11) | |
810 | #define Flag230(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag12) | |
811 | #define Flag231(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag13) | |
812 | #define Flag232(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag14) | |
813 | #define Flag233(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag15) | |
814 | #define Flag234(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag16) | |
815 | #define Flag235(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag17) | |
816 | #define Flag236(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.flag18) | |
817 | #define Flag237(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.pflag1) | |
818 | #define Flag238(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.K.pflag2) | |
819 | ||
820 | #define Flag239(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag65) | |
821 | #define Flag240(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag66) | |
822 | #define Flag241(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag67) | |
823 | #define Flag242(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag68) | |
824 | #define Flag243(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag69) | |
825 | #define Flag244(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag70) | |
826 | #define Flag245(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag71) | |
827 | #define Flag246(N) (Nodes_Ptr[(N) - First_Node_Id + 3].U.NK.flag72) | |
828 | ||
829 | #define Flag247(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag65) | |
830 | #define Flag248(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag66) | |
831 | #define Flag249(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag67) | |
832 | #define Flag250(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag68) | |
833 | #define Flag251(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag69) | |
834 | #define Flag252(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag70) | |
835 | #define Flag253(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag71) | |
836 | #define Flag254(N) (Nodes_Ptr[(N) - First_Node_Id + 4].U.NK.flag72) | |
837 | ||
fc142f63 AC |
838 | #define Flag255(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag255) |
839 | #define Flag256(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag256) | |
840 | #define Flag257(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag257) | |
841 | #define Flag258(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag258) | |
842 | #define Flag259(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag259) | |
843 | #define Flag260(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag260) | |
844 | #define Flag261(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag261) | |
845 | #define Flag262(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag262) | |
846 | #define Flag263(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag263) | |
847 | #define Flag264(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag264) | |
848 | #define Flag265(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag265) | |
849 | #define Flag266(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag266) | |
850 | #define Flag267(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag267) | |
851 | #define Flag268(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag268) | |
852 | #define Flag269(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag269) | |
853 | #define Flag270(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag270) | |
854 | #define Flag271(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag271) | |
855 | #define Flag272(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag272) | |
856 | #define Flag273(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag273) | |
857 | #define Flag274(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag274) | |
858 | #define Flag275(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag275) | |
859 | #define Flag276(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag276) | |
860 | #define Flag277(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag277) | |
861 | #define Flag278(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag278) | |
862 | #define Flag279(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag279) | |
863 | #define Flag280(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag280) | |
864 | #define Flag281(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag281) | |
865 | #define Flag282(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag282) | |
866 | #define Flag283(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag283) | |
867 | #define Flag284(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag284) | |
868 | #define Flag285(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag285) | |
869 | #define Flag286(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.U.fw5.flag286) | |
85799cb9 AC |
870 | #define Flag287(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.in_list) |
871 | #define Flag288(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.has_aspects) | |
872 | #define Flag289(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.rewrite_ins) | |
62d40a7a | 873 | #define Flag290(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.analyzed) |
85799cb9 AC |
874 | #define Flag291(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.c_f_s) |
875 | #define Flag292(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.error_posted) | |
876 | #define Flag293(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag4) | |
877 | #define Flag294(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag5) | |
878 | #define Flag295(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag6) | |
879 | #define Flag296(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag7) | |
880 | #define Flag297(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag8) | |
881 | #define Flag298(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag9) | |
882 | #define Flag299(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag10) | |
883 | #define Flag300(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag11) | |
884 | #define Flag301(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag12) | |
885 | #define Flag302(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag13) | |
886 | #define Flag303(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag14) | |
887 | #define Flag304(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag15) | |
888 | #define Flag305(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag16) | |
889 | #define Flag306(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag17) | |
890 | #define Flag307(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.flag18) | |
891 | #define Flag308(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.pflag1) | |
892 | #define Flag309(N) (Nodes_Ptr[(N) - First_Node_Id + 5].U.K.pflag2) | |
fc142f63 | 893 | |
9e9bd455 LG |
894 | #ifdef __cplusplus |
895 | } | |
896 | #endif |