Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line 35... Line 35...
35
#ifndef OFF_OPS_H_INCLUDED
35
#ifndef OFF_OPS_H_INCLUDED
36
#define OFF_OPS_H_INCLUDED
36
#define OFF_OPS_H_INCLUDED
37
 
37
 
38
/* Operations for union OFFSET */
38
/* Operations for union OFFSET */
39
 
39
 
40
#pragma token PROC ( EXP : OFFSET : ) EXP : unsigned : TAG_off #
40
#pragma token PROC(EXP : OFFSET :) EXP : unsigned : TAG_off #
41
#pragma interface TAG_off
41
#pragma interface TAG_off
42
 
42
 
43
 
43
 
44
/* Operations for field zero of union OFFSET */
44
/* Operations for field zero of union OFFSET */
45
 
45
 
46
#pragma token EXP const : unsigned : off_zero_tag #
46
#pragma token EXP const : unsigned : off_zero_tag #
47
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_zero #
47
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_zero #
48
#pragma interface off_zero_tag IS_off_zero
48
#pragma interface off_zero_tag IS_off_zero
49
 
49
 
50
#pragma token PROC ( EXP : OFFSET : )\
50
#pragma token PROC(EXP : OFFSET :)\
51
    EXP : PTR ( TYPE ) : off_zero_type #
51
    EXP : PTR(TYPE) : off_zero_type #
52
#pragma interface off_zero_type
52
#pragma interface off_zero_type
53
 
53
 
54
#pragma token PROC (\
54
#pragma token PROC(\
55
	EXP : TYPE :,\
55
	EXP : TYPE :,\
56
	EXP lvalue : OFFSET :\
56
	EXP lvalue : OFFSET :\
57
    ) STATEMENT MAKE_off_zero #
57
    ) STATEMENT MAKE_off_zero #
58
#pragma interface MAKE_off_zero
58
#pragma interface MAKE_off_zero
59
 
59
 
60
#pragma token PROC (\
60
#pragma token PROC(\
61
	EXP lvalue : TYPE :,\
61
	EXP lvalue : TYPE :,\
62
	EXP : OFFSET :\
62
	EXP : OFFSET :\
63
    ) STATEMENT DECONS_off_zero #
63
    ) STATEMENT DECONS_off_zero #
64
#pragma interface DECONS_off_zero
64
#pragma interface DECONS_off_zero
65
 
65
 
66
#pragma token PROC (\
66
#pragma token PROC(\
67
	EXP : DESTROYER :,\
67
	EXP : DESTROYER :,\
68
	EXP lvalue : TYPE :,\
68
	EXP lvalue : TYPE :,\
69
	EXP : OFFSET :\
69
	EXP : OFFSET :\
70
    ) STATEMENT DESTROY_off_zero #
70
    ) STATEMENT DESTROY_off_zero #
71
#pragma interface DESTROY_off_zero
71
#pragma interface DESTROY_off_zero
72
 
72
 
73
 
73
 
74
/* Operations for field type of union OFFSET */
74
/* Operations for field type of union OFFSET */
75
 
75
 
76
#pragma token EXP const : unsigned : off_type_tag #
76
#pragma token EXP const : unsigned : off_type_tag #
77
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_type #
77
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_type #
78
#pragma interface off_type_tag IS_off_type
78
#pragma interface off_type_tag IS_off_type
79
 
79
 
80
#pragma token PROC ( EXP : OFFSET : )\
80
#pragma token PROC(EXP : OFFSET :)\
81
    EXP : PTR ( TYPE ) : off_type_type #
81
    EXP : PTR(TYPE) : off_type_type #
82
#pragma interface off_type_type
82
#pragma interface off_type_type
83
 
83
 
84
#pragma token PROC (\
84
#pragma token PROC(\
85
	EXP : TYPE :,\
85
	EXP : TYPE :,\
86
	EXP lvalue : OFFSET :\
86
	EXP lvalue : OFFSET :\
87
    ) STATEMENT MAKE_off_type #
87
    ) STATEMENT MAKE_off_type #
88
#pragma interface MAKE_off_type
88
#pragma interface MAKE_off_type
89
 
89
 
90
#pragma token PROC (\
90
#pragma token PROC(\
91
	EXP lvalue : TYPE :,\
91
	EXP lvalue : TYPE :,\
92
	EXP : OFFSET :\
92
	EXP : OFFSET :\
93
    ) STATEMENT DECONS_off_type #
