1 /* This C file is generated by NIT to compile module syntax___extern_type_inheritance. */
2 #include "syntax___extern_type_inheritance._sep.h"
3 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_c_type
[] = "extern_type_inheritance::MMLocalClass::(primitive_info::MMLocalClass::extern_c_type)";
4 val_t
syntax___extern_type_inheritance___MMLocalClass___extern_c_type(val_t p0
){
5 struct {struct stack_frame_t me
;} fra
;
8 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
9 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
11 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_c_type
;
14 fra
.me
.nitni_local_ref_head
= NULL
;
15 fra
.me
.REG
[0] = NIT_NULL
;
17 /* syntax/extern_type_inheritance.nit:26 */
18 fra
.me
.REG
[0] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
19 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
20 if (UNTAG_Bool(REGB0
)) {
21 nit_abort("Reciever is null", NULL
, LOCATE_syntax___extern_type_inheritance
, 26);
23 fra
.me
.REG
[0] = CALL_syntax___extern_inline___ExternCode___code(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
26 stack_frame_head
= fra
.me
.prev
;
29 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin
[] = "extern_type_inheritance::MMLocalClass::extern_type_origin";
30 val_t
syntax___extern_type_inheritance___MMLocalClass___extern_type_origin(val_t p0
){
31 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
34 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
35 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
37 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin
;
40 fra
.me
.nitni_local_ref_head
= NULL
;
41 fra
.me
.REG
[0] = NIT_NULL
;
42 fra
.me
.REG
[1] = NIT_NULL
;
44 /* syntax/extern_type_inheritance.nit:29 */
45 fra
.me
.REG
[1] = fra
.me
.REG
[0];
46 /* syntax/extern_type_inheritance.nit:31 */
47 CALL_syntax___extern_inline___MMLocalClass___extern_type(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
48 /* syntax/extern_type_inheritance.nit:32 */
49 fra
.me
.REG
[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
50 REGB0
= TAG_Bool(fra
.me
.REG
[1]!=NIT_NULL
);
51 if (UNTAG_Bool(REGB0
)) {
53 nit_abort("Cast failed", NULL
, LOCATE_syntax___extern_type_inheritance
, 32);
57 stack_frame_head
= fra
.me
.prev
;
60 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache
[] = "extern_type_inheritance::MMLocalClass::extern_type_origin_cache";
61 val_t
syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache(val_t p0
){
62 struct {struct stack_frame_t me
;} fra
;
64 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
65 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
67 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache
;
70 fra
.me
.nitni_local_ref_head
= NULL
;
71 fra
.me
.REG
[0] = NIT_NULL
;
73 /* syntax/extern_type_inheritance.nit:35 */
74 fra
.me
.REG
[0] = ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_origin_cache(fra
.me
.REG
[0]);
75 stack_frame_head
= fra
.me
.prev
;
78 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq
[] = "extern_type_inheritance::MMLocalClass::extern_type_origin_cache=";
79 void syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(val_t p0
, val_t p1
){
80 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
82 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
83 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
85 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq
;
88 fra
.me
.nitni_local_ref_head
= NULL
;
89 fra
.me
.REG
[0] = NIT_NULL
;
90 fra
.me
.REG
[1] = NIT_NULL
;
93 /* syntax/extern_type_inheritance.nit:35 */
94 ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_origin_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
95 stack_frame_head
= fra
.me
.prev
;
98 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache
[] = "extern_type_inheritance::MMLocalClass::extern_type_cache";
99 val_t
syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(val_t p0
){
100 struct {struct stack_frame_t me
;} fra
;
102 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
103 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
105 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache
;
106 fra
.me
.has_broke
= 0;
108 fra
.me
.nitni_local_ref_head
= NULL
;
109 fra
.me
.REG
[0] = NIT_NULL
;
111 /* syntax/extern_type_inheritance.nit:38 */
112 fra
.me
.REG
[0] = ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_cache(fra
.me
.REG
[0]);
113 stack_frame_head
= fra
.me
.prev
;
114 return fra
.me
.REG
[0];
116 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq
[] = "extern_type_inheritance::MMLocalClass::extern_type_cache=";
117 void syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(val_t p0
, val_t p1
){
118 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
120 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
121 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
123 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq
;
124 fra
.me
.has_broke
= 0;
126 fra
.me
.nitni_local_ref_head
= NULL
;
127 fra
.me
.REG
[0] = NIT_NULL
;
128 fra
.me
.REG
[1] = NIT_NULL
;
131 /* syntax/extern_type_inheritance.nit:38 */
132 ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
133 stack_frame_head
= fra
.me
.prev
;
136 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type
[] = "extern_type_inheritance::MMLocalClass::(extern_inline::MMLocalClass::extern_type)";
137 val_t
syntax___extern_type_inheritance___MMLocalClass___extern_type(val_t p0
){
138 struct {struct stack_frame_t me
; val_t MORE_REG
[6];} fra
;
143 static val_t once_value_2
; /* Once value */
144 static val_t once_value_3
; /* Once value */
145 static val_t once_value_4
; /* Once value */
146 static val_t once_value_5
; /* Once value */
147 static val_t once_value_7
; /* Once value */
148 static val_t once_value_8
; /* Once value */
149 static val_t once_value_9
; /* Once value */
150 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
151 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
153 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type
;
154 fra
.me
.has_broke
= 0;
156 fra
.me
.nitni_local_ref_head
= NULL
;
157 fra
.me
.REG
[0] = NIT_NULL
;
158 fra
.me
.REG
[1] = NIT_NULL
;
159 fra
.me
.REG
[2] = NIT_NULL
;
160 fra
.me
.REG
[3] = NIT_NULL
;
161 fra
.me
.REG
[4] = NIT_NULL
;
162 fra
.me
.REG
[5] = NIT_NULL
;
163 fra
.me
.REG
[6] = NIT_NULL
;
165 /* syntax/extern_type_inheritance.nit:43 */
166 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
167 REGB0
= CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
168 if (UNTAG_Bool(REGB0
)) {
170 nit_abort("Assert failed", NULL
, LOCATE_syntax___extern_type_inheritance
, 43);
172 /* syntax/extern_type_inheritance.nit:45 */
173 fra
.me
.REG
[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
174 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
175 if (UNTAG_Bool(REGB0
)) {
177 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
178 if (UNTAG_Bool(REGB1
)) {
182 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
186 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
187 if (UNTAG_Bool(REGB0
)) {
188 fra
.me
.REG
[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
191 /* syntax/extern_type_inheritance.nit:47 */
192 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
193 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
194 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[2],fra
.me
.REG
[0]));
195 if (UNTAG_Bool(REGB0
)) {
197 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
200 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
201 if (UNTAG_Bool(REGB0
)) {
202 /* syntax/extern_type_inheritance.nit:48 */
203 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
204 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
205 fra
.me
.REG
[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
206 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
207 if (UNTAG_Bool(REGB0
)) {
209 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
210 if (UNTAG_Bool(REGB1
)) {
214 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
218 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
219 if (UNTAG_Bool(REGB0
)) {
220 /* syntax/extern_type_inheritance.nit:49 */
221 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
222 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
223 fra
.me
.REG
[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
224 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
225 /* syntax/extern_type_inheritance.nit:50 */
226 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[0]);
227 /* syntax/extern_type_inheritance.nit:51 */
228 fra
.me
.REG
[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
229 fra
.me
.REG
[1] = fra
.me
.REG
[2];
233 /* syntax/extern_type_inheritance.nit:55 */
234 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
237 fra
.me
.REG
[3] = BOX_NativeString("Pointer");
239 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
240 once_value_3
= fra
.me
.REG
[3];
241 register_static_object(&once_value_3
);
242 } else fra
.me
.REG
[3] = once_value_3
;
243 fra
.me
.REG
[3] = fra
.me
.REG
[3];
244 fra
.me
.REG
[3] = CALL_symbol___String___to_symbol(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
245 once_value_2
= fra
.me
.REG
[3];
246 register_static_object(&once_value_2
);
247 } else fra
.me
.REG
[3] = once_value_2
;
248 fra
.me
.REG
[3] = fra
.me
.REG
[3];
249 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[2],fra
.me
.REG
[3]));
250 if (UNTAG_Bool(REGB0
)) {
252 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
255 if (UNTAG_Bool(REGB0
)) {
256 /* syntax/extern_type_inheritance.nit:56 */
258 fra
.me
.REG
[3] = BOX_NativeString("C");
260 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
261 once_value_4
= fra
.me
.REG
[3];
262 register_static_object(&once_value_4
);
263 } else fra
.me
.REG
[3] = once_value_4
;
264 fra
.me
.REG
[3] = fra
.me
.REG
[3];
266 fra
.me
.REG
[2] = BOX_NativeString("void*");
268 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
269 once_value_5
= fra
.me
.REG
[2];
270 register_static_object(&once_value_5
);
271 } else fra
.me
.REG
[2] = once_value_5
;
272 fra
.me
.REG
[2] = fra
.me
.REG
[2];
273 fra
.me
.REG
[2] = NEW_ExternCode_syntax___extern_inline___ExternCode___init(fra
.me
.REG
[3], fra
.me
.REG
[2], NIT_NULL
);
274 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
275 /* syntax/extern_type_inheritance.nit:57 */
276 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[0]);
277 /* syntax/extern_type_inheritance.nit:58 */
278 fra
.me
.REG
[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
279 fra
.me
.REG
[1] = fra
.me
.REG
[2];
282 /* syntax/extern_type_inheritance.nit:62 */
283 fra
.me
.REG
[2] = NEW_HashSet_standard___collection___hash_collection___HashSet___init();
284 /* syntax/extern_type_inheritance.nit:63 */
285 fra
.me
.REG
[3] = fra
.me
.REG
[0];
286 /* syntax/extern_type_inheritance.nit:64 */
287 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
288 fra
.me
.REG
[3] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
289 /* ../lib/standard/collection/array.nit:269 */
291 /* ../lib/standard/collection/array.nit:270 */
292 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
293 if (UNTAG_Bool(REGB1
)) {
295 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 270);
297 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
298 /* ../lib/standard/collection/array.nit:271 */
299 fra
.me
.REG
[4] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
300 /* ../lib/standard/collection/array.nit:272 */
302 /* ../lib/standard/collection/array.nit:24 */
303 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
304 if (UNTAG_Bool(REGB1
)) {
306 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
308 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
309 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
310 if (UNTAG_Bool(REGB2
)) {
312 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
314 /* ../lib/standard/kernel.nit:235 */
315 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
316 /* ../lib/standard/collection/array.nit:272 */
317 if (UNTAG_Bool(REGB1
)) {
318 /* ../lib/standard/collection/array.nit:273 */
319 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
320 if (UNTAG_Bool(REGB1
)) {
321 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 273);
323 /* ../lib/standard/collection/array.nit:718 */
324 fra
.me
.REG
[5] = ((Nit_NativeArray
)fra
.me
.REG
[4])->val
[UNTAG_Int(REGB0
)];
325 /* syntax/extern_type_inheritance.nit:65 */
326 fra
.me
.REG
[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
327 REGB1
= CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
328 if (UNTAG_Bool(REGB1
)) {
329 /* syntax/extern_type_inheritance.nit:66 */
330 fra
.me
.REG
[5] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
331 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
333 /* ../lib/standard/collection/array.nit:274 */
335 /* ../lib/standard/kernel.nit:238 */
336 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
337 /* ../lib/standard/collection/array.nit:274 */
340 /* ../lib/standard/collection/array.nit:272 */
345 /* syntax/extern_type_inheritance.nit:71 */
346 REGB0
= CALL_standard___collection___abstract_collection___Collection___length(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
348 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
349 if (UNTAG_Bool(REGB2
)) {
351 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
353 /* ../lib/standard/kernel.nit:237 */
354 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
355 /* syntax/extern_type_inheritance.nit:71 */
356 if (UNTAG_Bool(REGB1
)) {
357 /* syntax/extern_type_inheritance.nit:72 */
358 fra
.me
.REG
[4] = CALL_standard___file___Object___stderr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
360 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
362 fra
.me
.REG
[5] = BOX_NativeString("Error: Extern class ");
364 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
365 once_value_7
= fra
.me
.REG
[5];
366 register_static_object(&once_value_7
);
367 } else fra
.me
.REG
[5] = once_value_7
;
368 fra
.me
.REG
[5] = fra
.me
.REG
[5];
369 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
370 fra
.me
.REG
[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
371 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
372 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
374 fra
.me
.REG
[5] = BOX_NativeString("::");
376 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
377 once_value_8
= fra
.me
.REG
[5];
378 register_static_object(&once_value_8
);
379 } else fra
.me
.REG
[5] = once_value_8
;
380 fra
.me
.REG
[5] = fra
.me
.REG
[5];
381 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
382 fra
.me
.REG
[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
383 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
384 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
386 fra
.me
.REG
[5] = BOX_NativeString(" has ambiguous extern type, found in super classes: \n");
388 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
389 once_value_9
= fra
.me
.REG
[5];
390 register_static_object(&once_value_9
);
391 } else fra
.me
.REG
[5] = once_value_9
;
392 fra
.me
.REG
[5] = fra
.me
.REG
[5];
393 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
394 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
395 CALL_standard___stream___OStream___write(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
396 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[2])(fra
.me
.REG
[2], (&(fra
.me
)), ((fun_t
)OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10
));
397 /* syntax/extern_type_inheritance.nit:74 */
399 CALL_standard___kernel___Object___exit(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
);
401 /* syntax/extern_type_inheritance.nit:75 */
402 REGB1
= CALL_standard___collection___abstract_collection___Collection___length(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
404 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB0
));
405 if (UNTAG_Bool(REGB2
)) {
407 /* ../lib/standard/kernel.nit:230 */
408 REGB0
= TAG_Bool((REGB1
)==(REGB0
));
409 /* syntax/extern_type_inheritance.nit:75 */
412 if (UNTAG_Bool(REGB2
)) {
413 /* syntax/extern_type_inheritance.nit:76 */
414 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___Collection___first(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
415 /* syntax/extern_type_inheritance.nit:77 */
416 fra
.me
.REG
[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
417 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3]);
418 /* syntax/extern_type_inheritance.nit:78 */
419 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
421 /* syntax/extern_type_inheritance.nit:81 */
422 nit_abort("Aborted", NULL
, LOCATE_syntax___extern_type_inheritance
, 81);
425 /* syntax/extern_type_inheritance.nit:84 */
426 fra
.me
.REG
[0] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
427 fra
.me
.REG
[1] = fra
.me
.REG
[0];
430 stack_frame_head
= fra
.me
.prev
;
431 return fra
.me
.REG
[1];
433 void OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
434 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
438 static val_t once_value_11
; /* Once value */
439 static val_t once_value_12
; /* Once value */
440 static val_t once_value_13
; /* Once value */
441 /* syntax/extern_type_inheritance.nit:73 */
442 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
443 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
445 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type
;
446 fra
.me
.has_broke
= 0;
448 fra
.me
.nitni_local_ref_head
= NULL
;
449 fra
.me
.REG
[0] = NIT_NULL
;
450 fra
.me
.REG
[1] = NIT_NULL
;
451 fra
.me
.REG
[2] = NIT_NULL
;
452 fra
.me
.REG
[3] = NIT_NULL
;
453 fra
.me
.closure_ctx
= closctx_param
;
454 fra
.me
.closure_funs
= CREG
;
457 fra
.me
.REG
[1] = CALL_standard___file___Object___stderr(closctx
->REG
[0])(closctx
->REG
[0]);
459 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
460 if (!once_value_11
) {
461 fra
.me
.REG
[3] = BOX_NativeString("");
463 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
464 once_value_11
= fra
.me
.REG
[3];
465 register_static_object(&once_value_11
);
466 } else fra
.me
.REG
[3] = once_value_11
;
467 fra
.me
.REG
[3] = fra
.me
.REG
[3];
468 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
469 fra
.me
.REG
[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
470 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
471 if (UNTAG_Bool(REGB0
)) {
472 nit_abort("Reciever is null", NULL
, LOCATE_syntax___extern_type_inheritance
, 73);
474 fra
.me
.REG
[3] = CALL_syntax___extern_inline___ExternCode___code(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
475 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
476 if (!once_value_12
) {
477 fra
.me
.REG
[3] = BOX_NativeString(" from ");
479 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
480 once_value_12
= fra
.me
.REG
[3];
481 register_static_object(&once_value_12
);
482 } else fra
.me
.REG
[3] = once_value_12
;
483 fra
.me
.REG
[3] = fra
.me
.REG
[3];
484 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
485 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
486 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
487 if (!once_value_13
) {
488 fra
.me
.REG
[0] = BOX_NativeString("\n");
490 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
491 once_value_13
= fra
.me
.REG
[0];
492 register_static_object(&once_value_13
);
493 } else fra
.me
.REG
[0] = once_value_13
;
494 fra
.me
.REG
[0] = fra
.me
.REG
[0];
495 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
496 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
497 CALL_standard___stream___OStream___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
498 stack_frame_head
= fra
.me
.prev
;
501 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type__eq
[] = "extern_type_inheritance::MMLocalClass::(extern_inline::MMLocalClass::extern_type=)";
502 void syntax___extern_type_inheritance___MMLocalClass___extern_type__eq(val_t p0
, val_t p1
){
503 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
505 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
506 fra
.me
.file
= LOCATE_syntax___extern_type_inheritance
;
508 fra
.me
.meth
= LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type__eq
;
509 fra
.me
.has_broke
= 0;
511 fra
.me
.nitni_local_ref_head
= NULL
;
512 fra
.me
.REG
[0] = NIT_NULL
;
513 fra
.me
.REG
[1] = NIT_NULL
;
516 /* syntax/extern_type_inheritance.nit:89 */
517 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
518 /* syntax/extern_type_inheritance.nit:90 */
519 CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[0]);
520 stack_frame_head
= fra
.me
.prev
;