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 VIRT_OPS_H_INCLUDED
 35 
#ifndef VIRT_OPS_H_INCLUDED
36 
#define VIRT_OPS_H_INCLUDED
 36 
#define VIRT_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union VIRTUAL */
 38 
/* Operations for union VIRTUAL */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : unsigned : TAG_virt #
 40 
#pragma token PROC(EXP : VIRTUAL :) EXP : unsigned : TAG_virt #
41 
#pragma interface TAG_virt
 41 
#pragma interface TAG_virt
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component func of union VIRTUAL */
 44 
/* Operations for component func of union VIRTUAL */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : VIRTUAL : )\
 46 
#pragma token PROC(EXP : VIRTUAL :)\
47 
    EXP : PTR ( IDENTIFIER ) : virt_func #
 47 
    EXP : PTR(IDENTIFIER) : virt_func #
48 
#pragma interface virt_func
 48 
#pragma interface virt_func
49 
 
 49 
 
50 
/* Operations for component no of union VIRTUAL */
 50 
/* Operations for component no of union VIRTUAL */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : VIRTUAL : )\
 52 
#pragma token PROC(EXP : VIRTUAL :)\
53 
    EXP : PTR ( ulong_type ) : virt_no #
 53 
    EXP : PTR(ulong_type) : virt_no #
54 
#pragma interface virt_no
 54 
#pragma interface virt_no
55 
 
 55 
 
56 
/* Operations for component base of union VIRTUAL */
 56 
/* Operations for component base of union VIRTUAL */
57 
 
 57 
 
58 
#pragma token PROC ( EXP : VIRTUAL : )\
 58 
#pragma token PROC(EXP : VIRTUAL :)\
59 
    EXP : PTR ( GRAPH ) : virt_base #
 59 
    EXP : PTR(GRAPH) : virt_base #
60 
#pragma interface virt_base
 60 
#pragma interface virt_base
61 
 
 61 
 
62 
/* Operations for component next of union VIRTUAL */
 62 
/* Operations for component next of union VIRTUAL */
63 
 
 63 
 
64 
#pragma token PROC ( EXP : VIRTUAL : )\
 64 
#pragma token PROC(EXP : VIRTUAL :)\
65 
    EXP : PTR ( VIRTUAL ) : virt_next #
 65 
    EXP : PTR(VIRTUAL) : virt_next #
66 
#pragma interface virt_next
 66 
#pragma interface virt_next
67 
 
 67 
 
68 
/* Operations for field table of union VIRTUAL */
 68 
/* Operations for field table of union VIRTUAL */
69 
 
 69 
 
70 
#pragma token EXP const : unsigned : virt_table_tag #
 70 
#pragma token EXP const : unsigned : virt_table_tag #
71 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_table #
 71 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_table #
72 
#pragma interface virt_table_tag IS_virt_table
 72 
#pragma interface virt_table_tag IS_virt_table
73 
 
 73 
 
74 
#pragma token PROC ( EXP : VIRTUAL : )\
 74 
#pragma token PROC(EXP : VIRTUAL :)\
75 
    EXP : PTR ( OFFSET ) : virt_table_off #
 75 
    EXP : PTR(OFFSET) : virt_table_off #
76 
#pragma interface virt_table_off
 76 
#pragma interface virt_table_off
77 
 
 77 
 
78 
#pragma token PROC ( EXP : VIRTUAL : )\
 78 
#pragma token PROC(EXP : VIRTUAL :)\
79 
    EXP : PTR ( LIST ( VIRTUAL ) ) : virt_table_entries #
 79 
    EXP : PTR(LIST(VIRTUAL)) : virt_table_entries #
80 
#pragma interface virt_table_entries
 80 
#pragma interface virt_table_entries
81 
 
 81 
 
82 
#pragma token PROC ( EXP : VIRTUAL : )\
 82 
#pragma token PROC(EXP : VIRTUAL :)\
83 
    EXP : PTR ( ulong_type ) : virt_table_tok #
 83 
    EXP : PTR(ulong_type) : virt_table_tok #