93
    ) STATEMENT DECONS_off_type #
94
#pragma interface DECONS_off_type
94
#pragma interface DECONS_off_type
95
 
95
 
96
#pragma token PROC (\
96
#pragma token PROC(\
97
	EXP : DESTROYER :,\
97
	EXP : DESTROYER :,\
98
	EXP lvalue : TYPE :,\
98
	EXP lvalue : TYPE :,\
99
	EXP : OFFSET :\
99
	EXP : OFFSET :\
100
    ) STATEMENT DESTROY_off_type #
100
    ) STATEMENT DESTROY_off_type #
101
#pragma interface DESTROY_off_type
101
#pragma interface DESTROY_off_type
102
 
102
 
103
 
103
 
104
/* Operations for field array of union OFFSET */
104
/* Operations for field array of union OFFSET */
105
 
105
 
106
#pragma token EXP const : unsigned : off_array_tag #
106
#pragma token EXP const : unsigned : off_array_tag #
107
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_array #
107
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_array #
108
#pragma interface off_array_tag IS_off_array
108
#pragma interface off_array_tag IS_off_array
109
 
109
 
110
#pragma token PROC ( EXP : OFFSET : )\
110
#pragma token PROC(EXP : OFFSET :)\
111
    EXP : PTR ( TYPE ) : off_array_type #
111
    EXP : PTR(TYPE) : off_array_type #
112
#pragma interface off_array_type
112
#pragma interface off_array_type
113
 
113
 
114
#pragma token PROC ( EXP : OFFSET : )\
114
#pragma token PROC(EXP : OFFSET :)\
115
    EXP : PTR ( unsigned ) : off_array_arg #
115
    EXP : PTR(unsigned) : off_array_arg #
116
#pragma interface off_array_arg
116
#pragma interface off_array_arg
117
 
117
 
118
#pragma token PROC (\
118
#pragma token PROC(\
119
	EXP : TYPE :,\
119
	EXP : TYPE :,\
120
	EXP : unsigned :,\
120
	EXP : unsigned :,\
121
	EXP lvalue : OFFSET :\
121
	EXP lvalue : OFFSET :\
122
    ) STATEMENT MAKE_off_array #
122
    ) STATEMENT MAKE_off_array #
123
#pragma interface MAKE_off_array
123
#pragma interface MAKE_off_array
124
 
124
 
125
#pragma token PROC (\
125
#pragma token PROC(\
126
	EXP lvalue : TYPE :,\
126
	EXP lvalue : TYPE :,\
127
	EXP lvalue : unsigned :,\
127
	EXP lvalue : unsigned :,\
128
	EXP : OFFSET :\
128
	EXP : OFFSET :\
129
    ) STATEMENT DECONS_off_array #
129
    ) STATEMENT DECONS_off_array #
130
#pragma interface DECONS_off_array
130
#pragma interface DECONS_off_array
131
 
131
 
132
#pragma token PROC (\
132
#pragma token PROC(\
133
	EXP : DESTROYER :,\
133
	EXP : DESTROYER :,\
134
	EXP lvalue : TYPE :,\
134
	EXP lvalue : TYPE :,\
135
	EXP lvalue : unsigned :,\
135
	EXP lvalue : unsigned :,\
136
	EXP : OFFSET :\
136
	EXP : OFFSET :\
137
    ) STATEMENT DESTROY_off_array #
137
    ) STATEMENT DESTROY_off_array #
Line 139... Line 139...
139
 
139
 
140
 
140
 
141
/* Operations for field extra of union OFFSET */
141
/* Operations for field extra of union OFFSET */
142
 
142
 
143
#pragma token EXP const : unsigned : off_extra_tag #
143
#pragma token EXP const : unsigned : off_extra_tag #
144
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_extra #
144
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_extra #
145
#pragma interface off_extra_tag IS_off_extra
145
#pragma interface off_extra_tag IS_off_extra
146
 
146
 
147
#pragma token PROC ( EXP : OFFSET : )\
147
#pragma token PROC(EXP : OFFSET :)\
148
    EXP : PTR ( TYPE ) : off_extra_type #
148
    EXP : PTR(TYPE) : off_extra_type #
149
#pragma interface off_extra_type
149
#pragma interface off_extra_type
150
 
150
 
151
#pragma token PROC ( EXP : OFFSET : )\
151
#pragma token PROC(EXP : OFFSET :)\
152
    EXP : PTR ( int ) : off_extra_scale #
