1 /* This C file is generated by NIT to compile module kernel. */
2 #include "kernel._sep.h"
3 val_t
kernel___Object___object_id(val_t p0
){
4 struct {struct stack_frame_t me
;} fra
;
7 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
8 fra
.me
.file
= LOCATE_kernel
;
10 fra
.me
.meth
= LOCATE_kernel___Object___object_id
;
13 fra
.me
.REG
[0] = NIT_NULL
;
15 /* ./../lib/standard//kernel.nit:26 */
16 REGB0
= TAG_Int((bigint
)((obj_t
)fra
.me
.REG
[0])[1].object_id
);
17 stack_frame_head
= fra
.me
.prev
;
20 val_t
kernel___Object___is_same_type(val_t p0
, val_t p1
){
21 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
24 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
25 fra
.me
.file
= LOCATE_kernel
;
27 fra
.me
.meth
= LOCATE_kernel___Object___is_same_type
;
30 fra
.me
.REG
[0] = NIT_NULL
;
31 fra
.me
.REG
[1] = NIT_NULL
;
34 /* ./../lib/standard//kernel.nit:29 */
35 REGB0
= TAG_Bool((VAL2VFT(fra
.me
.REG
[0])==VAL2VFT(fra
.me
.REG
[1])));
36 stack_frame_head
= fra
.me
.prev
;
39 val_t
kernel___Object_____eqeq(val_t p0
, val_t p1
){
40 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
43 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
44 fra
.me
.file
= LOCATE_kernel
;
46 fra
.me
.meth
= LOCATE_kernel___Object_____eqeq
;
49 fra
.me
.REG
[0] = NIT_NULL
;
50 fra
.me
.REG
[1] = NIT_NULL
;
53 /* ./../lib/standard//kernel.nit:35 */
54 REGB0
= TAG_Bool(IS_EQUAL_ON(fra
.me
.REG
[0],fra
.me
.REG
[1]));
57 stack_frame_head
= fra
.me
.prev
;
60 val_t
kernel___Object_____neq(val_t p0
, val_t p1
){
61 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
65 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
66 fra
.me
.file
= LOCATE_kernel
;
68 fra
.me
.meth
= LOCATE_kernel___Object_____neq
;
71 fra
.me
.REG
[0] = NIT_NULL
;
72 fra
.me
.REG
[1] = NIT_NULL
;
75 /* ./../lib/standard//kernel.nit:40 */
76 REGB0
= TAG_Bool(IS_EQUAL_ON(fra
.me
.REG
[0],fra
.me
.REG
[1]));
77 if (UNTAG_Bool(REGB0
)) {
79 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
82 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
85 stack_frame_head
= fra
.me
.prev
;
88 void kernel___Object___output(val_t p0
){
89 struct {struct stack_frame_t me
;} fra
;
92 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
93 fra
.me
.file
= LOCATE_kernel
;
95 fra
.me
.meth
= LOCATE_kernel___Object___output
;
98 fra
.me
.REG
[0] = NIT_NULL
;
100 /* ./../lib/standard//kernel.nit:45 */
101 REGB0
= TAG_Char('<');
102 /* ./../lib/standard//kernel.nit:349 */
103 printf("%c", (unsigned char)UNTAG_Char(REGB0
));;
104 /* ./../lib/standard//kernel.nit:46 */
105 REGB0
= CALL_kernel___Object___object_id(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
106 /* ./../lib/standard//kernel.nit:209 */
107 printf("%ld\n", UNTAG_Int(REGB0
));;
108 /* ./../lib/standard//kernel.nit:47 */
109 REGB0
= TAG_Char('>');
110 /* ./../lib/standard//kernel.nit:349 */
111 printf("%c", (unsigned char)UNTAG_Char(REGB0
));;
112 stack_frame_head
= fra
.me
.prev
;
115 void kernel___Object___exit(val_t p0
, val_t p1
){
116 struct {struct stack_frame_t me
;} fra
;
119 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
120 fra
.me
.file
= LOCATE_kernel
;
122 fra
.me
.meth
= LOCATE_kernel___Object___exit
;
123 fra
.me
.has_broke
= 0;
125 fra
.me
.REG
[0] = NIT_NULL
;
128 /* ./../lib/standard//kernel.nit:50 */
129 exit(UNTAG_Int(REGB0
));;
130 stack_frame_head
= fra
.me
.prev
;
133 val_t
kernel___Object___sys(val_t p0
){
134 struct {struct stack_frame_t me
;} fra
;
136 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
137 fra
.me
.file
= LOCATE_kernel
;
139 fra
.me
.meth
= LOCATE_kernel___Object___sys
;
140 fra
.me
.has_broke
= 0;
142 fra
.me
.REG
[0] = NIT_NULL
;
144 /* ./../lib/standard//kernel.nit:51 */
145 fra
.me
.REG
[0] = (G_sys
);
146 stack_frame_head
= fra
.me
.prev
;
147 return fra
.me
.REG
[0];
149 void kernel___Sys___main(val_t p0
){
150 struct {struct stack_frame_t me
;} fra
;
152 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
153 fra
.me
.file
= LOCATE_kernel
;
155 fra
.me
.meth
= LOCATE_kernel___Sys___main
;
156 fra
.me
.has_broke
= 0;
158 fra
.me
.REG
[0] = NIT_NULL
;
160 stack_frame_head
= fra
.me
.prev
;
163 void kernel___Sys___init(val_t p0
, int* init_table
){
164 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_Sys
].i
;
165 struct {struct stack_frame_t me
;} fra
;
167 if (init_table
[itpos0
]) return;
168 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
169 fra
.me
.file
= LOCATE_kernel
;
171 fra
.me
.meth
= LOCATE_kernel___Sys___init
;
172 fra
.me
.has_broke
= 0;
174 stack_frame_head
= fra
.me
.prev
;
175 init_table
[itpos0
] = 1;
178 val_t
kernel___Comparable_____l(val_t p0
, val_t p1
){
179 struct {struct stack_frame_t me
;} fra
;
181 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
182 fra
.me
.file
= LOCATE_kernel
;
184 fra
.me
.meth
= LOCATE_kernel___Comparable_____l
;
185 fra
.me
.has_broke
= 0;
187 /* ./../lib/standard//kernel.nit:69 */
188 nit_abort("Deferred method called", NULL
, LOCATE_kernel
, 69);
189 stack_frame_head
= fra
.me
.prev
;
192 val_t
kernel___Comparable_____leq(val_t p0
, val_t p1
){
193 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
196 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
197 fra
.me
.file
= LOCATE_kernel
;
199 fra
.me
.meth
= LOCATE_kernel___Comparable_____leq
;
200 fra
.me
.has_broke
= 0;
202 fra
.me
.REG
[0] = NIT_NULL
;
203 fra
.me
.REG
[1] = NIT_NULL
;
206 /* ./../lib/standard//kernel.nit:73 */
207 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
208 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
211 stack_frame_head
= fra
.me
.prev
;
214 val_t
kernel___Comparable_____geq(val_t p0
, val_t p1
){
215 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
218 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
219 fra
.me
.file
= LOCATE_kernel
;
221 fra
.me
.meth
= LOCATE_kernel___Comparable_____geq
;
222 fra
.me
.has_broke
= 0;
224 fra
.me
.REG
[0] = NIT_NULL
;
225 fra
.me
.REG
[1] = NIT_NULL
;
228 /* ./../lib/standard//kernel.nit:76 */
229 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
230 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
233 stack_frame_head
= fra
.me
.prev
;
236 val_t
kernel___Comparable_____g(val_t p0
, val_t p1
){
237 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
240 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
241 fra
.me
.file
= LOCATE_kernel
;
243 fra
.me
.meth
= LOCATE_kernel___Comparable_____g
;
244 fra
.me
.has_broke
= 0;
246 fra
.me
.REG
[0] = NIT_NULL
;
247 fra
.me
.REG
[1] = NIT_NULL
;
250 /* ./../lib/standard//kernel.nit:79 */
251 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
254 stack_frame_head
= fra
.me
.prev
;
257 val_t
kernel___Comparable_____leqg(val_t p0
, val_t p1
){
258 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
262 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
263 fra
.me
.file
= LOCATE_kernel
;
265 fra
.me
.meth
= LOCATE_kernel___Comparable_____leqg
;
266 fra
.me
.has_broke
= 0;
268 fra
.me
.REG
[0] = NIT_NULL
;
269 fra
.me
.REG
[1] = NIT_NULL
;
272 /* ./../lib/standard//kernel.nit:84 */
273 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
274 if (UNTAG_Bool(REGB0
)) {
275 /* ./../lib/standard//kernel.nit:85 */
277 /* ./../lib/standard//kernel.nit:216 */
278 REGB0
= TAG_Int(-UNTAG_Int(REGB0
));
279 /* ./../lib/standard//kernel.nit:85 */
282 /* ./../lib/standard//kernel.nit:86 */
283 REGB1
= CALL_kernel___Comparable_____l(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
284 if (UNTAG_Bool(REGB1
)) {
285 /* ./../lib/standard//kernel.nit:87 */
290 /* ./../lib/standard//kernel.nit:89 */
297 stack_frame_head
= fra
.me
.prev
;
300 val_t
kernel___Comparable___is_between(val_t p0
, val_t p1
, val_t p2
){
301 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
305 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
306 fra
.me
.file
= LOCATE_kernel
;
308 fra
.me
.meth
= LOCATE_kernel___Comparable___is_between
;
309 fra
.me
.has_broke
= 0;
311 fra
.me
.REG
[0] = NIT_NULL
;
312 fra
.me
.REG
[1] = NIT_NULL
;
313 fra
.me
.REG
[2] = NIT_NULL
;
317 /* ./../lib/standard//kernel.nit:96 */
318 REGB0
= CALL_kernel___Comparable_____leq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
319 if (UNTAG_Bool(REGB0
)) {
320 REGB0
= CALL_kernel___Comparable_____leq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
322 REGB1
= TAG_Bool(false);
327 stack_frame_head
= fra
.me
.prev
;
330 val_t
kernel___Comparable___max(val_t p0
, val_t p1
){
331 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
334 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
335 fra
.me
.file
= LOCATE_kernel
;
337 fra
.me
.meth
= LOCATE_kernel___Comparable___max
;
338 fra
.me
.has_broke
= 0;
340 fra
.me
.REG
[0] = NIT_NULL
;
341 fra
.me
.REG
[1] = NIT_NULL
;
344 /* ./../lib/standard//kernel.nit:102 */
345 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
346 if (UNTAG_Bool(REGB0
)) {
347 /* ./../lib/standard//kernel.nit:103 */
350 /* ./../lib/standard//kernel.nit:105 */
351 fra
.me
.REG
[1] = fra
.me
.REG
[0];
355 stack_frame_head
= fra
.me
.prev
;
356 return fra
.me
.REG
[1];
358 val_t
kernel___Comparable___min(val_t p0
, val_t p1
){
359 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
362 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
363 fra
.me
.file
= LOCATE_kernel
;
365 fra
.me
.meth
= LOCATE_kernel___Comparable___min
;
366 fra
.me
.has_broke
= 0;
368 fra
.me
.REG
[0] = NIT_NULL
;
369 fra
.me
.REG
[1] = NIT_NULL
;
372 /* ./../lib/standard//kernel.nit:112 */
373 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
374 if (UNTAG_Bool(REGB0
)) {
375 /* ./../lib/standard//kernel.nit:113 */
378 /* ./../lib/standard//kernel.nit:115 */
379 fra
.me
.REG
[1] = fra
.me
.REG
[0];
383 stack_frame_head
= fra
.me
.prev
;
384 return fra
.me
.REG
[1];
386 val_t
kernel___Discrete___succ(val_t p0
){
387 struct {struct stack_frame_t me
;} fra
;
390 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
391 fra
.me
.file
= LOCATE_kernel
;
393 fra
.me
.meth
= LOCATE_kernel___Discrete___succ
;
394 fra
.me
.has_broke
= 0;
396 fra
.me
.REG
[0] = NIT_NULL
;
398 /* ./../lib/standard//kernel.nit:127 */
400 fra
.me
.REG
[0] = CALL_kernel___Discrete_____plus(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
403 stack_frame_head
= fra
.me
.prev
;
404 return fra
.me
.REG
[0];
406 val_t
kernel___Discrete___prec(val_t p0
){
407 struct {struct stack_frame_t me
;} fra
;
410 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
411 fra
.me
.file
= LOCATE_kernel
;
413 fra
.me
.meth
= LOCATE_kernel___Discrete___prec
;
414 fra
.me
.has_broke
= 0;
416 fra
.me
.REG
[0] = NIT_NULL
;
418 /* ./../lib/standard//kernel.nit:130 */
420 fra
.me
.REG
[0] = CALL_kernel___Discrete_____minus(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
423 stack_frame_head
= fra
.me
.prev
;
424 return fra
.me
.REG
[0];
426 val_t
kernel___Discrete_____plus(val_t p0
, val_t p1
){
427 struct {struct stack_frame_t me
;} fra
;
429 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
430 fra
.me
.file
= LOCATE_kernel
;
432 fra
.me
.meth
= LOCATE_kernel___Discrete_____plus
;
433 fra
.me
.has_broke
= 0;
435 /* ./../lib/standard//kernel.nit:132 */
436 nit_abort("Deferred method called", NULL
, LOCATE_kernel
, 132);
437 stack_frame_head
= fra
.me
.prev
;
440 val_t
kernel___Discrete_____minus(val_t p0
, val_t p1
){
441 struct {struct stack_frame_t me
;} fra
;
443 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
444 fra
.me
.file
= LOCATE_kernel
;
446 fra
.me
.meth
= LOCATE_kernel___Discrete_____minus
;
447 fra
.me
.has_broke
= 0;
449 /* ./../lib/standard//kernel.nit:135 */
450 nit_abort("Deferred method called", NULL
, LOCATE_kernel
, 135);
451 stack_frame_head
= fra
.me
.prev
;
454 val_t
kernel___Discrete___distance(val_t p0
, val_t p1
){
455 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
460 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
461 fra
.me
.file
= LOCATE_kernel
;
463 fra
.me
.meth
= LOCATE_kernel___Discrete___distance
;
464 fra
.me
.has_broke
= 0;
466 fra
.me
.REG
[0] = NIT_NULL
;
467 fra
.me
.REG
[1] = NIT_NULL
;
468 fra
.me
.REG
[2] = NIT_NULL
;
469 fra
.me
.REG
[3] = NIT_NULL
;
472 /* ./../lib/standard//kernel.nit:145 */
473 REGB0
= CALL_kernel___Comparable_____l(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
474 if (UNTAG_Bool(REGB0
)) {
475 /* ./../lib/standard//kernel.nit:146 */
476 fra
.me
.REG
[2] = fra
.me
.REG
[0];
477 /* ./../lib/standard//kernel.nit:147 */
478 fra
.me
.REG
[3] = fra
.me
.REG
[1];
480 /* ./../lib/standard//kernel.nit:148 */
481 REGB0
= CALL_kernel___Comparable_____g(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
482 if (UNTAG_Bool(REGB0
)) {
483 /* ./../lib/standard//kernel.nit:149 */
484 fra
.me
.REG
[2] = fra
.me
.REG
[1];
485 /* ./../lib/standard//kernel.nit:150 */
486 fra
.me
.REG
[3] = fra
.me
.REG
[0];
488 /* ./../lib/standard//kernel.nit:152 */
493 /* ./../lib/standard//kernel.nit:155 */
495 /* ./../lib/standard//kernel.nit:156 */
497 REGB2
= CALL_kernel___Comparable_____l(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
498 if (UNTAG_Bool(REGB2
)) {
499 /* ./../lib/standard//kernel.nit:157 */
500 fra
.me
.REG
[0] = CALL_kernel___Discrete___succ(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
501 fra
.me
.REG
[2] = fra
.me
.REG
[0];
502 /* ./../lib/standard//kernel.nit:158 */
504 /* ./../lib/standard//kernel.nit:215 */
505 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
506 /* ./../lib/standard//kernel.nit:158 */
509 /* ./../lib/standard//kernel.nit:156 */
514 /* ./../lib/standard//kernel.nit:160 */
518 stack_frame_head
= fra
.me
.prev
;
521 val_t
kernel___Bool___object_id(val_t p0
){
522 struct {struct stack_frame_t me
;} fra
;
525 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
526 fra
.me
.file
= LOCATE_kernel
;
528 fra
.me
.meth
= LOCATE_kernel___Bool___object_id
;
529 fra
.me
.has_broke
= 0;
532 /* ./../lib/standard//kernel.nit:174 */
533 REGB0
= TAG_Int(UNTAG_Bool(REGB0
));
534 stack_frame_head
= fra
.me
.prev
;
537 val_t
kernel___Bool_____eqeq(val_t p0
, val_t p1
){
538 struct {struct stack_frame_t me
;} fra
;
541 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
542 fra
.me
.file
= LOCATE_kernel
;
544 fra
.me
.meth
= LOCATE_kernel___Bool_____eqeq
;
545 fra
.me
.has_broke
= 0;
547 fra
.me
.REG
[0] = NIT_NULL
;
550 /* ./../lib/standard//kernel.nit:175 */
551 REGB0
= TAG_Bool((REGB0
)==(fra
.me
.REG
[0]));
552 stack_frame_head
= fra
.me
.prev
;
555 val_t
kernel___Bool_____neq(val_t p0
, val_t p1
){
556 struct {struct stack_frame_t me
;} fra
;
559 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
560 fra
.me
.file
= LOCATE_kernel
;
562 fra
.me
.meth
= LOCATE_kernel___Bool_____neq
;
563 fra
.me
.has_broke
= 0;
565 fra
.me
.REG
[0] = NIT_NULL
;
568 /* ./../lib/standard//kernel.nit:176 */
569 REGB0
= TAG_Bool((REGB0
)!=(fra
.me
.REG
[0]));
570 stack_frame_head
= fra
.me
.prev
;
573 void kernel___Bool___output(val_t p0
){
574 struct {struct stack_frame_t me
;} fra
;
577 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
578 fra
.me
.file
= LOCATE_kernel
;
580 fra
.me
.meth
= LOCATE_kernel___Bool___output
;
581 fra
.me
.has_broke
= 0;
584 /* ./../lib/standard//kernel.nit:177 */
585 (void)printf(UNTAG_Bool(REGB0
)?
"true\n":"false\n");;
586 stack_frame_head
= fra
.me
.prev
;
589 val_t
kernel___Float___object_id(val_t p0
){
590 struct {struct stack_frame_t me
;} fra
;
593 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
594 fra
.me
.file
= LOCATE_kernel
;
596 fra
.me
.meth
= LOCATE_kernel___Float___object_id
;
597 fra
.me
.has_broke
= 0;
599 fra
.me
.REG
[0] = NIT_NULL
;
601 /* ./../lib/standard//kernel.nit:183 */
602 REGB0
= TAG_Int((bigint
)UNBOX_Float(fra
.me
.REG
[0]));
603 stack_frame_head
= fra
.me
.prev
;
606 void kernel___Float___output(val_t p0
){
607 struct {struct stack_frame_t me
;} fra
;
609 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
610 fra
.me
.file
= LOCATE_kernel
;
612 fra
.me
.meth
= LOCATE_kernel___Float___output
;
613 fra
.me
.has_broke
= 0;
615 fra
.me
.REG
[0] = NIT_NULL
;
617 /* ./../lib/standard//kernel.nit:184 */
618 printf("%f\n", UNBOX_Float(fra
.me
.REG
[0]));;
619 stack_frame_head
= fra
.me
.prev
;
622 val_t
kernel___Float_____leq(val_t p0
, val_t p1
){
623 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
626 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
627 fra
.me
.file
= LOCATE_kernel
;
629 fra
.me
.meth
= LOCATE_kernel___Float_____leq
;
630 fra
.me
.has_broke
= 0;
632 fra
.me
.REG
[0] = NIT_NULL
;
633 fra
.me
.REG
[1] = NIT_NULL
;
636 /* ./../lib/standard//kernel.nit:186 */
637 REGB0
= TAG_Bool(UNBOX_Float(fra
.me
.REG
[0])<=UNBOX_Float(fra
.me
.REG
[1]));
638 stack_frame_head
= fra
.me
.prev
;
641 val_t
kernel___Float_____l(val_t p0
, val_t p1
){
642 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
645 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
646 fra
.me
.file
= LOCATE_kernel
;
648 fra
.me
.meth
= LOCATE_kernel___Float_____l
;
649 fra
.me
.has_broke
= 0;
651 fra
.me
.REG
[0] = NIT_NULL
;
652 fra
.me
.REG
[1] = NIT_NULL
;
655 /* ./../lib/standard//kernel.nit:187 */
656 REGB0
= TAG_Bool(UNBOX_Float(fra
.me
.REG
[0])<UNBOX_Float(fra
.me
.REG
[1]));
657 stack_frame_head
= fra
.me
.prev
;
660 val_t
kernel___Float_____geq(val_t p0
, val_t p1
){
661 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
664 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
665 fra
.me
.file
= LOCATE_kernel
;
667 fra
.me
.meth
= LOCATE_kernel___Float_____geq
;
668 fra
.me
.has_broke
= 0;
670 fra
.me
.REG
[0] = NIT_NULL
;
671 fra
.me
.REG
[1] = NIT_NULL
;
674 /* ./../lib/standard//kernel.nit:188 */
675 REGB0
= TAG_Bool(UNBOX_Float(fra
.me
.REG
[0])>=UNBOX_Float(fra
.me
.REG
[1]));
676 stack_frame_head
= fra
.me
.prev
;
679 val_t
kernel___Float_____g(val_t p0
, val_t p1
){
680 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
683 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
684 fra
.me
.file
= LOCATE_kernel
;
686 fra
.me
.meth
= LOCATE_kernel___Float_____g
;
687 fra
.me
.has_broke
= 0;
689 fra
.me
.REG
[0] = NIT_NULL
;
690 fra
.me
.REG
[1] = NIT_NULL
;
693 /* ./../lib/standard//kernel.nit:189 */
694 REGB0
= TAG_Bool(UNBOX_Float(fra
.me
.REG
[0])>UNBOX_Float(fra
.me
.REG
[1]));
695 stack_frame_head
= fra
.me
.prev
;
698 val_t
kernel___Float_____plus(val_t p0
, val_t p1
){
699 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
701 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
702 fra
.me
.file
= LOCATE_kernel
;
704 fra
.me
.meth
= LOCATE_kernel___Float_____plus
;
705 fra
.me
.has_broke
= 0;
707 fra
.me
.REG
[0] = NIT_NULL
;
708 fra
.me
.REG
[1] = NIT_NULL
;
711 /* ./../lib/standard//kernel.nit:190 */
712 fra
.me
.REG
[1] = BOX_Float(UNBOX_Float(fra
.me
.REG
[0])+UNBOX_Float(fra
.me
.REG
[1]));
713 stack_frame_head
= fra
.me
.prev
;
714 return fra
.me
.REG
[1];
716 val_t
kernel___Float___unary__minus(val_t p0
){
717 struct {struct stack_frame_t me
;} fra
;
719 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
720 fra
.me
.file
= LOCATE_kernel
;
722 fra
.me
.meth
= LOCATE_kernel___Float___unary__minus
;
723 fra
.me
.has_broke
= 0;
725 fra
.me
.REG
[0] = NIT_NULL
;
727 /* ./../lib/standard//kernel.nit:191 */
728 fra
.me
.REG
[0] = BOX_Float(-UNBOX_Float(fra
.me
.REG
[0]));
729 stack_frame_head
= fra
.me
.prev
;
730 return fra
.me
.REG
[0];
732 val_t
kernel___Float_____minus(val_t p0
, val_t p1
){
733 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
735 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
736 fra
.me
.file
= LOCATE_kernel
;
738 fra
.me
.meth
= LOCATE_kernel___Float_____minus
;
739 fra
.me
.has_broke
= 0;
741 fra
.me
.REG
[0] = NIT_NULL
;
742 fra
.me
.REG
[1] = NIT_NULL
;
745 /* ./../lib/standard//kernel.nit:192 */
746 fra
.me
.REG
[1] = BOX_Float(UNBOX_Float(fra
.me
.REG
[0])-UNBOX_Float(fra
.me
.REG
[1]));
747 stack_frame_head
= fra
.me
.prev
;
748 return fra
.me
.REG
[1];
750 val_t
kernel___Float_____star(val_t p0
, val_t p1
){
751 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
753 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
754 fra
.me
.file
= LOCATE_kernel
;
756 fra
.me
.meth
= LOCATE_kernel___Float_____star
;
757 fra
.me
.has_broke
= 0;
759 fra
.me
.REG
[0] = NIT_NULL
;
760 fra
.me
.REG
[1] = NIT_NULL
;
763 /* ./../lib/standard//kernel.nit:193 */
764 fra
.me
.REG
[1] = BOX_Float(UNBOX_Float(fra
.me
.REG
[0])*UNBOX_Float(fra
.me
.REG
[1]));
765 stack_frame_head
= fra
.me
.prev
;
766 return fra
.me
.REG
[1];
768 val_t
kernel___Float_____slash(val_t p0
, val_t p1
){
769 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
771 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
772 fra
.me
.file
= LOCATE_kernel
;
774 fra
.me
.meth
= LOCATE_kernel___Float_____slash
;
775 fra
.me
.has_broke
= 0;
777 fra
.me
.REG
[0] = NIT_NULL
;
778 fra
.me
.REG
[1] = NIT_NULL
;
781 /* ./../lib/standard//kernel.nit:194 */
782 fra
.me
.REG
[1] = BOX_Float(UNBOX_Float(fra
.me
.REG
[0])/UNBOX_Float(fra
.me
.REG
[1]));
783 stack_frame_head
= fra
.me
.prev
;
784 return fra
.me
.REG
[1];
786 val_t
kernel___Float___to_i(val_t p0
){
787 struct {struct stack_frame_t me
;} fra
;
790 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
791 fra
.me
.file
= LOCATE_kernel
;
793 fra
.me
.meth
= LOCATE_kernel___Float___to_i
;
794 fra
.me
.has_broke
= 0;
796 fra
.me
.REG
[0] = NIT_NULL
;
798 /* ./../lib/standard//kernel.nit:196 */
799 REGB0
= TAG_Int((bigint
)UNBOX_Float(fra
.me
.REG
[0]));
800 stack_frame_head
= fra
.me
.prev
;
803 val_t
kernel___Int___object_id(val_t p0
){
804 struct {struct stack_frame_t me
;} fra
;
807 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
808 fra
.me
.file
= LOCATE_kernel
;
810 fra
.me
.meth
= LOCATE_kernel___Int___object_id
;
811 fra
.me
.has_broke
= 0;
814 /* ./../lib/standard//kernel.nit:206 */
816 stack_frame_head
= fra
.me
.prev
;
819 val_t
kernel___Int_____eqeq(val_t p0
, val_t p1
){
820 struct {struct stack_frame_t me
;} fra
;
823 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
824 fra
.me
.file
= LOCATE_kernel
;
826 fra
.me
.meth
= LOCATE_kernel___Int_____eqeq
;
827 fra
.me
.has_broke
= 0;
829 fra
.me
.REG
[0] = NIT_NULL
;
832 /* ./../lib/standard//kernel.nit:207 */
833 REGB0
= TAG_Bool((REGB0
)==(fra
.me
.REG
[0]));
834 stack_frame_head
= fra
.me
.prev
;
837 val_t
kernel___Int_____neq(val_t p0
, val_t p1
){
838 struct {struct stack_frame_t me
;} fra
;
841 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
842 fra
.me
.file
= LOCATE_kernel
;
844 fra
.me
.meth
= LOCATE_kernel___Int_____neq
;
845 fra
.me
.has_broke
= 0;
847 fra
.me
.REG
[0] = NIT_NULL
;
850 /* ./../lib/standard//kernel.nit:208 */
851 REGB0
= TAG_Bool((REGB0
)!=(fra
.me
.REG
[0]));
852 stack_frame_head
= fra
.me
.prev
;
855 void kernel___Int___output(val_t p0
){
856 struct {struct stack_frame_t me
;} fra
;
859 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
860 fra
.me
.file
= LOCATE_kernel
;
862 fra
.me
.meth
= LOCATE_kernel___Int___output
;
863 fra
.me
.has_broke
= 0;
866 /* ./../lib/standard//kernel.nit:209 */
867 printf("%ld\n", UNTAG_Int(REGB0
));;
868 stack_frame_head
= fra
.me
.prev
;
871 val_t
kernel___Int_____leq(val_t p0
, val_t p1
){
872 struct {struct stack_frame_t me
;} fra
;
876 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
877 fra
.me
.file
= LOCATE_kernel
;
879 fra
.me
.meth
= LOCATE_kernel___Int_____leq
;
880 fra
.me
.has_broke
= 0;
884 /* ./../lib/standard//kernel.nit:211 */
885 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<=UNTAG_Int(REGB1
));
886 stack_frame_head
= fra
.me
.prev
;
889 val_t
kernel___Int_____l(val_t p0
, val_t p1
){
890 struct {struct stack_frame_t me
;} fra
;
894 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
895 fra
.me
.file
= LOCATE_kernel
;
897 fra
.me
.meth
= LOCATE_kernel___Int_____l
;
898 fra
.me
.has_broke
= 0;
902 /* ./../lib/standard//kernel.nit:212 */
903 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
904 stack_frame_head
= fra
.me
.prev
;
907 val_t
kernel___Int_____geq(val_t p0
, val_t p1
){
908 struct {struct stack_frame_t me
;} fra
;
912 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
913 fra
.me
.file
= LOCATE_kernel
;
915 fra
.me
.meth
= LOCATE_kernel___Int_____geq
;
916 fra
.me
.has_broke
= 0;
920 /* ./../lib/standard//kernel.nit:213 */
921 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
922 stack_frame_head
= fra
.me
.prev
;
925 val_t
kernel___Int_____g(val_t p0
, val_t p1
){
926 struct {struct stack_frame_t me
;} fra
;
930 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
931 fra
.me
.file
= LOCATE_kernel
;
933 fra
.me
.meth
= LOCATE_kernel___Int_____g
;
934 fra
.me
.has_broke
= 0;
938 /* ./../lib/standard//kernel.nit:214 */
939 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
940 stack_frame_head
= fra
.me
.prev
;
943 val_t
kernel___Int_____plus(val_t p0
, val_t p1
){
944 struct {struct stack_frame_t me
;} fra
;
948 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
949 fra
.me
.file
= LOCATE_kernel
;
951 fra
.me
.meth
= LOCATE_kernel___Int_____plus
;
952 fra
.me
.has_broke
= 0;
956 /* ./../lib/standard//kernel.nit:215 */
957 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
958 stack_frame_head
= fra
.me
.prev
;
961 val_t
kernel___Int___unary__minus(val_t p0
){
962 struct {struct stack_frame_t me
;} fra
;
965 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
966 fra
.me
.file
= LOCATE_kernel
;
968 fra
.me
.meth
= LOCATE_kernel___Int___unary__minus
;
969 fra
.me
.has_broke
= 0;
972 /* ./../lib/standard//kernel.nit:216 */
973 REGB0
= TAG_Int(-UNTAG_Int(REGB0
));
974 stack_frame_head
= fra
.me
.prev
;
977 val_t
kernel___Int_____minus(val_t p0
, val_t p1
){
978 struct {struct stack_frame_t me
;} fra
;
982 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
983 fra
.me
.file
= LOCATE_kernel
;
985 fra
.me
.meth
= LOCATE_kernel___Int_____minus
;
986 fra
.me
.has_broke
= 0;
990 /* ./../lib/standard//kernel.nit:217 */
991 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
992 stack_frame_head
= fra
.me
.prev
;
995 val_t
kernel___Int_____star(val_t p0
, val_t p1
){
996 struct {struct stack_frame_t me
;} fra
;
1000 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1001 fra
.me
.file
= LOCATE_kernel
;
1003 fra
.me
.meth
= LOCATE_kernel___Int_____star
;
1004 fra
.me
.has_broke
= 0;
1005 fra
.me
.REG_size
= 0;
1008 /* ./../lib/standard//kernel.nit:218 */
1009 REGB1
= TAG_Int(UNTAG_Int(REGB0
)*UNTAG_Int(REGB1
));
1010 stack_frame_head
= fra
.me
.prev
;
1013 val_t
kernel___Int_____slash(val_t p0
, val_t p1
){
1014 struct {struct stack_frame_t me
;} fra
;
1018 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1019 fra
.me
.file
= LOCATE_kernel
;
1021 fra
.me
.meth
= LOCATE_kernel___Int_____slash
;
1022 fra
.me
.has_broke
= 0;
1023 fra
.me
.REG_size
= 0;
1026 /* ./../lib/standard//kernel.nit:219 */
1027 REGB1
= TAG_Int(UNTAG_Int(REGB0
)/UNTAG_Int(REGB1
));
1028 stack_frame_head
= fra
.me
.prev
;
1031 val_t
kernel___Int_____percent(val_t p0
, val_t p1
){
1032 struct {struct stack_frame_t me
;} fra
;
1036 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1037 fra
.me
.file
= LOCATE_kernel
;
1039 fra
.me
.meth
= LOCATE_kernel___Int_____percent
;
1040 fra
.me
.has_broke
= 0;
1041 fra
.me
.REG_size
= 0;
1044 /* ./../lib/standard//kernel.nit:220 */
1045 REGB1
= TAG_Int(UNTAG_Int(REGB0
)%UNTAG_Int(REGB1
));
1046 stack_frame_head
= fra
.me
.prev
;
1049 val_t
kernel___Int___lshift(val_t p0
, val_t p1
){
1050 struct {struct stack_frame_t me
;} fra
;
1054 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1055 fra
.me
.file
= LOCATE_kernel
;
1057 fra
.me
.meth
= LOCATE_kernel___Int___lshift
;
1058 fra
.me
.has_broke
= 0;
1059 fra
.me
.REG_size
= 0;
1062 /* ./../lib/standard//kernel.nit:221 */
1063 REGB1
= TAG_Int(UNTAG_Int(REGB0
)<<UNTAG_Int(REGB1
));
1064 stack_frame_head
= fra
.me
.prev
;
1067 val_t
kernel___Int___rshift(val_t p0
, val_t p1
){
1068 struct {struct stack_frame_t me
;} fra
;
1072 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1073 fra
.me
.file
= LOCATE_kernel
;
1075 fra
.me
.meth
= LOCATE_kernel___Int___rshift
;
1076 fra
.me
.has_broke
= 0;
1077 fra
.me
.REG_size
= 0;
1080 /* ./../lib/standard//kernel.nit:222 */
1081 REGB1
= TAG_Int(UNTAG_Int(REGB0
)>>UNTAG_Int(REGB1
));
1082 stack_frame_head
= fra
.me
.prev
;
1085 val_t
kernel___Int___to_f(val_t p0
){
1086 struct {struct stack_frame_t me
;} fra
;
1089 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1090 fra
.me
.file
= LOCATE_kernel
;
1092 fra
.me
.meth
= LOCATE_kernel___Int___to_f
;
1093 fra
.me
.has_broke
= 0;
1094 fra
.me
.REG_size
= 1;
1095 fra
.me
.REG
[0] = NIT_NULL
;
1097 /* ./../lib/standard//kernel.nit:224 */
1098 fra
.me
.REG
[0] = BOX_Float((float)UNTAG_Int(REGB0
));
1099 stack_frame_head
= fra
.me
.prev
;
1100 return fra
.me
.REG
[0];
1102 val_t
kernel___Int___succ(val_t p0
){
1103 struct {struct stack_frame_t me
;} fra
;
1106 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1107 fra
.me
.file
= LOCATE_kernel
;
1109 fra
.me
.meth
= LOCATE_kernel___Int___succ
;
1110 fra
.me
.has_broke
= 0;
1111 fra
.me
.REG_size
= 0;
1113 /* ./../lib/standard//kernel.nit:227 */
1114 REGB0
= TAG_Int(UNTAG_Int(REGB0
)+1);
1115 stack_frame_head
= fra
.me
.prev
;
1118 val_t
kernel___Int___prec(val_t p0
){
1119 struct {struct stack_frame_t me
;} fra
;
1122 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1123 fra
.me
.file
= LOCATE_kernel
;
1125 fra
.me
.meth
= LOCATE_kernel___Int___prec
;
1126 fra
.me
.has_broke
= 0;
1127 fra
.me
.REG_size
= 0;
1129 /* ./../lib/standard//kernel.nit:228 */
1130 REGB0
= TAG_Int(UNTAG_Int(REGB0
)-1);
1131 stack_frame_head
= fra
.me
.prev
;
1134 val_t
kernel___Int___distance(val_t p0
, val_t p1
){
1135 struct {struct stack_frame_t me
;} fra
;
1139 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1140 fra
.me
.file
= LOCATE_kernel
;
1142 fra
.me
.meth
= LOCATE_kernel___Int___distance
;
1143 fra
.me
.has_broke
= 0;
1144 fra
.me
.REG_size
= 0;
1147 /* ./../lib/standard//kernel.nit:217 */
1148 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1149 /* ./../lib/standard//kernel.nit:232 */
1151 /* ./../lib/standard//kernel.nit:213 */
1152 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)>=UNTAG_Int(REGB0
));
1153 /* ./../lib/standard//kernel.nit:232 */
1154 if (UNTAG_Bool(REGB0
)) {
1155 /* ./../lib/standard//kernel.nit:233 */
1159 /* ./../lib/standard//kernel.nit:216 */
1160 REGB1
= TAG_Int(-UNTAG_Int(REGB1
));
1161 /* ./../lib/standard//kernel.nit:235 */
1166 stack_frame_head
= fra
.me
.prev
;
1169 val_t
kernel___Int_____leqg(val_t p0
, val_t p1
){
1170 struct {struct stack_frame_t me
;} fra
;
1175 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1176 fra
.me
.file
= LOCATE_kernel
;
1178 fra
.me
.meth
= LOCATE_kernel___Int_____leqg
;
1179 fra
.me
.has_broke
= 0;
1180 fra
.me
.REG_size
= 0;
1183 /* ./../lib/standard//kernel.nit:212 */
1184 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1185 /* ./../lib/standard//kernel.nit:241 */
1186 if (UNTAG_Bool(REGB2
)) {
1187 /* ./../lib/standard//kernel.nit:242 */
1189 /* ./../lib/standard//kernel.nit:216 */
1190 REGB2
= TAG_Int(-UNTAG_Int(REGB2
));
1191 /* ./../lib/standard//kernel.nit:242 */
1194 /* ./../lib/standard//kernel.nit:212 */
1195 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
1196 /* ./../lib/standard//kernel.nit:243 */
1197 if (UNTAG_Bool(REGB0
)) {
1198 /* ./../lib/standard//kernel.nit:244 */
1203 /* ./../lib/standard//kernel.nit:246 */
1210 stack_frame_head
= fra
.me
.prev
;
1213 val_t
kernel___Int___is_between(val_t p0
, val_t p1
, val_t p2
){
1214 struct {struct stack_frame_t me
;} fra
;
1219 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1220 fra
.me
.file
= LOCATE_kernel
;
1222 fra
.me
.meth
= LOCATE_kernel___Int___is_between
;
1223 fra
.me
.has_broke
= 0;
1224 fra
.me
.REG_size
= 0;
1228 /* ./../lib/standard//kernel.nit:212 */
1229 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1230 /* ./../lib/standard//kernel.nit:252 */
1231 if (UNTAG_Bool(REGB1
)) {
1232 REGB1
= TAG_Bool(true);
1234 /* ./../lib/standard//kernel.nit:212 */
1235 REGB0
= TAG_Bool(UNTAG_Int(REGB2
)<UNTAG_Int(REGB0
));
1236 /* ./../lib/standard//kernel.nit:252 */
1239 if (UNTAG_Bool(REGB1
)) {
1240 /* ./../lib/standard//kernel.nit:253 */
1241 REGB1
= TAG_Bool(false);
1244 /* ./../lib/standard//kernel.nit:255 */
1245 REGB0
= TAG_Bool(true);
1250 stack_frame_head
= fra
.me
.prev
;
1253 val_t
kernel___Int___max(val_t p0
, val_t p1
){
1254 struct {struct stack_frame_t me
;} fra
;
1259 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1260 fra
.me
.file
= LOCATE_kernel
;
1262 fra
.me
.meth
= LOCATE_kernel___Int___max
;
1263 fra
.me
.has_broke
= 0;
1264 fra
.me
.REG_size
= 0;
1267 /* ./../lib/standard//kernel.nit:212 */
1268 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1269 /* ./../lib/standard//kernel.nit:261 */
1270 if (UNTAG_Bool(REGB2
)) {
1271 /* ./../lib/standard//kernel.nit:262 */
1274 /* ./../lib/standard//kernel.nit:264 */
1279 stack_frame_head
= fra
.me
.prev
;
1282 val_t
kernel___Int___min(val_t p0
, val_t p1
){
1283 struct {struct stack_frame_t me
;} fra
;
1288 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1289 fra
.me
.file
= LOCATE_kernel
;
1291 fra
.me
.meth
= LOCATE_kernel___Int___min
;
1292 fra
.me
.has_broke
= 0;
1293 fra
.me
.REG_size
= 0;
1296 /* ./../lib/standard//kernel.nit:212 */
1297 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
1298 /* ./../lib/standard//kernel.nit:270 */
1299 if (UNTAG_Bool(REGB2
)) {
1300 /* ./../lib/standard//kernel.nit:271 */
1303 /* ./../lib/standard//kernel.nit:273 */
1308 stack_frame_head
= fra
.me
.prev
;
1311 val_t
kernel___Int___ascii(val_t p0
){
1312 struct {struct stack_frame_t me
;} fra
;
1315 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1316 fra
.me
.file
= LOCATE_kernel
;
1318 fra
.me
.meth
= LOCATE_kernel___Int___ascii
;
1319 fra
.me
.has_broke
= 0;
1320 fra
.me
.REG_size
= 0;
1322 /* ./../lib/standard//kernel.nit:277 */
1323 REGB0
= TAG_Char(UNTAG_Int(REGB0
));
1324 stack_frame_head
= fra
.me
.prev
;
1327 val_t
kernel___Int___digit_count(val_t p0
, val_t p1
){
1328 struct {struct stack_frame_t me
;} fra
;
1336 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1337 fra
.me
.file
= LOCATE_kernel
;
1339 fra
.me
.meth
= LOCATE_kernel___Int___digit_count
;
1340 fra
.me
.has_broke
= 0;
1341 fra
.me
.REG_size
= 0;
1344 /* ./../lib/standard//kernel.nit:286 */
1346 /* ./../lib/standard//kernel.nit:212 */
1347 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
1348 /* ./../lib/standard//kernel.nit:286 */
1349 if (UNTAG_Bool(REGB2
)) {
1350 /* ./../lib/standard//kernel.nit:287 */
1352 /* ./../lib/standard//kernel.nit:216 */
1353 REGB3
= TAG_Int(-UNTAG_Int(REGB0
));
1355 /* ./../lib/standard//kernel.nit:289 */
1357 REGB5
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB4
));
1358 if (UNTAG_Bool(REGB5
)) {
1360 /* ./../lib/standard//kernel.nit:207 */
1361 REGB4
= TAG_Bool((REGB0
)==(REGB4
));
1362 /* ./../lib/standard//kernel.nit:289 */
1365 if (UNTAG_Bool(REGB5
)) {
1366 /* ./../lib/standard//kernel.nit:290 */
1370 /* ./../lib/standard//kernel.nit:292 */
1373 /* ./../lib/standard//kernel.nit:293 */
1377 /* ./../lib/standard//kernel.nit:296 */
1380 /* ./../lib/standard//kernel.nit:214 */
1381 REGB0
= TAG_Bool(UNTAG_Int(REGB3
)>UNTAG_Int(REGB0
));
1382 /* ./../lib/standard//kernel.nit:296 */
1383 if (UNTAG_Bool(REGB0
)) {
1384 /* ./../lib/standard//kernel.nit:297 */
1386 /* ./../lib/standard//kernel.nit:215 */
1387 REGB0
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB0
));
1388 /* ./../lib/standard//kernel.nit:297 */
1390 /* ./../lib/standard//kernel.nit:219 */
1391 REGB0
= TAG_Int(UNTAG_Int(REGB3
)/UNTAG_Int(REGB1
));
1392 /* ./../lib/standard//kernel.nit:298 */
1395 /* ./../lib/standard//kernel.nit:296 */
1400 /* ./../lib/standard//kernel.nit:300 */
1404 stack_frame_head
= fra
.me
.prev
;
1407 val_t
kernel___Int___to_c(val_t p0
){
1408 struct {struct stack_frame_t me
;} fra
;
1414 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1415 fra
.me
.file
= LOCATE_kernel
;
1417 fra
.me
.meth
= LOCATE_kernel___Int___to_c
;
1418 fra
.me
.has_broke
= 0;
1419 fra
.me
.REG_size
= 0;
1421 /* ./../lib/standard//kernel.nit:308 */
1423 /* ./../lib/standard//kernel.nit:213 */
1424 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
1425 /* ./../lib/standard//kernel.nit:308 */
1426 if (UNTAG_Bool(REGB1
)) {
1427 REGB1
= TAG_Int(36);
1428 /* ./../lib/standard//kernel.nit:211 */
1429 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<=UNTAG_Int(REGB1
));
1431 /* ./../lib/standard//kernel.nit:308 */
1432 REGB2
= TAG_Bool(false);
1435 if (UNTAG_Bool(REGB1
)) {
1437 nit_abort("Assert failed", NULL
, LOCATE_kernel
, 308);
1439 /* ./../lib/standard//kernel.nit:309 */
1440 REGB1
= TAG_Int(10);
1441 /* ./../lib/standard//kernel.nit:212 */
1442 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1443 /* ./../lib/standard//kernel.nit:309 */
1444 if (UNTAG_Bool(REGB1
)) {
1445 /* ./../lib/standard//kernel.nit:310 */
1446 REGB1
= TAG_Char('0');
1447 /* ./../lib/standard//kernel.nit:382 */
1448 REGB1
= TAG_Int((unsigned char)UNTAG_Char(REGB1
));
1449 /* ./../lib/standard//kernel.nit:215 */
1450 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1451 /* ./../lib/standard//kernel.nit:277 */
1452 REGB1
= TAG_Char(UNTAG_Int(REGB1
));
1453 /* ./../lib/standard//kernel.nit:310 */
1456 /* ./../lib/standard//kernel.nit:312 */
1457 REGB2
= TAG_Char('a');
1458 /* ./../lib/standard//kernel.nit:382 */
1459 REGB2
= TAG_Int((unsigned char)UNTAG_Char(REGB2
));
1460 /* ./../lib/standard//kernel.nit:312 */
1461 REGB3
= TAG_Int(10);
1462 /* ./../lib/standard//kernel.nit:217 */
1463 REGB3
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB3
));
1464 /* ./../lib/standard//kernel.nit:215 */
1465 REGB3
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB3
));
1466 /* ./../lib/standard//kernel.nit:277 */
1467 REGB3
= TAG_Char(UNTAG_Int(REGB3
));
1468 /* ./../lib/standard//kernel.nit:312 */
1473 stack_frame_head
= fra
.me
.prev
;
1476 void kernel___Int___enumerate_to(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
1477 struct {struct stack_frame_t me
;} fra
;
1483 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1484 fra
.me
.file
= LOCATE_kernel
;
1486 fra
.me
.meth
= LOCATE_kernel___Int___enumerate_to
;
1487 fra
.me
.has_broke
= 0;
1488 fra
.me
.REG_size
= 0;
1489 fra
.me
.closure_ctx
= closctx_param
;
1490 fra
.me
.closure_funs
= CREG
;
1493 CREG
[0] = clos_fun0
;
1494 /* ./../lib/standard//kernel.nit:321 */
1496 /* ./../lib/standard//kernel.nit:211 */
1497 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<=UNTAG_Int(REGB1
));
1498 /* ./../lib/standard//kernel.nit:321 */
1499 if (UNTAG_Bool(REGB2
)) {
1500 /* ./../lib/standard//kernel.nit:322 */
1501 ((void (*)(struct stack_frame_t
*, val_t
))(CREG
[0]))(closctx_param
, REGB0
);
1502 if (closctx_param
->has_broke
) {
1505 /* ./../lib/standard//kernel.nit:323 */
1507 /* ./../lib/standard//kernel.nit:215 */
1508 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
1509 /* ./../lib/standard//kernel.nit:323 */
1512 /* ./../lib/standard//kernel.nit:321 */
1518 stack_frame_head
= fra
.me
.prev
;
1521 void kernel___Int___enumerate_before(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
1522 struct {struct stack_frame_t me
;} fra
;
1528 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1529 fra
.me
.file
= LOCATE_kernel
;
1531 fra
.me
.meth
= LOCATE_kernel___Int___enumerate_before
;
1532 fra
.me
.has_broke
= 0;
1533 fra
.me
.REG_size
= 0;
1534 fra
.me
.closure_ctx
= closctx_param
;
1535 fra
.me
.closure_funs
= CREG
;
1538 CREG
[0] = clos_fun0
;
1539 /* ./../lib/standard//kernel.nit:332 */
1541 /* ./../lib/standard//kernel.nit:212 */
1542 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1543 /* ./../lib/standard//kernel.nit:332 */
1544 if (UNTAG_Bool(REGB2
)) {
1545 /* ./../lib/standard//kernel.nit:333 */
1546 ((void (*)(struct stack_frame_t
*, val_t
))(CREG
[0]))(closctx_param
, REGB0
);
1547 if (closctx_param
->has_broke
) {
1550 /* ./../lib/standard//kernel.nit:334 */
1552 /* ./../lib/standard//kernel.nit:215 */
1553 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
1554 /* ./../lib/standard//kernel.nit:334 */
1557 /* ./../lib/standard//kernel.nit:332 */
1563 stack_frame_head
= fra
.me
.prev
;
1566 val_t
kernel___Char___object_id(val_t p0
){
1567 struct {struct stack_frame_t me
;} fra
;
1570 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1571 fra
.me
.file
= LOCATE_kernel
;
1573 fra
.me
.meth
= LOCATE_kernel___Char___object_id
;
1574 fra
.me
.has_broke
= 0;
1575 fra
.me
.REG_size
= 0;
1577 /* ./../lib/standard//kernel.nit:346 */
1578 REGB0
= TAG_Int(UNTAG_Char(REGB0
));
1579 stack_frame_head
= fra
.me
.prev
;
1582 val_t
kernel___Char_____eqeq(val_t p0
, val_t p1
){
1583 struct {struct stack_frame_t me
;} fra
;
1586 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1587 fra
.me
.file
= LOCATE_kernel
;
1589 fra
.me
.meth
= LOCATE_kernel___Char_____eqeq
;
1590 fra
.me
.has_broke
= 0;
1591 fra
.me
.REG_size
= 1;
1592 fra
.me
.REG
[0] = NIT_NULL
;
1595 /* ./../lib/standard//kernel.nit:347 */
1596 REGB0
= TAG_Bool((REGB0
)==(fra
.me
.REG
[0]));
1597 stack_frame_head
= fra
.me
.prev
;
1600 val_t
kernel___Char_____neq(val_t p0
, val_t p1
){
1601 struct {struct stack_frame_t me
;} fra
;
1604 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1605 fra
.me
.file
= LOCATE_kernel
;
1607 fra
.me
.meth
= LOCATE_kernel___Char_____neq
;
1608 fra
.me
.has_broke
= 0;
1609 fra
.me
.REG_size
= 1;
1610 fra
.me
.REG
[0] = NIT_NULL
;
1613 /* ./../lib/standard//kernel.nit:348 */
1614 REGB0
= TAG_Bool((REGB0
)!=(fra
.me
.REG
[0]));
1615 stack_frame_head
= fra
.me
.prev
;
1618 void kernel___Char___output(val_t p0
){
1619 struct {struct stack_frame_t me
;} fra
;
1622 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1623 fra
.me
.file
= LOCATE_kernel
;
1625 fra
.me
.meth
= LOCATE_kernel___Char___output
;
1626 fra
.me
.has_broke
= 0;
1627 fra
.me
.REG_size
= 0;
1629 /* ./../lib/standard//kernel.nit:349 */
1630 printf("%c", (unsigned char)UNTAG_Char(REGB0
));;
1631 stack_frame_head
= fra
.me
.prev
;
1634 val_t
kernel___Char_____leq(val_t p0
, val_t p1
){
1635 struct {struct stack_frame_t me
;} fra
;
1639 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1640 fra
.me
.file
= LOCATE_kernel
;
1642 fra
.me
.meth
= LOCATE_kernel___Char_____leq
;
1643 fra
.me
.has_broke
= 0;
1644 fra
.me
.REG_size
= 0;
1647 /* ./../lib/standard//kernel.nit:351 */
1648 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)<=UNTAG_Char(REGB1
));
1649 stack_frame_head
= fra
.me
.prev
;
1652 val_t
kernel___Char_____l(val_t p0
, val_t p1
){
1653 struct {struct stack_frame_t me
;} fra
;
1657 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1658 fra
.me
.file
= LOCATE_kernel
;
1660 fra
.me
.meth
= LOCATE_kernel___Char_____l
;
1661 fra
.me
.has_broke
= 0;
1662 fra
.me
.REG_size
= 0;
1665 /* ./../lib/standard//kernel.nit:352 */
1666 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)<UNTAG_Char(REGB1
));
1667 stack_frame_head
= fra
.me
.prev
;
1670 val_t
kernel___Char_____geq(val_t p0
, val_t p1
){
1671 struct {struct stack_frame_t me
;} fra
;
1675 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1676 fra
.me
.file
= LOCATE_kernel
;
1678 fra
.me
.meth
= LOCATE_kernel___Char_____geq
;
1679 fra
.me
.has_broke
= 0;
1680 fra
.me
.REG_size
= 0;
1683 /* ./../lib/standard//kernel.nit:353 */
1684 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)>=UNTAG_Char(REGB1
));
1685 stack_frame_head
= fra
.me
.prev
;
1688 val_t
kernel___Char_____g(val_t p0
, val_t p1
){
1689 struct {struct stack_frame_t me
;} fra
;
1693 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1694 fra
.me
.file
= LOCATE_kernel
;
1696 fra
.me
.meth
= LOCATE_kernel___Char_____g
;
1697 fra
.me
.has_broke
= 0;
1698 fra
.me
.REG_size
= 0;
1701 /* ./../lib/standard//kernel.nit:354 */
1702 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)>UNTAG_Char(REGB1
));
1703 stack_frame_head
= fra
.me
.prev
;
1706 val_t
kernel___Char___succ(val_t p0
){
1707 struct {struct stack_frame_t me
;} fra
;
1710 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1711 fra
.me
.file
= LOCATE_kernel
;
1713 fra
.me
.meth
= LOCATE_kernel___Char___succ
;
1714 fra
.me
.has_broke
= 0;
1715 fra
.me
.REG_size
= 0;
1717 /* ./../lib/standard//kernel.nit:356 */
1718 REGB0
= TAG_Char(UNTAG_Char(REGB0
)+1);
1719 stack_frame_head
= fra
.me
.prev
;
1722 val_t
kernel___Char___prec(val_t p0
){
1723 struct {struct stack_frame_t me
;} fra
;
1726 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1727 fra
.me
.file
= LOCATE_kernel
;
1729 fra
.me
.meth
= LOCATE_kernel___Char___prec
;
1730 fra
.me
.has_broke
= 0;
1731 fra
.me
.REG_size
= 0;
1733 /* ./../lib/standard//kernel.nit:357 */
1734 REGB0
= TAG_Char(UNTAG_Char(REGB0
)-1);
1735 stack_frame_head
= fra
.me
.prev
;
1738 val_t
kernel___Char___distance(val_t p0
, val_t p1
){
1739 struct {struct stack_frame_t me
;} fra
;
1743 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1744 fra
.me
.file
= LOCATE_kernel
;
1746 fra
.me
.meth
= LOCATE_kernel___Char___distance
;
1747 fra
.me
.has_broke
= 0;
1748 fra
.me
.REG_size
= 0;
1751 /* ./../lib/standard//kernel.nit:382 */
1752 REGB0
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1753 REGB1
= TAG_Int((unsigned char)UNTAG_Char(REGB1
));
1754 /* ./../lib/standard//kernel.nit:217 */
1755 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1756 /* ./../lib/standard//kernel.nit:362 */
1758 /* ./../lib/standard//kernel.nit:213 */
1759 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)>=UNTAG_Int(REGB0
));
1760 /* ./../lib/standard//kernel.nit:362 */
1761 if (UNTAG_Bool(REGB0
)) {
1762 /* ./../lib/standard//kernel.nit:363 */
1766 /* ./../lib/standard//kernel.nit:216 */
1767 REGB1
= TAG_Int(-UNTAG_Int(REGB1
));
1768 /* ./../lib/standard//kernel.nit:365 */
1773 stack_frame_head
= fra
.me
.prev
;
1776 val_t
kernel___Char___to_i(val_t p0
){
1777 struct {struct stack_frame_t me
;} fra
;
1783 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1784 fra
.me
.file
= LOCATE_kernel
;
1786 fra
.me
.meth
= LOCATE_kernel___Char___to_i
;
1787 fra
.me
.has_broke
= 0;
1788 fra
.me
.REG_size
= 0;
1790 /* ./../lib/standard//kernel.nit:373 */
1791 REGB1
= TAG_Char('-');
1792 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB1
));
1793 if (UNTAG_Bool(REGB2
)) {
1795 /* ./../lib/standard//kernel.nit:347 */
1796 REGB1
= TAG_Bool((REGB0
)==(REGB1
));
1797 /* ./../lib/standard//kernel.nit:373 */
1800 if (UNTAG_Bool(REGB2
)) {
1801 /* ./../lib/standard//kernel.nit:374 */
1803 /* ./../lib/standard//kernel.nit:216 */
1804 REGB2
= TAG_Int(-UNTAG_Int(REGB2
));
1805 /* ./../lib/standard//kernel.nit:374 */
1808 /* ./../lib/standard//kernel.nit:375 */
1809 REGB1
= CALL_kernel___Char___is_digit(REGB0
)(REGB0
);
1810 if (UNTAG_Bool(REGB1
)) {
1811 /* ./../lib/standard//kernel.nit:382 */
1812 REGB1
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1813 /* ./../lib/standard//kernel.nit:376 */
1814 REGB3
= TAG_Char('0');
1815 /* ./../lib/standard//kernel.nit:382 */
1816 REGB3
= TAG_Int((unsigned char)UNTAG_Char(REGB3
));
1817 /* ./../lib/standard//kernel.nit:217 */
1818 REGB3
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB3
));
1819 /* ./../lib/standard//kernel.nit:376 */
1823 /* ./../lib/standard//kernel.nit:378 */
1824 REGB0
= CALL_kernel___Char___to_lower(REGB0
)(REGB0
);
1825 /* ./../lib/standard//kernel.nit:382 */
1826 REGB0
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1827 /* ./../lib/standard//kernel.nit:378 */
1828 REGB3
= TAG_Char('a');
1829 /* ./../lib/standard//kernel.nit:382 */
1830 REGB3
= TAG_Int((unsigned char)UNTAG_Char(REGB3
));
1831 /* ./../lib/standard//kernel.nit:378 */
1832 REGB1
= TAG_Int(10);
1833 /* ./../lib/standard//kernel.nit:215 */
1834 REGB1
= TAG_Int(UNTAG_Int(REGB3
)+UNTAG_Int(REGB1
));
1835 /* ./../lib/standard//kernel.nit:217 */
1836 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1837 /* ./../lib/standard//kernel.nit:378 */
1843 stack_frame_head
= fra
.me
.prev
;
1846 val_t
kernel___Char___ascii(val_t p0
){
1847 struct {struct stack_frame_t me
;} fra
;
1850 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1851 fra
.me
.file
= LOCATE_kernel
;
1853 fra
.me
.meth
= LOCATE_kernel___Char___ascii
;
1854 fra
.me
.has_broke
= 0;
1855 fra
.me
.REG_size
= 0;
1857 /* ./../lib/standard//kernel.nit:382 */
1858 REGB0
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1859 stack_frame_head
= fra
.me
.prev
;
1862 val_t
kernel___Char_____plus(val_t p0
, val_t p1
){
1863 struct {struct stack_frame_t me
;} fra
;
1867 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1868 fra
.me
.file
= LOCATE_kernel
;
1870 fra
.me
.meth
= LOCATE_kernel___Char_____plus
;
1871 fra
.me
.has_broke
= 0;
1872 fra
.me
.REG_size
= 0;
1875 /* ./../lib/standard//kernel.nit:385 */
1876 REGB1
= TAG_Char(UNTAG_Char(REGB0
)+UNTAG_Char(REGB1
));
1877 stack_frame_head
= fra
.me
.prev
;
1880 val_t
kernel___Char_____minus(val_t p0
, val_t p1
){
1881 struct {struct stack_frame_t me
;} fra
;
1885 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1886 fra
.me
.file
= LOCATE_kernel
;
1888 fra
.me
.meth
= LOCATE_kernel___Char_____minus
;
1889 fra
.me
.has_broke
= 0;
1890 fra
.me
.REG_size
= 0;
1893 /* ./../lib/standard//kernel.nit:386 */
1894 REGB1
= TAG_Char(UNTAG_Char(REGB0
)-UNTAG_Char(REGB1
));
1895 stack_frame_head
= fra
.me
.prev
;
1898 val_t
kernel___Char___to_lower(val_t p0
){
1899 struct {struct stack_frame_t me
;} fra
;
1905 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1906 fra
.me
.file
= LOCATE_kernel
;
1908 fra
.me
.meth
= LOCATE_kernel___Char___to_lower
;
1909 fra
.me
.has_broke
= 0;
1910 fra
.me
.REG_size
= 0;
1912 /* ./../lib/standard//kernel.nit:391 */
1913 REGB1
= CALL_kernel___Char___is_upper(REGB0
)(REGB0
);
1914 if (UNTAG_Bool(REGB1
)) {
1915 /* ./../lib/standard//kernel.nit:382 */
1916 REGB1
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1917 /* ./../lib/standard//kernel.nit:392 */
1918 REGB2
= TAG_Char('a');
1919 REGB3
= TAG_Char('A');
1920 REGB3
= CALL_kernel___Discrete___distance(REGB2
)(REGB2
, REGB3
);
1921 /* ./../lib/standard//kernel.nit:215 */
1922 REGB3
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB3
));
1923 /* ./../lib/standard//kernel.nit:277 */
1924 REGB3
= TAG_Char(UNTAG_Int(REGB3
));
1925 /* ./../lib/standard//kernel.nit:392 */
1928 /* ./../lib/standard//kernel.nit:394 */
1933 stack_frame_head
= fra
.me
.prev
;
1936 val_t
kernel___Char___to_upper(val_t p0
){
1937 struct {struct stack_frame_t me
;} fra
;
1943 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1944 fra
.me
.file
= LOCATE_kernel
;
1946 fra
.me
.meth
= LOCATE_kernel___Char___to_upper
;
1947 fra
.me
.has_broke
= 0;
1948 fra
.me
.REG_size
= 0;
1950 /* ./../lib/standard//kernel.nit:401 */
1951 REGB1
= CALL_kernel___Char___is_lower(REGB0
)(REGB0
);
1952 if (UNTAG_Bool(REGB1
)) {
1953 /* ./../lib/standard//kernel.nit:382 */
1954 REGB1
= TAG_Int((unsigned char)UNTAG_Char(REGB0
));
1955 /* ./../lib/standard//kernel.nit:402 */
1956 REGB2
= TAG_Char('a');
1957 REGB3
= TAG_Char('A');
1958 REGB3
= CALL_kernel___Discrete___distance(REGB2
)(REGB2
, REGB3
);
1959 /* ./../lib/standard//kernel.nit:217 */
1960 REGB3
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB3
));
1961 /* ./../lib/standard//kernel.nit:277 */
1962 REGB3
= TAG_Char(UNTAG_Int(REGB3
));
1963 /* ./../lib/standard//kernel.nit:402 */
1966 /* ./../lib/standard//kernel.nit:404 */
1971 stack_frame_head
= fra
.me
.prev
;
1974 val_t
kernel___Char___is_digit(val_t p0
){
1975 struct {struct stack_frame_t me
;} fra
;
1979 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1980 fra
.me
.file
= LOCATE_kernel
;
1982 fra
.me
.meth
= LOCATE_kernel___Char___is_digit
;
1983 fra
.me
.has_broke
= 0;
1984 fra
.me
.REG_size
= 0;
1986 /* ./../lib/standard//kernel.nit:410 */
1987 REGB1
= TAG_Char('0');
1988 /* ./../lib/standard//kernel.nit:353 */
1989 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)>=UNTAG_Char(REGB1
));
1990 /* ./../lib/standard//kernel.nit:410 */
1991 if (UNTAG_Bool(REGB1
)) {
1992 REGB1
= TAG_Char('9');
1993 /* ./../lib/standard//kernel.nit:351 */
1994 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)<=UNTAG_Char(REGB1
));
1996 /* ./../lib/standard//kernel.nit:410 */
1997 REGB0
= TAG_Bool(false);
2002 stack_frame_head
= fra
.me
.prev
;
2005 val_t
kernel___Char___is_lower(val_t p0
){
2006 struct {struct stack_frame_t me
;} fra
;
2010 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2011 fra
.me
.file
= LOCATE_kernel
;
2013 fra
.me
.meth
= LOCATE_kernel___Char___is_lower
;
2014 fra
.me
.has_broke
= 0;
2015 fra
.me
.REG_size
= 0;
2017 /* ./../lib/standard//kernel.nit:415 */
2018 REGB1
= TAG_Char('a');
2019 /* ./../lib/standard//kernel.nit:353 */
2020 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)>=UNTAG_Char(REGB1
));
2021 /* ./../lib/standard//kernel.nit:415 */
2022 if (UNTAG_Bool(REGB1
)) {
2023 REGB1
= TAG_Char('z');
2024 /* ./../lib/standard//kernel.nit:351 */
2025 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)<=UNTAG_Char(REGB1
));
2027 /* ./../lib/standard//kernel.nit:415 */
2028 REGB0
= TAG_Bool(false);
2033 stack_frame_head
= fra
.me
.prev
;
2036 val_t
kernel___Char___is_upper(val_t p0
){
2037 struct {struct stack_frame_t me
;} fra
;
2041 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2042 fra
.me
.file
= LOCATE_kernel
;
2044 fra
.me
.meth
= LOCATE_kernel___Char___is_upper
;
2045 fra
.me
.has_broke
= 0;
2046 fra
.me
.REG_size
= 0;
2048 /* ./../lib/standard//kernel.nit:420 */
2049 REGB1
= TAG_Char('A');
2050 /* ./../lib/standard//kernel.nit:353 */
2051 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)>=UNTAG_Char(REGB1
));
2052 /* ./../lib/standard//kernel.nit:420 */
2053 if (UNTAG_Bool(REGB1
)) {
2054 REGB1
= TAG_Char('Z');
2055 /* ./../lib/standard//kernel.nit:351 */
2056 REGB1
= TAG_Bool(UNTAG_Char(REGB0
)<=UNTAG_Char(REGB1
));
2058 /* ./../lib/standard//kernel.nit:420 */
2059 REGB0
= TAG_Bool(false);
2064 stack_frame_head
= fra
.me
.prev
;
2067 val_t
kernel___Char___is_letter(val_t p0
){
2068 struct {struct stack_frame_t me
;} fra
;
2072 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2073 fra
.me
.file
= LOCATE_kernel
;
2075 fra
.me
.meth
= LOCATE_kernel___Char___is_letter
;
2076 fra
.me
.has_broke
= 0;
2077 fra
.me
.REG_size
= 0;
2079 /* ./../lib/standard//kernel.nit:425 */
2080 REGB1
= CALL_kernel___Char___is_lower(REGB0
)(REGB0
);
2081 if (UNTAG_Bool(REGB1
)) {
2082 REGB1
= TAG_Bool(true);
2084 REGB0
= CALL_kernel___Char___is_upper(REGB0
)(REGB0
);
2089 stack_frame_head
= fra
.me
.prev
;