84 
#pragma interface virt_table_tok
 84 
#pragma interface virt_table_tok
85 
 
 85 
 
86 
#pragma token PROC ( EXP : VIRTUAL : )\
 86 
#pragma token PROC(EXP : VIRTUAL :)\
87 
    EXP : PTR ( ulong_type ) : virt_table_tbl #
 87 
    EXP : PTR(ulong_type) : virt_table_tbl #
88 
#pragma interface virt_table_tbl
 88 
#pragma interface virt_table_tbl
89 
 
 89 
 
90 
#pragma token PROC ( EXP : VIRTUAL : )\
 90 
#pragma token PROC(EXP : VIRTUAL :)\
91 
    EXP : PTR ( ulong_type ) : virt_table_rtti #
 91 
    EXP : PTR(ulong_type) : virt_table_rtti #
92 
#pragma interface virt_table_rtti
 92 
#pragma interface virt_table_rtti
93 
 
 93 
 
94 
#pragma token PROC ( EXP : VIRTUAL : )\
 94 
#pragma token PROC(EXP : VIRTUAL :)\
95 
    EXP : PTR ( int ) : virt_table_rtti_used #
 95 
    EXP : PTR(int) : virt_table_rtti_used #
96 
#pragma interface virt_table_rtti_used
 96 
#pragma interface virt_table_rtti_used
97 
 
 97 
 
98 
#pragma token PROC (\
 98 
#pragma token PROC(\
99 
	EXP : IDENTIFIER :,\
 99 
	EXP : IDENTIFIER :,\
100 
	EXP : ulong_type :,\
 100 
	EXP : ulong_type :,\
101 
	EXP : GRAPH :,\
 101 
	EXP : GRAPH :,\
102 
	EXP : OFFSET :,\
 102 
	EXP : OFFSET :,\
103 
	EXP lvalue : VIRTUAL :\
 103 
	EXP lvalue : VIRTUAL :\
104 
    ) STATEMENT MAKE_virt_table #
 104 
    ) STATEMENT MAKE_virt_table #
105 
#pragma interface MAKE_virt_table
 105 
#pragma interface MAKE_virt_table
106 
 
 106 
 
107 
#pragma token PROC (\
 107 
#pragma token PROC(\
108 
	EXP lvalue : IDENTIFIER :,\
 108 
	EXP lvalue : IDENTIFIER :,\
109 
	EXP lvalue : ulong_type :,\
 109 
	EXP lvalue : ulong_type :,\
110 
	EXP lvalue : GRAPH :,\
 110 
	EXP lvalue : GRAPH :,\
111 
	EXP lvalue : VIRTUAL :,\
 111 
	EXP lvalue : VIRTUAL :,\
112 
	EXP lvalue : OFFSET :,\
 112 
	EXP lvalue : OFFSET :,\
113 
	EXP lvalue : LIST ( VIRTUAL ) :,\
 113 
	EXP lvalue : LIST(VIRTUAL) :,\
114 
	EXP lvalue : ulong_type :,\
 114 
	EXP lvalue : ulong_type :,\
115 
	EXP lvalue : ulong_type :,\
 115 
	EXP lvalue : ulong_type :,\
116 
	EXP lvalue : ulong_type :,\
 116 
	EXP lvalue : ulong_type :,\
117 
	EXP lvalue : int :,\
 117 
	EXP lvalue : int :,\
118 
	EXP : VIRTUAL :\
 118 
	EXP : VIRTUAL :\
119 
    ) STATEMENT DECONS_virt_table #
 119 
    ) STATEMENT DECONS_virt_table #
120 
#pragma interface DECONS_virt_table
 120 
#pragma interface DECONS_virt_table
121 
 
 121 
 
122 
#pragma token PROC (\
 122 
#pragma token PROC(\
123 
	EXP : DESTROYER :,\
 123 
	EXP : DESTROYER :,\
124 
	EXP lvalue : IDENTIFIER :,\
 124 
	EXP lvalue : IDENTIFIER :,\