152
    EXP : PTR(int) : off_extra_scale #
153
#pragma interface off_extra_scale
153
#pragma interface off_extra_scale
154
 
154
 
155
#pragma token PROC (\
155
#pragma token PROC(\
156
	EXP : TYPE :,\
156
	EXP : TYPE :,\
157
	EXP : int :,\
157
	EXP : int :,\
158
	EXP lvalue : OFFSET :\
158
	EXP lvalue : OFFSET :\
159
    ) STATEMENT MAKE_off_extra #
159
    ) STATEMENT MAKE_off_extra #
160
#pragma interface MAKE_off_extra
160
#pragma interface MAKE_off_extra
161
 
161
 
162
#pragma token PROC (\
162
#pragma token PROC(\
163
	EXP lvalue : TYPE :,\
163
	EXP lvalue : TYPE :,\
164
	EXP lvalue : int :,\
164
	EXP lvalue : int :,\
165
	EXP : OFFSET :\
165
	EXP : OFFSET :\
166
    ) STATEMENT DECONS_off_extra #
166
    ) STATEMENT DECONS_off_extra #
167
#pragma interface DECONS_off_extra
167
#pragma interface DECONS_off_extra
168
 
168
 
169
#pragma token PROC (\
169
#pragma token PROC(\
170
	EXP : DESTROYER :,\
170
	EXP : DESTROYER :,\
171
	EXP lvalue : TYPE :,\
171
	EXP lvalue : TYPE :,\
172
	EXP lvalue : int :,\
172
	EXP lvalue : int :,\
173
	EXP : OFFSET :\
173
	EXP : OFFSET :\
174
    ) STATEMENT DESTROY_off_extra #
174
    ) STATEMENT DESTROY_off_extra #
Line 176... Line 176...
176
 
176
 
177
 
177
 
178
/* Operations for field base of union OFFSET */
178
/* Operations for field base of union OFFSET */
179
 
179
 
180
#pragma token EXP const : unsigned : off_base_tag #
180
#pragma token EXP const : unsigned : off_base_tag #
181
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_base #
181
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_base #
182
#pragma interface off_base_tag IS_off_base
182
#pragma interface off_base_tag IS_off_base
183
 
183
 
184
#pragma token PROC ( EXP : OFFSET : )\
184
#pragma token PROC(EXP : OFFSET :)\
185
    EXP : PTR ( GRAPH ) : off_base_graph #
185
    EXP : PTR(GRAPH) : off_base_graph #
186
#pragma interface off_base_graph
186
#pragma interface off_base_graph
187
 
187
 
188
#pragma token PROC (\
188
#pragma token PROC(\
189
	EXP : GRAPH :,\
189
	EXP : GRAPH :,\
190
	EXP lvalue : OFFSET :\
190
	EXP lvalue : OFFSET :\
191
    ) STATEMENT MAKE_off_base #
191
    ) STATEMENT MAKE_off_base #
192
#pragma interface MAKE_off_base
192
#pragma interface MAKE_off_base
193
 
193
 
194
#pragma token PROC (\
194
#pragma token PROC(\
195
	EXP lvalue : GRAPH :,\
195
	EXP lvalue : GRAPH :,\
196
	EXP : OFFSET :\
196
	EXP : OFFSET :\
197
    ) STATEMENT DECONS_off_base #
197
    ) STATEMENT DECONS_off_base #
198
#pragma interface DECONS_off_base
198
#pragma interface DECONS_off_base
199
 
199
 
200
#pragma token PROC (\
200
#pragma token PROC(\
201
	EXP : DESTROYER :,\
201
	EXP : DESTROYER :,\
202
	EXP lvalue : GRAPH :,\
202
	EXP lvalue : GRAPH :,\
203
	EXP : OFFSET :\
203
	EXP : OFFSET :\
204
    ) STATEMENT DESTROY_off_base #
204
    ) STATEMENT DESTROY_off_base #
205
#pragma interface DESTROY_off_base
205
#pragma interface DESTROY_off_base
206
 
206
 
207
 
207
 
208
/* Operations for field deriv of union OFFSET */
208
/* Operations for field deriv of union OFFSET */
209
 
209
 
210
#pragma token EXP const : unsigned : off_deriv_tag #
210
#pragma token EXP const : unsigned : off_deriv_tag #
211
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_deriv #
211
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_deriv #
212
#pragma interface off_deriv_tag IS_off_deriv
212
#pragma interface off_deriv_tag IS_off_deriv
213
 
