1 /* This C file is generated by NIT to compile module primitive_info. */
2 #include "primitive_info._sep.h"
3 val_t
primitive_info___MMLocalClass___primitive_info(val_t p0
){
4 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
9 static val_t once_value_2
; /* Once value */
10 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
11 fra
.me
.file
= LOCATE_primitive_info
;
13 fra
.me
.meth
= LOCATE_primitive_info___MMLocalClass___primitive_info
;
16 fra
.me
.REG
[0] = NIT_NULL
;
17 fra
.me
.REG
[1] = NIT_NULL
;
18 fra
.me
.REG
[2] = NIT_NULL
;
19 fra
.me
.REG
[3] = NIT_NULL
;
20 fra
.me
.REG
[4] = NIT_NULL
;
22 REGB0
= TAG_Bool(ATTR_primitive_info___MMLocalClass____primitive_info_b(fra
.me
.REG
[0])!=NIT_NULL
);
23 /* ./primitive_info.nit:36 */
24 if (UNTAG_Bool(REGB0
)) {
26 fprintf(stderr
, "Uninitialized attribute %s", "_primitive_info_b");
27 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 36);
30 REGB0
= ATTR_primitive_info___MMLocalClass____primitive_info_b(fra
.me
.REG
[0]);
31 REGB1
= TAG_Bool(true);
32 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB1
));
33 if (UNTAG_Bool(REGB2
)) {
35 REGB1
= TAG_Bool((REGB0
)==(REGB1
));
37 /* ./primitive_info.nit:36 */
39 if (UNTAG_Bool(REGB2
)) {
40 fra
.me
.REG
[1] = ATTR_primitive_info___MMLocalClass____primitive_info_cache(fra
.me
.REG
[0]);
43 /* ./primitive_info.nit:38 */
45 fra
.me
.REG
[2] = CALL_primitive_info___MMLocalClass___primitive_ctypes(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
46 once_value_2
= fra
.me
.REG
[2];
47 register_static_object(&once_value_2
);
48 } else fra
.me
.REG
[2] = once_value_2
;
49 fra
.me
.REG
[3] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
50 REGB2
= CALL_abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
51 /* ./primitive_info.nit:39 */
52 if (UNTAG_Bool(REGB2
)) {
53 fra
.me
.REG
[3] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
54 fra
.me
.REG
[3] = CALL_abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
55 /* ./primitive_info.nit:40 */
56 ATTR_primitive_info___MMLocalClass____primitive_info_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[3];
57 REGB2
= TAG_Bool(true);
58 /* ./primitive_info.nit:41 */
59 ATTR_primitive_info___MMLocalClass____primitive_info_b(fra
.me
.REG
[0]) = REGB2
;
60 fra
.me
.REG
[3] = ATTR_primitive_info___MMLocalClass____primitive_info_cache(fra
.me
.REG
[0]);
61 fra
.me
.REG
[1] = fra
.me
.REG
[3];
62 /* ./primitive_info.nit:42 */
65 fra
.me
.REG
[2] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
66 /* ./primitive_info.nit:45 */
68 REGB2
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
69 if (UNTAG_Bool(REGB2
)) {
70 fra
.me
.REG
[3] = CALL_abstract_collection___MapIterator___key(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
71 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___module(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
72 REGB2
= CALL_abstractmetamodel___MMModule___has_global_class_named(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
73 /* ./primitive_info.nit:47 */
74 if (UNTAG_Bool(REGB2
)) {
75 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___module(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
76 fra
.me
.REG
[3] = CALL_abstractmetamodel___MMModule___class_by_name(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
77 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___cshe(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
78 REGB2
= CALL_partial_order___PartialOrderElement_____l(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
79 /* ./primitive_info.nit:49 */
80 if (UNTAG_Bool(REGB2
)) {
81 fra
.me
.REG
[3] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
82 /* ./primitive_info.nit:50 */
83 ATTR_primitive_info___MMLocalClass____primitive_info_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[3];
84 REGB2
= TAG_Bool(true);
85 /* ./primitive_info.nit:51 */
86 ATTR_primitive_info___MMLocalClass____primitive_info_b(fra
.me
.REG
[0]) = REGB2
;
87 fra
.me
.REG
[3] = ATTR_primitive_info___MMLocalClass____primitive_info_cache(fra
.me
.REG
[0]);
88 fra
.me
.REG
[1] = fra
.me
.REG
[3];
89 /* ./primitive_info.nit:52 */
93 /* ./primitive_info.nit:55 */
94 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
96 /* ./primitive_info.nit:45 */
101 REGB2
= TAG_Bool(true);
102 /* ./primitive_info.nit:57 */
103 ATTR_primitive_info___MMLocalClass____primitive_info_b(fra
.me
.REG
[0]) = REGB2
;
104 fra
.me
.REG
[1] = NIT_NULL
;
105 /* ./primitive_info.nit:58 */
108 stack_frame_head
= fra
.me
.prev
;
109 return fra
.me
.REG
[1];
111 val_t
primitive_info___MMLocalClass___primitive_ctypes(val_t p0
){
112 struct {struct stack_frame_t me
; val_t MORE_REG
[7];} fra
;
118 static val_t once_value_1
; /* Once value */
119 static val_t once_value_2
; /* Once value */
120 static val_t once_value_3
; /* Once value */
121 static val_t once_value_4
; /* Once value */
122 static val_t once_value_5
; /* Once value */
123 static val_t once_value_6
; /* Once value */
124 static val_t once_value_7
; /* Once value */
125 static val_t once_value_8
; /* Once value */
126 static val_t once_value_9
; /* Once value */
127 static val_t once_value_10
; /* Once value */
128 static val_t once_value_11
; /* Once value */
129 static val_t once_value_12
; /* Once value */
130 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
131 fra
.me
.file
= LOCATE_primitive_info
;
133 fra
.me
.meth
= LOCATE_primitive_info___MMLocalClass___primitive_ctypes
;
134 fra
.me
.has_broke
= 0;
136 fra
.me
.REG
[0] = NIT_NULL
;
137 fra
.me
.REG
[1] = NIT_NULL
;
138 fra
.me
.REG
[2] = NIT_NULL
;
139 fra
.me
.REG
[3] = NIT_NULL
;
140 fra
.me
.REG
[4] = NIT_NULL
;
141 fra
.me
.REG
[5] = NIT_NULL
;
142 fra
.me
.REG
[6] = NIT_NULL
;
143 fra
.me
.REG
[7] = NIT_NULL
;
145 fra
.me
.REG
[0] = NEW_HashMap_hash_collection___HashMap___init();
147 fra
.me
.REG
[1] = NEW_Array_array___Array___with_capacity(REGB0
);
148 /* ./primitive_info.nit:65 */
150 fra
.me
.REG
[2] = BOX_NativeString("Int");
152 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
153 once_value_1
= fra
.me
.REG
[2];
154 register_static_object(&once_value_1
);
155 } else fra
.me
.REG
[2] = once_value_1
;
156 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
158 fra
.me
.REG
[2] = BOX_NativeString("Char");
160 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
161 once_value_2
= fra
.me
.REG
[2];
162 register_static_object(&once_value_2
);
163 } else fra
.me
.REG
[2] = once_value_2
;
164 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
166 fra
.me
.REG
[2] = BOX_NativeString("Bool");
168 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
169 once_value_3
= fra
.me
.REG
[2];
170 register_static_object(&once_value_3
);
171 } else fra
.me
.REG
[2] = once_value_3
;
172 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
174 fra
.me
.REG
[2] = BOX_NativeString("Float");
176 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
177 once_value_4
= fra
.me
.REG
[2];
178 register_static_object(&once_value_4
);
179 } else fra
.me
.REG
[2] = once_value_4
;
180 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
182 fra
.me
.REG
[2] = BOX_NativeString("NativeString");
184 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
185 once_value_5
= fra
.me
.REG
[2];
186 register_static_object(&once_value_5
);
187 } else fra
.me
.REG
[2] = once_value_5
;
188 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
190 fra
.me
.REG
[2] = BOX_NativeString("Pointer");
192 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
193 once_value_6
= fra
.me
.REG
[2];
194 register_static_object(&once_value_6
);
195 } else fra
.me
.REG
[2] = once_value_6
;
196 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
198 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
199 REGB0
= TAG_Bool(true);
200 /* ./primitive_info.nit:66 */
201 array___Array___add(fra
.me
.REG
[2], REGB0
);
202 REGB0
= TAG_Bool(true);
203 array___Array___add(fra
.me
.REG
[2], REGB0
);
204 REGB0
= TAG_Bool(true);
205 array___Array___add(fra
.me
.REG
[2], REGB0
);
206 REGB0
= TAG_Bool(false);
207 array___Array___add(fra
.me
.REG
[2], REGB0
);
208 REGB0
= TAG_Bool(false);
209 array___Array___add(fra
.me
.REG
[2], REGB0
);
210 REGB0
= TAG_Bool(false);
211 array___Array___add(fra
.me
.REG
[2], REGB0
);
213 fra
.me
.REG
[3] = NEW_Array_array___Array___with_capacity(REGB0
);
214 /* ./primitive_info.nit:67 */
216 fra
.me
.REG
[4] = BOX_NativeString("bigint");
218 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
219 once_value_7
= fra
.me
.REG
[4];
220 register_static_object(&once_value_7
);
221 } else fra
.me
.REG
[4] = once_value_7
;
222 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
224 fra
.me
.REG
[4] = BOX_NativeString("char");
226 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
227 once_value_8
= fra
.me
.REG
[4];
228 register_static_object(&once_value_8
);
229 } else fra
.me
.REG
[4] = once_value_8
;
230 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
232 fra
.me
.REG
[4] = BOX_NativeString("int");
234 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
235 once_value_9
= fra
.me
.REG
[4];
236 register_static_object(&once_value_9
);
237 } else fra
.me
.REG
[4] = once_value_9
;
238 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
239 if (!once_value_10
) {
240 fra
.me
.REG
[4] = BOX_NativeString("float");
242 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
243 once_value_10
= fra
.me
.REG
[4];
244 register_static_object(&once_value_10
);
245 } else fra
.me
.REG
[4] = once_value_10
;
246 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
247 if (!once_value_11
) {
248 fra
.me
.REG
[4] = BOX_NativeString("char *");
250 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
251 once_value_11
= fra
.me
.REG
[4];
252 register_static_object(&once_value_11
);
253 } else fra
.me
.REG
[4] = once_value_11
;
254 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
255 if (!once_value_12
) {
256 fra
.me
.REG
[4] = BOX_NativeString("void *");
258 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
259 once_value_12
= fra
.me
.REG
[4];
260 register_static_object(&once_value_12
);
261 } else fra
.me
.REG
[4] = once_value_12
;
262 array___Array___add(fra
.me
.REG
[3], fra
.me
.REG
[4]);
264 REGB1
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
265 /* ./../lib/standard//collection//array.nit:23 */
266 if (UNTAG_Bool(REGB1
)) {
268 fprintf(stderr
, "Uninitialized attribute %s", "_length");
269 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 23);
272 REGB1
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1]);
273 fra
.me
.REG
[4] = NEW_Range_range___Range___without_last(REGB0
, REGB1
);
274 fra
.me
.REG
[4] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
275 /* ./primitive_info.nit:68 */
277 REGB1
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
278 if (UNTAG_Bool(REGB1
)) {
279 REGB1
= CALL_abstract_collection___Iterator___item(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
280 fra
.me
.REG
[5] = fra
.me
.REG
[1];
283 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB2
));
284 /* ./../lib/standard//collection//array.nit:233 */
285 if (UNTAG_Bool(REGB2
)) {
286 REGB2
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[5])!=NIT_NULL
);
287 if (UNTAG_Bool(REGB2
)) {
289 fprintf(stderr
, "Uninitialized attribute %s", "_length");
290 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
293 REGB2
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[5]);
294 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
295 /* ./../lib/standard//collection//array.nit:233 */
297 REGB3
= TAG_Bool(false);
300 if (UNTAG_Bool(REGB2
)) {
302 fprintf(stderr
, "Assert %s failed", "'index'");
303 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
306 fra
.me
.REG
[5] = ATTR_array___Array____items(fra
.me
.REG
[5]);
307 REGB2
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
308 /* ./../lib/standard//collection//array.nit:234 */
309 if (UNTAG_Bool(REGB2
)) {
310 fprintf(stderr
, "Reciever is null");
311 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 234);
314 fra
.me
.REG
[5] = ((Nit_NativeArray
)fra
.me
.REG
[5])->val
[UNTAG_Int(REGB0
)];
315 /* ./../lib/standard//collection//array.nit:234 */
318 REGB0
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
319 /* ./primitive_info.nit:69 */
320 if (UNTAG_Bool(REGB0
)) {
321 fprintf(stderr
, "Reciever is null");
322 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 69);
325 fra
.me
.REG
[5] = CALL_symbol___String___to_symbol(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
326 fra
.me
.REG
[6] = fra
.me
.REG
[2];
329 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB2
));
330 /* ./../lib/standard//collection//array.nit:233 */
331 if (UNTAG_Bool(REGB2
)) {
332 REGB2
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[6])!=NIT_NULL
);
333 if (UNTAG_Bool(REGB2
)) {
335 fprintf(stderr
, "Uninitialized attribute %s", "_length");
336 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
339 REGB2
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[6]);
340 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
341 /* ./../lib/standard//collection//array.nit:233 */
343 REGB3
= TAG_Bool(false);
346 if (UNTAG_Bool(REGB2
)) {
348 fprintf(stderr
, "Assert %s failed", "'index'");
349 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
352 fra
.me
.REG
[6] = ATTR_array___Array____items(fra
.me
.REG
[6]);
353 REGB2
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
354 /* ./../lib/standard//collection//array.nit:234 */
355 if (UNTAG_Bool(REGB2
)) {
356 fprintf(stderr
, "Reciever is null");
357 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 234);
360 fra
.me
.REG
[6] = ((Nit_NativeArray
)fra
.me
.REG
[6])->val
[UNTAG_Int(REGB0
)];
361 /* ./../lib/standard//collection//array.nit:234 */
364 fra
.me
.REG
[7] = fra
.me
.REG
[3];
366 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)>=UNTAG_Int(REGB0
));
367 /* ./../lib/standard//collection//array.nit:233 */
368 if (UNTAG_Bool(REGB0
)) {
369 REGB0
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[7])!=NIT_NULL
);
370 if (UNTAG_Bool(REGB0
)) {
372 fprintf(stderr
, "Uninitialized attribute %s", "_length");
373 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
376 REGB0
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[7]);
377 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
378 /* ./../lib/standard//collection//array.nit:233 */
380 REGB2
= TAG_Bool(false);
383 if (UNTAG_Bool(REGB0
)) {
385 fprintf(stderr
, "Assert %s failed", "'index'");
386 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
389 fra
.me
.REG
[7] = ATTR_array___Array____items(fra
.me
.REG
[7]);
390 REGB0
= TAG_Bool(fra
.me
.REG
[7]==NIT_NULL
);
391 /* ./../lib/standard//collection//array.nit:234 */
392 if (UNTAG_Bool(REGB0
)) {
393 fprintf(stderr
, "Reciever is null");
394 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 234);
397 fra
.me
.REG
[7] = ((Nit_NativeArray
)fra
.me
.REG
[7])->val
[UNTAG_Int(REGB1
)];
398 /* ./../lib/standard//collection//array.nit:234 */
401 fra
.me
.REG
[7] = NEW_PrimitiveInfo_primitive_info___PrimitiveInfo___init(fra
.me
.REG
[5], fra
.me
.REG
[6], fra
.me
.REG
[7]);
402 /* ./primitive_info.nit:71 */
403 CALL_abstract_collection___Map_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[5], fra
.me
.REG
[7]);
405 /* ./primitive_info.nit:68 */
408 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
411 /* ./primitive_info.nit:73 */
414 stack_frame_head
= fra
.me
.prev
;
415 return fra
.me
.REG
[0];
417 val_t
primitive_info___PrimitiveInfo___name(val_t p0
){
418 struct {struct stack_frame_t me
;} fra
;
421 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
422 fra
.me
.file
= LOCATE_primitive_info
;
424 fra
.me
.meth
= LOCATE_primitive_info___PrimitiveInfo___name
;
425 fra
.me
.has_broke
= 0;
427 fra
.me
.REG
[0] = NIT_NULL
;
429 REGB0
= TAG_Bool(ATTR_primitive_info___PrimitiveInfo____name(fra
.me
.REG
[0])!=NIT_NULL
);
430 /* ./primitive_info.nit:79 */
431 if (UNTAG_Bool(REGB0
)) {
433 fprintf(stderr
, "Uninitialized attribute %s", "_name");
434 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 79);
437 fra
.me
.REG
[0] = ATTR_primitive_info___PrimitiveInfo____name(fra
.me
.REG
[0]);
438 stack_frame_head
= fra
.me
.prev
;
439 return fra
.me
.REG
[0];
441 val_t
primitive_info___PrimitiveInfo___tagged(val_t p0
){
442 struct {struct stack_frame_t me
;} fra
;
445 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
446 fra
.me
.file
= LOCATE_primitive_info
;
448 fra
.me
.meth
= LOCATE_primitive_info___PrimitiveInfo___tagged
;
449 fra
.me
.has_broke
= 0;
451 fra
.me
.REG
[0] = NIT_NULL
;
453 REGB0
= TAG_Bool(ATTR_primitive_info___PrimitiveInfo____tagged(fra
.me
.REG
[0])!=NIT_NULL
);
454 /* ./primitive_info.nit:82 */
455 if (UNTAG_Bool(REGB0
)) {
457 fprintf(stderr
, "Uninitialized attribute %s", "_tagged");
458 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 82);
461 REGB0
= ATTR_primitive_info___PrimitiveInfo____tagged(fra
.me
.REG
[0]);
462 stack_frame_head
= fra
.me
.prev
;
465 val_t
primitive_info___PrimitiveInfo___cname(val_t p0
){
466 struct {struct stack_frame_t me
;} fra
;
469 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
470 fra
.me
.file
= LOCATE_primitive_info
;
472 fra
.me
.meth
= LOCATE_primitive_info___PrimitiveInfo___cname
;
473 fra
.me
.has_broke
= 0;
475 fra
.me
.REG
[0] = NIT_NULL
;
477 REGB0
= TAG_Bool(ATTR_primitive_info___PrimitiveInfo____cname(fra
.me
.REG
[0])!=NIT_NULL
);
478 /* ./primitive_info.nit:85 */
479 if (UNTAG_Bool(REGB0
)) {
481 fprintf(stderr
, "Uninitialized attribute %s", "_cname");
482 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 85);
485 fra
.me
.REG
[0] = ATTR_primitive_info___PrimitiveInfo____cname(fra
.me
.REG
[0]);
486 stack_frame_head
= fra
.me
.prev
;
487 return fra
.me
.REG
[0];
489 void primitive_info___PrimitiveInfo___init(val_t p0
, val_t p1
, val_t p2
, val_t p3
, int* init_table
){
490 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_PrimitiveInfo
].i
;
491 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
494 if (init_table
[itpos0
]) return;
495 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
496 fra
.me
.file
= LOCATE_primitive_info
;
498 fra
.me
.meth
= LOCATE_primitive_info___PrimitiveInfo___init
;
499 fra
.me
.has_broke
= 0;
501 fra
.me
.REG
[0] = NIT_NULL
;
502 fra
.me
.REG
[1] = NIT_NULL
;
503 fra
.me
.REG
[2] = NIT_NULL
;
508 /* ./primitive_info.nit:90 */
509 ATTR_primitive_info___PrimitiveInfo____name(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
510 /* ./primitive_info.nit:91 */
511 ATTR_primitive_info___PrimitiveInfo____tagged(fra
.me
.REG
[0]) = REGB0
;
512 /* ./primitive_info.nit:92 */
513 ATTR_primitive_info___PrimitiveInfo____cname(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
514 stack_frame_head
= fra
.me
.prev
;
515 init_table
[itpos0
] = 1;
518 val_t
primitive_info___MMType___cname(val_t p0
){
519 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
523 static val_t once_value_1
; /* Once value */
524 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
525 fra
.me
.file
= LOCATE_primitive_info
;
527 fra
.me
.meth
= LOCATE_primitive_info___MMType___cname
;
528 fra
.me
.has_broke
= 0;
530 fra
.me
.REG
[0] = NIT_NULL
;
531 fra
.me
.REG
[1] = NIT_NULL
;
533 fra
.me
.REG
[0] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
534 fra
.me
.REG
[0] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
535 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
536 /* ./primitive_info.nit:101 */
537 if (UNTAG_Bool(REGB0
)) {
539 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
540 if (UNTAG_Bool(REGB1
)) {
541 REGB1
= TAG_Bool(false);
544 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
548 if (UNTAG_Bool(REGB0
)) {
549 /* ./primitive_info.nit:102 */
551 fra
.me
.REG
[1] = BOX_NativeString("val_t");
553 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
554 once_value_1
= fra
.me
.REG
[1];
555 register_static_object(&once_value_1
);
556 } else fra
.me
.REG
[1] = once_value_1
;
559 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
560 /* ./primitive_info.nit:104 */
561 if (UNTAG_Bool(REGB0
)) {
562 fprintf(stderr
, "Reciever is null");
563 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 104);
566 fra
.me
.REG
[0] = CALL_primitive_info___PrimitiveInfo___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
567 fra
.me
.REG
[1] = fra
.me
.REG
[0];
571 stack_frame_head
= fra
.me
.prev
;
572 return fra
.me
.REG
[1];
574 val_t
primitive_info___MMType___is_tagged(val_t p0
){
575 struct {struct stack_frame_t me
;} fra
;
580 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
581 fra
.me
.file
= LOCATE_primitive_info
;
583 fra
.me
.meth
= LOCATE_primitive_info___MMType___is_tagged
;
584 fra
.me
.has_broke
= 0;
586 fra
.me
.REG
[0] = NIT_NULL
;
588 REGB0
= CALL_static_type___MMType___is_nullable(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
589 /* ./primitive_info.nit:111 */
590 if (UNTAG_Bool(REGB0
)) {
591 REGB0
= TAG_Bool(false);
594 fra
.me
.REG
[0] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
595 fra
.me
.REG
[0] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
596 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
597 /* ./primitive_info.nit:113 */
598 if (UNTAG_Bool(REGB1
)) {
600 REGB2
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
601 if (UNTAG_Bool(REGB2
)) {
602 REGB2
= TAG_Bool(false);
605 REGB2
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
609 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
610 if (UNTAG_Bool(REGB1
)) {
611 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
612 if (UNTAG_Bool(REGB1
)) {
613 fprintf(stderr
, "Reciever is null");
614 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 113);
617 REGB1
= CALL_primitive_info___PrimitiveInfo___tagged(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
619 REGB2
= TAG_Bool(false);
625 stack_frame_head
= fra
.me
.prev
;
628 val_t
primitive_info___MMType___default_cvalue(val_t p0
){
629 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
633 static val_t once_value_1
; /* Once value */
634 static val_t once_value_2
; /* Once value */
635 static val_t once_value_3
; /* Once value */
636 static val_t once_value_5
; /* Once value */
637 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
638 fra
.me
.file
= LOCATE_primitive_info
;
640 fra
.me
.meth
= LOCATE_primitive_info___MMType___default_cvalue
;
641 fra
.me
.has_broke
= 0;
643 fra
.me
.REG
[0] = NIT_NULL
;
644 fra
.me
.REG
[1] = NIT_NULL
;
645 fra
.me
.REG
[2] = NIT_NULL
;
646 fra
.me
.REG
[3] = NIT_NULL
;
648 fra
.me
.REG
[1] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
649 fra
.me
.REG
[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
650 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
651 /* ./primitive_info.nit:121 */
652 if (UNTAG_Bool(REGB0
)) {
654 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
655 if (UNTAG_Bool(REGB1
)) {
656 REGB1
= TAG_Bool(false);
659 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
663 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
664 if (UNTAG_Bool(REGB0
)) {
665 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
666 if (UNTAG_Bool(REGB0
)) {
667 fprintf(stderr
, "Reciever is null");
668 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 121);
671 REGB0
= CALL_primitive_info___PrimitiveInfo___tagged(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
673 REGB1
= TAG_Bool(false);
676 if (UNTAG_Bool(REGB0
)) {
678 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
679 /* ./primitive_info.nit:122 */
681 fra
.me
.REG
[3] = BOX_NativeString("TAG_");
683 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
684 once_value_1
= fra
.me
.REG
[3];
685 register_static_object(&once_value_1
);
686 } else fra
.me
.REG
[3] = once_value_1
;
687 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[3]);
688 fra
.me
.REG
[0] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
689 fra
.me
.REG
[0] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
690 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
691 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
693 fra
.me
.REG
[0] = BOX_NativeString("((");
695 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
696 once_value_2
= fra
.me
.REG
[0];
697 register_static_object(&once_value_2
);
698 } else fra
.me
.REG
[0] = once_value_2
;
699 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
700 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
701 if (UNTAG_Bool(REGB0
)) {
702 fprintf(stderr
, "Reciever is null");
703 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 122);
706 fra
.me
.REG
[1] = CALL_primitive_info___PrimitiveInfo___cname(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
707 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
709 fra
.me
.REG
[1] = BOX_NativeString(")0)");
711 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
712 once_value_3
= fra
.me
.REG
[1];
713 register_static_object(&once_value_3
);
714 } else fra
.me
.REG
[1] = once_value_3
;
715 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
716 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
719 /* ./primitive_info.nit:124 */
721 fra
.me
.REG
[1] = BOX_NativeString("NIT_NULL");
723 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
724 once_value_5
= fra
.me
.REG
[1];
725 register_static_object(&once_value_5
);
726 } else fra
.me
.REG
[1] = once_value_5
;
727 fra
.me
.REG
[2] = fra
.me
.REG
[1];
731 stack_frame_head
= fra
.me
.prev
;
732 return fra
.me
.REG
[2];
734 val_t
primitive_info___MMType___boxtype(val_t p0
, val_t p1
){
735 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
739 static val_t once_value_2
; /* Once value */
740 static val_t once_value_3
; /* Once value */
741 static val_t once_value_4
; /* Once value */
742 static val_t once_value_5
; /* Once value */
743 static val_t once_value_6
; /* Once value */
744 static val_t once_value_7
; /* Once value */
745 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
746 fra
.me
.file
= LOCATE_primitive_info
;
748 fra
.me
.meth
= LOCATE_primitive_info___MMType___boxtype
;
749 fra
.me
.has_broke
= 0;
751 fra
.me
.REG
[0] = NIT_NULL
;
752 fra
.me
.REG
[1] = NIT_NULL
;
753 fra
.me
.REG
[2] = NIT_NULL
;
754 fra
.me
.REG
[3] = NIT_NULL
;
755 fra
.me
.REG
[4] = NIT_NULL
;
758 fra
.me
.REG
[2] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
759 fra
.me
.REG
[2] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
760 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
761 /* ./primitive_info.nit:133 */
762 if (UNTAG_Bool(REGB0
)) {
764 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
765 if (UNTAG_Bool(REGB1
)) {
766 REGB1
= TAG_Bool(false);
769 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
773 if (UNTAG_Bool(REGB0
)) {
774 fra
.me
.REG
[3] = fra
.me
.REG
[1];
775 /* ./primitive_info.nit:134 */
778 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
779 /* ./primitive_info.nit:135 */
780 if (UNTAG_Bool(REGB0
)) {
781 fprintf(stderr
, "Reciever is null");
782 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 135);
785 REGB0
= CALL_primitive_info___PrimitiveInfo___tagged(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
786 if (UNTAG_Bool(REGB0
)) {
788 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
789 /* ./primitive_info.nit:136 */
791 fra
.me
.REG
[4] = BOX_NativeString("TAG_");
793 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
794 once_value_2
= fra
.me
.REG
[4];
795 register_static_object(&once_value_2
);
796 } else fra
.me
.REG
[4] = once_value_2
;
797 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
798 fra
.me
.REG
[4] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
799 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
800 fra
.me
.REG
[4] = CALL_string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
801 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
803 fra
.me
.REG
[4] = BOX_NativeString("(");
805 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
806 once_value_3
= fra
.me
.REG
[4];
807 register_static_object(&once_value_3
);
808 } else fra
.me
.REG
[4] = once_value_3
;
809 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
810 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
812 fra
.me
.REG
[4] = BOX_NativeString(")");
814 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
815 once_value_4
= fra
.me
.REG
[4];
816 register_static_object(&once_value_4
);
817 } else fra
.me
.REG
[4] = once_value_4
;
818 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
819 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
820 fra
.me
.REG
[3] = fra
.me
.REG
[2];
824 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
825 /* ./primitive_info.nit:138 */
827 fra
.me
.REG
[4] = BOX_NativeString("BOX_");
829 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
830 once_value_5
= fra
.me
.REG
[4];
831 register_static_object(&once_value_5
);
832 } else fra
.me
.REG
[4] = once_value_5
;
833 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
834 fra
.me
.REG
[0] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
835 fra
.me
.REG
[0] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
836 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
837 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
839 fra
.me
.REG
[0] = BOX_NativeString("(");
841 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
842 once_value_6
= fra
.me
.REG
[0];
843 register_static_object(&once_value_6
);
844 } else fra
.me
.REG
[0] = once_value_6
;
845 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
846 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
848 fra
.me
.REG
[1] = BOX_NativeString(")");
850 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
851 once_value_7
= fra
.me
.REG
[1];
852 register_static_object(&once_value_7
);
853 } else fra
.me
.REG
[1] = once_value_7
;
854 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
855 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
856 fra
.me
.REG
[3] = fra
.me
.REG
[2];
861 stack_frame_head
= fra
.me
.prev
;
862 return fra
.me
.REG
[3];
864 val_t
primitive_info___MMType___unboxtype(val_t p0
, val_t p1
){
865 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
869 static val_t once_value_2
; /* Once value */
870 static val_t once_value_3
; /* Once value */
871 static val_t once_value_4
; /* Once value */
872 static val_t once_value_5
; /* Once value */
873 static val_t once_value_6
; /* Once value */
874 static val_t once_value_7
; /* Once value */
875 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
876 fra
.me
.file
= LOCATE_primitive_info
;
878 fra
.me
.meth
= LOCATE_primitive_info___MMType___unboxtype
;
879 fra
.me
.has_broke
= 0;
881 fra
.me
.REG
[0] = NIT_NULL
;
882 fra
.me
.REG
[1] = NIT_NULL
;
883 fra
.me
.REG
[2] = NIT_NULL
;
884 fra
.me
.REG
[3] = NIT_NULL
;
885 fra
.me
.REG
[4] = NIT_NULL
;
888 fra
.me
.REG
[2] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
889 fra
.me
.REG
[2] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
890 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
891 /* ./primitive_info.nit:147 */
892 if (UNTAG_Bool(REGB0
)) {
894 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
895 if (UNTAG_Bool(REGB1
)) {
896 REGB1
= TAG_Bool(false);
899 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
903 if (UNTAG_Bool(REGB0
)) {
904 fra
.me
.REG
[3] = fra
.me
.REG
[1];
905 /* ./primitive_info.nit:148 */
908 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
909 /* ./primitive_info.nit:149 */
910 if (UNTAG_Bool(REGB0
)) {
911 fprintf(stderr
, "Reciever is null");
912 fprintf(stderr
, " (%s:%d)\n", LOCATE_primitive_info
, 149);
915 REGB0
= CALL_primitive_info___PrimitiveInfo___tagged(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
916 if (UNTAG_Bool(REGB0
)) {
918 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
919 /* ./primitive_info.nit:150 */
921 fra
.me
.REG
[4] = BOX_NativeString("UNTAG_");
923 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
924 once_value_2
= fra
.me
.REG
[4];
925 register_static_object(&once_value_2
);
926 } else fra
.me
.REG
[4] = once_value_2
;
927 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
928 fra
.me
.REG
[4] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
929 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
930 fra
.me
.REG
[4] = CALL_string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
931 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
933 fra
.me
.REG
[4] = BOX_NativeString("(");
935 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
936 once_value_3
= fra
.me
.REG
[4];
937 register_static_object(&once_value_3
);
938 } else fra
.me
.REG
[4] = once_value_3
;
939 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
940 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
942 fra
.me
.REG
[4] = BOX_NativeString(")");
944 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
945 once_value_4
= fra
.me
.REG
[4];
946 register_static_object(&once_value_4
);
947 } else fra
.me
.REG
[4] = once_value_4
;
948 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
949 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
950 fra
.me
.REG
[3] = fra
.me
.REG
[2];
954 fra
.me
.REG
[2] = NEW_Array_array___Array___with_capacity(REGB0
);
955 /* ./primitive_info.nit:152 */
957 fra
.me
.REG
[4] = BOX_NativeString("UNBOX_");
959 fra
.me
.REG
[4] = NEW_String_string___String___with_native(fra
.me
.REG
[4], REGB0
);
960 once_value_5
= fra
.me
.REG
[4];
961 register_static_object(&once_value_5
);
962 } else fra
.me
.REG
[4] = once_value_5
;
963 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[4]);
964 fra
.me
.REG
[0] = CALL_static_type___MMType___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
965 fra
.me
.REG
[0] = CALL_abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
966 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
967 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
969 fra
.me
.REG
[0] = BOX_NativeString("(");
971 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
972 once_value_6
= fra
.me
.REG
[0];
973 register_static_object(&once_value_6
);
974 } else fra
.me
.REG
[0] = once_value_6
;
975 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[0]);
976 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
978 fra
.me
.REG
[1] = BOX_NativeString(")");
980 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
981 once_value_7
= fra
.me
.REG
[1];
982 register_static_object(&once_value_7
);
983 } else fra
.me
.REG
[1] = once_value_7
;
984 array___Array___add(fra
.me
.REG
[2], fra
.me
.REG
[1]);
985 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
986 fra
.me
.REG
[3] = fra
.me
.REG
[2];
991 stack_frame_head
= fra
.me
.prev
;
992 return fra
.me
.REG
[3];