125 
	EXP lvalue : ulong_type :,\
 125 
	EXP lvalue : ulong_type :,\
126 
	EXP lvalue : GRAPH :,\
 126 
	EXP lvalue : GRAPH :,\
127 
	EXP lvalue : VIRTUAL :,\
 127 
	EXP lvalue : VIRTUAL :,\
128 
	EXP lvalue : OFFSET :,\
 128 
	EXP lvalue : OFFSET :,\
129 
	EXP lvalue : LIST ( VIRTUAL ) :,\
 129 
	EXP lvalue : LIST(VIRTUAL) :,\
130 
	EXP lvalue : ulong_type :,\
 130 
	EXP lvalue : ulong_type :,\
131 
	EXP lvalue : ulong_type :,\
 131 
	EXP lvalue : ulong_type :,\
132 
	EXP lvalue : ulong_type :,\
 132 
	EXP lvalue : ulong_type :,\
133 
	EXP lvalue : int :,\
 133 
	EXP lvalue : int :,\
134 
	EXP : VIRTUAL :\
 134 
	EXP : VIRTUAL :\
Line 137... Line 137...
137 
 
 137 
 
138 
 
 138 
 
139 
/* Operations for field simple of union VIRTUAL */
 139 
/* Operations for field simple of union VIRTUAL */
140 
 
 140 
 
141 
#pragma token EXP const : unsigned : virt_simple_tag #
 141 
#pragma token EXP const : unsigned : virt_simple_tag #
142 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_simple #
 142 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_simple #
143 
#pragma interface virt_simple_tag IS_virt_simple
 143 
#pragma interface virt_simple_tag IS_virt_simple
144 
 
 144 
 
145 
#pragma token PROC (\
 145 
#pragma token PROC(\
146 
	EXP : IDENTIFIER :,\
 146 
	EXP : IDENTIFIER :,\
147 
	EXP : ulong_type :,\
 147 
	EXP : ulong_type :,\
148 
	EXP : GRAPH :,\
 148 
	EXP : GRAPH :,\
149 
	EXP lvalue : VIRTUAL :\
 149 
	EXP lvalue : VIRTUAL :\
150 
    ) STATEMENT MAKE_virt_simple #
 150 
    ) STATEMENT MAKE_virt_simple #
151 
#pragma interface MAKE_virt_simple
 151 
#pragma interface MAKE_virt_simple
152 
 
 152 
 
153 
#pragma token PROC (\
 153 
#pragma token PROC(\
154 
	EXP lvalue : IDENTIFIER :,\
 154 
	EXP lvalue : IDENTIFIER :,\
155 
	EXP lvalue : ulong_type :,\
 155 
	EXP lvalue : ulong_type :,\
156 
	EXP lvalue : GRAPH :,\
 156 
	EXP lvalue : GRAPH :,\
157 
	EXP lvalue : VIRTUAL :,\
 157 
	EXP lvalue : VIRTUAL :,\
158 
	EXP : VIRTUAL :\
 158 
	EXP : VIRTUAL :\
159 
    ) STATEMENT DECONS_virt_simple #
 159 
    ) STATEMENT DECONS_virt_simple #
160 
#pragma interface DECONS_virt_simple
 160 
#pragma interface DECONS_virt_simple
161 
 
 161 
 
162 
#pragma token PROC (\
 162 
#pragma token PROC(\
163 
	EXP : DESTROYER :,\
 163 
	EXP : DESTROYER :,\
164 
	EXP lvalue : IDENTIFIER :,\
 164 
	EXP lvalue : IDENTIFIER :,\
165 
	EXP lvalue : ulong_type :,\
 165 
	EXP lvalue : ulong_type :,\
166 
	EXP lvalue : GRAPH :,\
 166 
	EXP lvalue : GRAPH :,\
167 
	EXP lvalue : VIRTUAL :,\
 167 
	EXP lvalue : VIRTUAL :,\
Line 171... Line 171...
171 
 
 171 
 
172 
 
 172 
 