213
 
214
#pragma token PROC ( EXP : OFFSET : )\
214
#pragma token PROC(EXP : OFFSET :)\
215
    EXP : PTR ( GRAPH ) : off_deriv_graph #
215
    EXP : PTR(GRAPH) : off_deriv_graph #
216
#pragma interface off_deriv_graph
216
#pragma interface off_deriv_graph
217
 
217
 
218
#pragma token PROC ( EXP : OFFSET : )\
218
#pragma token PROC(EXP : OFFSET :)\
219
    EXP : PTR ( OFFSET ) : off_deriv_direct #
219
    EXP : PTR(OFFSET) : off_deriv_direct #
220
#pragma interface off_deriv_direct
220
#pragma interface off_deriv_direct
221
 
221
 
222
#pragma token PROC ( EXP : OFFSET : )\
222
#pragma token PROC(EXP : OFFSET :)\
223
    EXP : PTR ( OFFSET ) : off_deriv_indirect #
223
    EXP : PTR(OFFSET) : off_deriv_indirect #
224
#pragma interface off_deriv_indirect
224
#pragma interface off_deriv_indirect
225
 
225
 
226
#pragma token PROC (\
226
#pragma token PROC(\
227
	EXP : GRAPH :,\
227
	EXP : GRAPH :,\
228
	EXP : OFFSET :,\
228
	EXP : OFFSET :,\
229
	EXP : OFFSET :,\
229
	EXP : OFFSET :,\
230
	EXP lvalue : OFFSET :\
230
	EXP lvalue : OFFSET :\
231
    ) STATEMENT MAKE_off_deriv #
231
    ) STATEMENT MAKE_off_deriv #
232
#pragma interface MAKE_off_deriv
232
#pragma interface MAKE_off_deriv
233
 
233
 
234
#pragma token PROC (\
234
#pragma token PROC(\
235
	EXP lvalue : GRAPH :,\
235
	EXP lvalue : GRAPH :,\
236
	EXP lvalue : OFFSET :,\
236
	EXP lvalue : OFFSET :,\
237
	EXP lvalue : OFFSET :,\
237
	EXP lvalue : OFFSET :,\
238
	EXP : OFFSET :\
238
	EXP : OFFSET :\
239
    ) STATEMENT DECONS_off_deriv #
239
    ) STATEMENT DECONS_off_deriv #
240
#pragma interface DECONS_off_deriv
240
#pragma interface DECONS_off_deriv
241
 
241
 
242
#pragma token PROC (\
242
#pragma token PROC(\
243
	EXP : DESTROYER :,\
243
	EXP : DESTROYER :,\
244
	EXP lvalue : GRAPH :,\
244
	EXP lvalue : GRAPH :,\
245
	EXP lvalue : OFFSET :,\
245
	EXP lvalue : OFFSET :,\
246
	EXP lvalue : OFFSET :,\
246
	EXP lvalue : OFFSET :,\
247
	EXP : OFFSET :\
247
	EXP : OFFSET :\
Line 250... Line 250...
250
 
250
 
251
 
251
 
252
/* Operations for field member of union OFFSET */
252
/* Operations for field member of union OFFSET */
253
 
253
 
254
#pragma token EXP const : unsigned : off_member_tag #
254
#pragma token EXP const : unsigned : off_member_tag #
255
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_member #
255
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_member #
256
#pragma interface off_member_tag IS_off_member
256
#pragma interface off_member_tag IS_off_member
257
 
257
 
258
#pragma token PROC ( EXP : OFFSET : )\
258
#pragma token PROC(EXP : OFFSET :)\
259
    EXP : PTR ( IDENTIFIER ) : off_member_id #
259
    EXP : PTR(IDENTIFIER) : off_member_id #
260
#pragma interface off_member_id
260
#pragma interface off_member_id
261
 
261
 
262
#pragma token PROC (\
262
#pragma token PROC(\
263
	EXP : IDENTIFIER :,\
263
	EXP : IDENTIFIER :,\
264
	EXP lvalue : OFFSET :\
264
	EXP lvalue : OFFSET :\
265
    ) STATEMENT MAKE_off_member #
265
    ) STATEMENT MAKE_off_member #
266
#pragma interface MAKE_off_member
266
#pragma interface MAKE_off_member
267
 
267
 
268
#pragma token PROC (\
268
#pragma token PROC(\
269
	EXP lvalue : IDENTIFIER :,\
269
	EXP lvalue : IDENTIFIER :,\
270
	EXP : OFFSET :\
270
	EXP : OFFSET :\
271
    ) STATEMENT DECONS_off_member #
271
    ) STATEMENT DECONS_off_member #
272
#pragma interface DECONS_off_member
272
#pragma interface DECONS_off_member
273
 
273
 
274
#pragma token PROC (\
274
#pragma token PROC(\
275
	EXP : DESTROYER :,\
275
	EXP : DESTROYER :,\
276
	EXP lvalue : IDENTIFIER :,\
276
	EXP lvalue : IDENTIFIER :,\
277
	EXP : OFFSET :\
277
	EXP : OFFSET :\
278
    ) STATEMENT DESTROY_off_member #
278
    ) STATEMENT DESTROY_off_member #
279
#pragma interface DESTROY_off_member
279
#pragma interface DESTROY_off_member
280
 
280
 
281
 
281
 
282
/* Operations for field ptr_mem of union OFFSET */
282
/* Operations for field ptr_mem of union OFFSET */
283
 
283
 
284
#pragma token EXP const : unsigned : off_ptr_mem_tag #
284
#pragma token EXP const : unsigned : off_ptr_mem_tag #
285
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_ptr_mem #
285
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_ptr_mem #
286
#pragma interface off_ptr_mem_tag IS_off_ptr_mem
286
#pragma interface off_ptr_mem_tag IS_off_ptr_mem
287
 
287
 
288
#pragma token PROC ( EXP : OFFSET : )\
288
#pragma token PROC(EXP : OFFSET :)\
289
    EXP : PTR ( EXP ) : off_ptr_mem_arg #
289
    EXP : PTR(EXP) : off_ptr_mem_arg #
290
#pragma interface off_ptr_mem_arg
290
#pragma interface off_ptr_mem_arg
291
 
291
 
292
#pragma token PROC (\
292
#pragma token PROC(\
293
	EXP : EXP :,\
293
	EXP : EXP :,\
294
	EXP lvalue : OFFSET :\
294
	EXP lvalue : OFFSET :\
295
    ) STATEMENT MAKE_off_ptr_mem #
295
    ) STATEMENT MAKE_off_ptr_mem #
296
#pragma interface MAKE_off_ptr_mem
296
#pragma interface MAKE_off_ptr_mem
297
 
297
 
298
#pragma token PROC (\
298
#pragma token PROC(\
299
	EXP lvalue : EXP :,\
299
	EXP lvalue : EXP :,\
300
	EXP : OFFSET :\
300
	EXP : OFFSET :\
301
    ) STATEMENT DECONS_off_ptr_mem #
301
    ) STATEMENT DECONS_off_ptr_mem #
302
#pragma interface DECONS_off_ptr_mem
302
#pragma interface DECONS_off_ptr_mem
303
 
303
 
304
#pragma token PROC (\
304
#pragma token PROC(\
305
	EXP : DESTROYER :,\
305
	EXP : DESTROYER :,\
306
	EXP lvalue : EXP :,\
306
	EXP lvalue : EXP :,\
307
	EXP : OFFSET :\
307
	EXP : OFFSET :\
308
    ) STATEMENT DESTROY_off_ptr_mem #
308
    ) STATEMENT DESTROY_off_ptr_mem #
309
#pragma interface DESTROY_off_ptr_mem
309
#pragma interface DESTROY_off_ptr_mem
310
 
310
 
311
 
311
 
312
/* Operations for field negate of union OFFSET */
312
/* Operations for field negate of union OFFSET */
313
 
313
 
314
#pragma token EXP const : unsigned : off_negate_tag #
314
#pragma token EXP const : unsigned : off_negate_tag #
315
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_negate #
315
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_negate #
316
#pragma interface off_negate_tag IS_off_negate
316
#pragma interface off_negate_tag IS_off_negate
317
 
317
 
318
#pragma token PROC ( EXP : OFFSET : )\
318
#pragma token PROC(EXP : OFFSET :)\
319
    EXP : PTR ( OFFSET ) : off_negate_arg #
319
    EXP : PTR(OFFSET) : off_negate_arg #
320
#pragma interface off_negate_arg
320
#pragma interface off_negate_arg
321
 
321
 
322
#pragma token PROC (\
322
#pragma token PROC(\
323
	EXP : OFFSET :,\
323
	EXP : OFFSET :,\
324
	EXP lvalue : OFFSET :\