173 
/* Operations for field override of union VIRTUAL */
 173 
/* Operations for field override of union VIRTUAL */
174 
 
 174 
 
175 
#pragma token EXP const : unsigned : virt_override_tag #
 175 
#pragma token EXP const : unsigned : virt_override_tag #
176 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_override #
 176 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_override #
177 
#pragma interface virt_override_tag IS_virt_override
 177 
#pragma interface virt_override_tag IS_virt_override
178 
 
 178 
 
179 
#pragma token PROC ( EXP : VIRTUAL : )\
 179 
#pragma token PROC(EXP : VIRTUAL :)\
180 
    EXP : PTR ( GRAPH ) : virt_override_ret #
 180 
    EXP : PTR(GRAPH) : virt_override_ret #
181 
#pragma interface virt_override_ret
 181 
#pragma interface virt_override_ret
182 
 
 182 
 
183 
#pragma token PROC ( EXP : VIRTUAL : )\
 183 
#pragma token PROC(EXP : VIRTUAL :)\
184 
    EXP : PTR ( IDENTIFIER ) : virt_override_orig #
 184 
    EXP : PTR(IDENTIFIER) : virt_override_orig #
185 
#pragma interface virt_override_orig
 185 
#pragma interface virt_override_orig
186 
 
 186 
 
187 
#pragma token PROC ( EXP : VIRTUAL : )\
 187 
#pragma token PROC(EXP : VIRTUAL :)\
188 
    EXP : PTR ( GRAPH ) : virt_override_src #
 188 
    EXP : PTR(GRAPH) : virt_override_src #
189 
#pragma interface virt_override_src
 189 
#pragma interface virt_override_src
190 
 
 190 
 
191 
#pragma token PROC (\
 191 
#pragma token PROC(\
192 
	EXP : IDENTIFIER :,\
 192 
	EXP : IDENTIFIER :,\
193 
	EXP : ulong_type :,\
 193 
	EXP : ulong_type :,\
194 
	EXP : GRAPH :,\
 194 
	EXP : GRAPH :,\
195 
	EXP : GRAPH :,\
 195 
	EXP : GRAPH :,\
196 
	EXP : IDENTIFIER :,\
 196 
	EXP : IDENTIFIER :,\
197 
	EXP : GRAPH :,\
 197 
	EXP : GRAPH :,\
198 
	EXP lvalue : VIRTUAL :\
 198 
	EXP lvalue : VIRTUAL :\
199 
    ) STATEMENT MAKE_virt_override #
 199 
    ) STATEMENT MAKE_virt_override #
200 
#pragma interface MAKE_virt_override
 200 
#pragma interface MAKE_virt_override
201 
 
 201 
 
202 
#pragma token PROC (\
 202 
#pragma token PROC(\
203 
	EXP lvalue : IDENTIFIER :,\
 203 
	EXP lvalue : IDENTIFIER :,\
204 
	EXP lvalue : ulong_type :,\
 204 
	EXP lvalue : ulong_type :,\
205 
	EXP lvalue : GRAPH :,\
 205 
	EXP lvalue : GRAPH :,\
206 
	EXP lvalue : VIRTUAL :,\
 206 
	EXP lvalue : VIRTUAL :,\
207 
	EXP lvalue : GRAPH :,\
 207 
	EXP lvalue : GRAPH :,\
Line 209... Line 209...
209 
	EXP lvalue : GRAPH :,\
 209 
	EXP lvalue : GRAPH :,\
210 
	EXP : VIRTUAL :\
 210 
	EXP : VIRTUAL :\
211 
    ) STATEMENT DECONS_virt_override #
 211 
    ) STATEMENT DECONS_virt_override #
212 
#pragma interface DECONS_virt_override
 212 
#pragma interface DECONS_virt_override
213 
 
 213 
 
214 
#pragma token PROC (\
 214 
#pragma token PROC(\
215 
	EXP : DESTROYER :,\
 215 
	EXP : DESTROYER :,\
216 
	EXP lvalue : IDENTIFIER :,\
 216 
	EXP lvalue : IDENTIFIER :,\
217 
	EXP lvalue : ulong_type :,\
 217 
	EXP lvalue : ulong_type :,\
218 
	EXP lvalue : GRAPH :,\
 218 
	EXP lvalue : GRAPH :,\
219 
	EXP lvalue : VIRTUAL :,\
 219 
	EXP lvalue : VIRTUAL :,\
Line 226... Line 226...
226 
 
 226 
 
227 
 
 227 
 
228 
/* Operations for field inherit of union VIRTUAL */
 228 
/* Operations for field inherit of union VIRTUAL */
229 
 
 229 
 
230 
#pragma token EXP const : unsigned : virt_inherit_tag #
 230 
#pragma token EXP const : unsigned : virt_inherit_tag #
231 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_inherit #
 231 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_inherit #
232 
#pragma interface virt_inherit_tag IS_virt_inherit
 232 
#pragma interface virt_inherit_tag IS_virt_inherit
233 
 
 233 
 
234 
#pragma token PROC (\
 234 
#pragma token PROC(\
235 
	EXP : IDENTIFIER :,\
 235 
	EXP : IDENTIFIER :,\
236 
	EXP : ulong_type :,\
 236 
	EXP : ulong_type :,\
237 
	EXP : GRAPH :,\
 237 
	EXP : GRAPH :,\
238 
	EXP lvalue : VIRTUAL :\
 238 
	EXP lvalue : VIRTUAL :\
239 
    ) STATEMENT MAKE_virt_inherit #
 239 
    ) STATEMENT MAKE_virt_inherit #
240 
#pragma interface MAKE_virt_inherit
 240 
#pragma interface MAKE_virt_inherit
241 
 
 241 
 
242 
#pragma token PROC (\
 242 
#pragma token PROC(\
243 
	EXP lvalue : IDENTIFIER :,\
 243 
	EXP lvalue : IDENTIFIER :,\
244 
	EXP lvalue : ulong_type :,\
 244 
	EXP lvalue : ulong_type :,\
245 
	EXP lvalue : GRAPH :,\
 245 
	EXP lvalue : GRAPH :,\
246 
	EXP lvalue : VIRTUAL :,\
 246 
	EXP lvalue : VIRTUAL :,\
247 
	EXP : VIRTUAL :\
 247 
	EXP : VIRTUAL :\
248 
    ) STATEMENT DECONS_virt_inherit #
 248 
    ) STATEMENT DECONS_virt_inherit #
249 
#pragma interface DECONS_virt_inherit
 249 
#pragma interface DECONS_virt_inherit
250 
 
 250 
 
251 
#pragma token PROC (\
 251 
#pragma token PROC(\
252 
	EXP : DESTROYER :,\
 252 
	EXP : DESTROYER :,\
253 
	EXP lvalue : IDENTIFIER :,\
 253 
	EXP lvalue : IDENTIFIER :,\
254 
	EXP lvalue : ulong_type :,\
 254 
	EXP lvalue : ulong_type :,\
255 
	EXP lvalue : GRAPH :,\
 255 
	EXP lvalue : GRAPH :,\
256 
	EXP lvalue : VIRTUAL :,\
 256 
	EXP lvalue : VIRTUAL :,\
Line 260... Line 260...
260 
 
 260 
 
261 
 
 261 
 
262 
/* Operations for field complex of union VIRTUAL */
 262 
/* Operations for field complex of union VIRTUAL */
263 
 
 263 
 
264 
#pragma token EXP const : unsigned : virt_complex_tag #
 264 
#pragma token EXP const : unsigned : virt_complex_tag #
265 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_complex #
 265 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_complex #
266 
#pragma interface virt_complex_tag IS_virt_complex
 266 
#pragma interface virt_complex_tag IS_virt_complex
267 
 
 267 
 
268 
#pragma token PROC ( EXP : VIRTUAL : )\
 268 