324
	EXP lvalue : OFFSET :\
325
    ) STATEMENT MAKE_off_negate #
325
    ) STATEMENT MAKE_off_negate #
326
#pragma interface MAKE_off_negate
326
#pragma interface MAKE_off_negate
327
 
327
 
328
#pragma token PROC (\
328
#pragma token PROC(\
329
	EXP lvalue : OFFSET :,\
329
	EXP lvalue : OFFSET :,\
330
	EXP : OFFSET :\
330
	EXP : OFFSET :\
331
    ) STATEMENT DECONS_off_negate #
331
    ) STATEMENT DECONS_off_negate #
332
#pragma interface DECONS_off_negate
332
#pragma interface DECONS_off_negate
333
 
333
 
334
#pragma token PROC (\
334
#pragma token PROC(\
335
	EXP : DESTROYER :,\
335
	EXP : DESTROYER :,\
336
	EXP lvalue : OFFSET :,\
336
	EXP lvalue : OFFSET :,\
337
	EXP : OFFSET :\
337
	EXP : OFFSET :\
338
    ) STATEMENT DESTROY_off_negate #
338
    ) STATEMENT DESTROY_off_negate #
339
#pragma interface DESTROY_off_negate
339
#pragma interface DESTROY_off_negate
340
 
340
 
341
 
341
 
342
/* Operations for field plus of union OFFSET */
342
/* Operations for field plus of union OFFSET */
343
 
343
 
344
#pragma token EXP const : unsigned : off_plus_tag #
344
#pragma token EXP const : unsigned : off_plus_tag #
345
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_plus #
345
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_plus #
346
#pragma interface off_plus_tag IS_off_plus
346
#pragma interface off_plus_tag IS_off_plus
347
 
347
 
348
#pragma token PROC ( EXP : OFFSET : )\
348
#pragma token PROC(EXP : OFFSET :)\
349
    EXP : PTR ( OFFSET ) : off_plus_arg1 #
349
    EXP : PTR(OFFSET) : off_plus_arg1 #
350
#pragma interface off_plus_arg1
350
#pragma interface off_plus_arg1
351
 
351
 
352
#pragma token PROC ( EXP : OFFSET : )\
352
#pragma token PROC(EXP : OFFSET :)\
353
    EXP : PTR ( OFFSET ) : off_plus_arg2 #
353
    EXP : PTR(OFFSET) : off_plus_arg2 #
354
#pragma interface off_plus_arg2
354
#pragma interface off_plus_arg2
355
 
355
 
356
#pragma token PROC (\
356
#pragma token PROC(\
357
	EXP : OFFSET :,\
357
	EXP : OFFSET :,\
358
	EXP : OFFSET :,\
358
	EXP : OFFSET :,\
359
	EXP lvalue : OFFSET :\
359
	EXP lvalue : OFFSET :\
360
    ) STATEMENT MAKE_off_plus #
360
    ) STATEMENT MAKE_off_plus #
361
#pragma interface MAKE_off_plus
361
#pragma interface MAKE_off_plus
362
 
362
 
363
#pragma token PROC (\
363
#pragma token PROC(\
364
	EXP lvalue : OFFSET :,\
364
	EXP lvalue : OFFSET :,\
365
	EXP lvalue : OFFSET :,\
365
	EXP lvalue : OFFSET :,\
366
	EXP : OFFSET :\
366
	EXP : OFFSET :\
367
    ) STATEMENT DECONS_off_plus #
367
    ) STATEMENT DECONS_off_plus #
368
#pragma interface DECONS_off_plus
368
#pragma interface DECONS_off_plus
369
 
369
 
370
#pragma token PROC (\
370
#pragma token PROC(\
371
	EXP : DESTROYER :,\
371
	EXP : DESTROYER :,\
372
	EXP lvalue : OFFSET :,\
372
	EXP lvalue : OFFSET :,\
373
	EXP lvalue : OFFSET :,\
373
	EXP lvalue : OFFSET :,\
374
	EXP : OFFSET :\
374
	EXP : OFFSET :\
375
    ) STATEMENT DESTROY_off_plus #
375
    ) STATEMENT DESTROY_off_plus #
Line 377... Line 377...
377
 
377
 
378
 
378
 
379
/* Operations for field mult of union OFFSET */
379
/* Operations for field mult of union OFFSET */
380
 
380
 