#pragma token PROC(EXP : VIRTUAL :)\
269 
    EXP : PTR ( GRAPH ) : virt_complex_ret #
 269 
    EXP : PTR(GRAPH) : virt_complex_ret #
270 
#pragma interface virt_complex_ret
 270 
#pragma interface virt_complex_ret
271 
 
 271 
 
272 
#pragma token PROC ( EXP : VIRTUAL : )\
 272 
#pragma token PROC(EXP : VIRTUAL :)\
273 
    EXP : PTR ( IDENTIFIER ) : virt_complex_orig #
 273 
    EXP : PTR(IDENTIFIER) : virt_complex_orig #
274 
#pragma interface virt_complex_orig
 274 
#pragma interface virt_complex_orig
275 
 
 275 
 
276 
#pragma token PROC ( EXP : VIRTUAL : )\
 276 
#pragma token PROC(EXP : VIRTUAL :)\
277 
    EXP : PTR ( GRAPH ) : virt_complex_src #
 277 
    EXP : PTR(GRAPH) : virt_complex_src #
278 
#pragma interface virt_complex_src
 278 
#pragma interface virt_complex_src
279 
 
 279 
 
280 
#pragma token PROC (\
 280 
#pragma token PROC(\
281 
	EXP : IDENTIFIER :,\
 281 
	EXP : IDENTIFIER :,\
282 
	EXP : ulong_type :,\
 282 
	EXP : ulong_type :,\
283 
	EXP : GRAPH :,\
 283 
	EXP : GRAPH :,\
284 
	EXP : GRAPH :,\
 284 
	EXP : GRAPH :,\
285 
	EXP : IDENTIFIER :,\
 285 
	EXP : IDENTIFIER :,\
286 
	EXP : GRAPH :,\
 286 
	EXP : GRAPH :,\
287 
	EXP lvalue : VIRTUAL :\
 287 
	EXP lvalue : VIRTUAL :\
288 
    ) STATEMENT MAKE_virt_complex #
 288 
    ) STATEMENT MAKE_virt_complex #
289 
#pragma interface MAKE_virt_complex
 289 
#pragma interface MAKE_virt_complex
290 
 
 290 
 
291 
#pragma token PROC (\
 291 
#pragma token PROC(\
292 
	EXP lvalue : IDENTIFIER :,\
 292 
	EXP lvalue : IDENTIFIER :,\
293 
	EXP lvalue : ulong_type :,\
 293 
	EXP lvalue : ulong_type :,\
294 
	EXP lvalue : GRAPH :,\
 294 
	EXP lvalue : GRAPH :,\
295 
	EXP lvalue : VIRTUAL :,\
 295 
	EXP lvalue : VIRTUAL :,\
296 
	EXP lvalue : GRAPH :,\
 296 
	EXP lvalue : GRAPH :,\
Line 298... Line 298...
298 
	EXP lvalue : GRAPH :,\
 298 
	EXP lvalue : GRAPH :,\
299 
	EXP : VIRTUAL :\
 299 
	EXP : VIRTUAL :\
300 
    ) STATEMENT DECONS_virt_complex #
 300 
    ) STATEMENT DECONS_virt_complex #
301 
#pragma interface DECONS_virt_complex
 301 
#pragma interface DECONS_virt_complex
302 
 
 302 
 
303 
#pragma token PROC (\
 303 
#pragma token PROC(\
304 
	EXP : DESTROYER :,\
 304 
	EXP : DESTROYER :,\
305 
	EXP lvalue : IDENTIFIER :,\
 305 
	EXP lvalue : IDENTIFIER :,\
306 
	EXP lvalue : ulong_type :,\
 306 
	EXP lvalue : ulong_type :,\
307 
	EXP lvalue : GRAPH :,\
 307 
	EXP lvalue : GRAPH :,\
308 
	EXP lvalue : VIRTUAL :,\
 308 
	EXP lvalue : VIRTUAL :,\
Line 315... Line 315...
315 
 
 315 
 
316 
 
 316 
 
317 
/* Operations for field link of union VIRTUAL */
 317 
/* Operations for field link of union VIRTUAL */
318 
 
 318 
 
319 
#pragma token EXP const : unsigned : virt_link_tag #
 319 
#pragma token EXP const : unsigned : virt_link_tag #
320 
#pragma token PROC ( EXP : VIRTUAL : ) EXP : int : IS_virt_link #
 320 
#pragma token PROC(EXP : VIRTUAL :) EXP : int : IS_virt_link #
321 
#pragma interface virt_link_tag IS_virt_link
 321 
#pragma interface virt_link_tag IS_virt_link
322 
 
 322 
 
323 
#pragma token PROC ( EXP : VIRTUAL : )\
 323 
#pragma token PROC(EXP : VIRTUAL :)\
324 
    EXP : PTR ( PTR ( VIRTUAL ) ) : virt_link_to #
 324 
    EXP : PTR(PTR(VIRTUAL)) : virt_link_to #
325 
#pragma interface virt_link_to
 325 
#pragma interface virt_link_to
326 
 
 326 
 
327 
#pragma token PROC (\
 327 
#pragma token PROC(\
328 
	EXP : IDENTIFIER :,\
 328 
	EXP : IDENTIFIER :,\
329 
	EXP : ulong_type :,\
 329 
	EXP : ulong_type :,\
330 
	EXP : GRAPH :,\
 330 
	EXP : GRAPH :,\
331 
	EXP : PTR ( VIRTUAL ) :,\
 331 
	EXP : PTR(VIRTUAL) :,\
332 
	EXP lvalue : VIRTUAL :\
 332 
	EXP lvalue : VIRTUAL :\
333 
    ) STATEMENT MAKE_virt_link #
 333 
    ) STATEMENT MAKE_virt_link #
334 
#pragma interface MAKE_virt_link
 334 
#pragma interface MAKE_virt_link
335 
 
 335 
 
336 
#pragma token PROC (\
 336 
#pragma token PROC(\
337 
	EXP lvalue : IDENTIFIER :,\
 337 
	EXP lvalue : IDENTIFIER :,\
338 
	EXP lvalue : ulong_type :,\
 338 
	EXP lvalue : ulong_type :,\
339 
	EXP lvalue : GRAPH :,\
 339 
	EXP lvalue : GRAPH :,\
340 
	EXP lvalue : VIRTUAL :,\
 340 
	EXP lvalue : VIRTUAL :,\
341 
	EXP lvalue : PTR ( VIRTUAL ) :,\
 341 
	EXP lvalue : PTR(VIRTUAL) :,\
342 
	EXP : VIRTUAL :\
 342 
	EXP : VIRTUAL :\
343 
    ) STATEMENT DECONS_virt_link #
 343 
    ) STATEMENT DECONS_virt_link #
344 
#pragma interface DECONS_virt_link
 344 
#pragma interface DECONS_virt_link
345 
 
 345 
 
346 
#pragma token PROC (\
 346 
#pragma token PROC(\
347 
	EXP : DESTROYER :,\
 347 
	EXP : DESTROYER :,\
348 
	EXP lvalue : IDENTIFIER :,\
 348 
	EXP lvalue : IDENTIFIER :,\
349 
	EXP lvalue : ulong_type :,\
 349 
	EXP lvalue : ulong_type :,\
350 
	EXP lvalue : GRAPH :,\
 350 
	EXP lvalue : GRAPH :,\
351 
	EXP lvalue : VIRTUAL :,\
 351 
	EXP lvalue : VIRTUAL :,\
352 
	EXP lvalue : PTR ( VIRTUAL ) :,\
 352 
	EXP lvalue : PTR(VIRTUAL) :,\
353 
	EXP : VIRTUAL :\
 353 
	EXP : VIRTUAL :\
354 
    ) STATEMENT DESTROY_virt_link #
 354 
    ) STATEMENT DESTROY_virt_link #
355 
#pragma interface DESTROY_virt_link
 355 
#pragma interface DESTROY_virt_link
356 
 
 356 
 
357 
 
 357