381
#pragma token EXP const : unsigned : off_mult_tag #
381
#pragma token EXP const : unsigned : off_mult_tag #
382
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_mult #
382
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_mult #
383
#pragma interface off_mult_tag IS_off_mult
383
#pragma interface off_mult_tag IS_off_mult
384
 
384
 
385
#pragma token PROC ( EXP : OFFSET : )\
385
#pragma token PROC(EXP : OFFSET :)\
386
    EXP : PTR ( OFFSET ) : off_mult_arg1 #
386
    EXP : PTR(OFFSET) : off_mult_arg1 #
387
#pragma interface off_mult_arg1
387
#pragma interface off_mult_arg1
388
 
388
 
389
#pragma token PROC ( EXP : OFFSET : )\
389
#pragma token PROC(EXP : OFFSET :)\
390
    EXP : PTR ( EXP ) : off_mult_arg2 #
390
    EXP : PTR(EXP) : off_mult_arg2 #
391
#pragma interface off_mult_arg2
391
#pragma interface off_mult_arg2
392
 
392
 
393
#pragma token PROC (\
393
#pragma token PROC(\
394
	EXP : OFFSET :,\
394
	EXP : OFFSET :,\
395
	EXP : EXP :,\
395
	EXP : EXP :,\
396
	EXP lvalue : OFFSET :\
396
	EXP lvalue : OFFSET :\
397
    ) STATEMENT MAKE_off_mult #
397
    ) STATEMENT MAKE_off_mult #
398
#pragma interface MAKE_off_mult
398
#pragma interface MAKE_off_mult
399
 
399
 
400
#pragma token PROC (\
400
#pragma token PROC(\
401
	EXP lvalue : OFFSET :,\
401
	EXP lvalue : OFFSET :,\
402
	EXP lvalue : EXP :,\
402
	EXP lvalue : EXP :,\
403
	EXP : OFFSET :\
403
	EXP : OFFSET :\
404
    ) STATEMENT DECONS_off_mult #
404
    ) STATEMENT DECONS_off_mult #
405
#pragma interface DECONS_off_mult
405
#pragma interface DECONS_off_mult
406
 
406
 
407
#pragma token PROC (\
407
#pragma token PROC(\
408
	EXP : DESTROYER :,\
408
	EXP : DESTROYER :,\
409
	EXP lvalue : OFFSET :,\
409
	EXP lvalue : OFFSET :,\
410
	EXP lvalue : EXP :,\
410
	EXP lvalue : EXP :,\
411
	EXP : OFFSET :\
411
	EXP : OFFSET :\
412
    ) STATEMENT DESTROY_off_mult #
412
    ) STATEMENT DESTROY_off_mult #
Line 414... Line 414...
414
 
414
 
415
 
415
 
416
/* Operations for field ptr_diff of union OFFSET */
416
/* Operations for field ptr_diff of union OFFSET */
417
 
417
 
418
#pragma token EXP const : unsigned : off_ptr_diff_tag #
418
#pragma token EXP const : unsigned : off_ptr_diff_tag #
419
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_ptr_diff #
419
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_ptr_diff #
420
#pragma interface off_ptr_diff_tag IS_off_ptr_diff
420
#pragma interface off_ptr_diff_tag IS_off_ptr_diff
421
 
421
 
422
#pragma token PROC ( EXP : OFFSET : )\
422
#pragma token PROC(EXP : OFFSET :)\
423
    EXP : PTR ( EXP ) : off_ptr_diff_ptr1 #
423
    EXP : PTR(EXP) : off_ptr_diff_ptr1 #
424
#pragma interface off_ptr_diff_ptr1
424
#pragma interface off_ptr_diff_ptr1
425
 
425
 
426
#pragma token PROC ( EXP : OFFSET : )\
426
#pragma token PROC(EXP : OFFSET :)\
427
    EXP : PTR ( EXP ) : off_ptr_diff_ptr2 #
427
    EXP : PTR(EXP) : off_ptr_diff_ptr2 #
428
#pragma interface off_ptr_diff_ptr2
428
#pragma interface off_ptr_diff_ptr2
429
 
429
 
430
#pragma token PROC (\
430
#pragma token PROC(\
431
	EXP : EXP :,\
431
	EXP : EXP :,\
432
	EXP : EXP :,\
432
	EXP : EXP :,\
433
	EXP lvalue : OFFSET :\
433
	EXP lvalue : OFFSET :\
434
    ) STATEMENT MAKE_off_ptr_diff #
434
    ) STATEMENT MAKE_off_ptr_diff #
435
#pragma interface MAKE_off_ptr_diff
435
#pragma interface MAKE_off_ptr_diff
436
 
436
 
437
#pragma token PROC (\
437
#pragma token PROC(\
438
	EXP lvalue : EXP :,\
438
	EXP lvalue : EXP :,\
439
	EXP lvalue : EXP :,\
439
	EXP lvalue : EXP :,\
440
	EXP : OFFSET :\
440
	EXP : OFFSET :\
441
    ) STATEMENT DECONS_off_ptr_diff #
441
    ) STATEMENT DECONS_off_ptr_diff #
442
#pragma interface DECONS_off_ptr_diff
442
#pragma interface DECONS_off_ptr_diff
443
 
443
 
444
#pragma token PROC (\
444
#pragma token PROC(\
445
	EXP : DESTROYER :,\
445
	EXP : DESTROYER :,\
446
	EXP lvalue : EXP :,\
446
	EXP lvalue : EXP :,\
447
	EXP lvalue : EXP :,\
447
	EXP lvalue : EXP :,\
448
	EXP : OFFSET :\
448
	EXP : OFFSET :\
449
    ) STATEMENT DESTROY_off_ptr_diff #
449
    ) STATEMENT DESTROY_off_ptr_diff #
Line 451... Line 451...
451
 
451
 
452
 
452
 
453
/* Operations for field token of union OFFSET */
453
/* Operations for field token of union OFFSET */
454
 
454
 
455
#pragma token EXP const : unsigned : off_token_tag #
455
#pragma token EXP const : unsigned : off_token_tag #
456
#pragma token PROC ( EXP : OFFSET : ) EXP : int : IS_off_token #
456
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_token #
457
#pragma interface off_token_tag IS_off_token
457
#pragma interface off_token_tag IS_off_token
458
 
458
 
459
#pragma token PROC ( EXP : OFFSET : )\
459
#pragma token PROC(EXP : OFFSET :)\
460
    EXP : PTR ( IDENTIFIER ) : off_token_tok #
460
    EXP : PTR(IDENTIFIER) : off_token_tok #
461
#pragma interface off_token_tok
461
#pragma interface off_token_tok
462
 
462
 
463
#pragma token PROC ( EXP : OFFSET : )\
463
#pragma token PROC(EXP : OFFSET :)\
464
    EXP : PTR ( LIST ( TOKEN ) ) : off_token_args #
464
    EXP : PTR(LIST(TOKEN)) : off_token_args #
465
#pragma interface off_token_args
465
#pragma interface off_token_args
466
 
466
 
467
#pragma token PROC (\
467
#pragma token PROC(\
468
	EXP : IDENTIFIER :,\
468
	EXP : IDENTIFIER :,\
469
	EXP : LIST ( TOKEN ) :,\
469
	EXP : LIST(TOKEN) :,\
470
	EXP lvalue : OFFSET :\
470
	EXP lvalue : OFFSET :\
471
    ) STATEMENT MAKE_off_token #
471
    ) STATEMENT MAKE_off_token #
472
#pragma interface MAKE_off_token
472
#pragma interface MAKE_off_token
473
 
473
 
474
#pragma token PROC (\
474
#pragma token PROC(\
475
	EXP lvalue : IDENTIFIER :,\
475
	EXP lvalue : IDENTIFIER :,\
476
	EXP lvalue : LIST ( TOKEN ) :,\
476
	EXP lvalue : LIST(TOKEN) :,\
477
	EXP : OFFSET :\
477
	EXP : OFFSET :\
478
    ) STATEMENT DECONS_off_token #
478
    ) STATEMENT DECONS_off_token #
479
#pragma interface DECONS_off_token
479
#pragma interface DECONS_off_token
480
 
480
 
481
#pragma token PROC (\
481
#pragma token PROC(\
482
	EXP : DESTROYER :,\
482
	EXP : DESTROYER :,\
483
	EXP lvalue : IDENTIFIER :,\
483
	EXP lvalue : IDENTIFIER :,\
484
	EXP lvalue : LIST ( TOKEN ) :,\
484
	EXP lvalue : LIST(TOKEN) :,\
485
	EXP : OFFSET :\
485
	EXP : OFFSET :\
486
    ) STATEMENT DESTROY_off_token #
486
    ) STATEMENT DESTROY_off_token #
487
#pragma interface DESTROY_off_token
487
#pragma interface DESTROY_off_token
488
 
488
 
489
 
489