1 /* This C file is generated by NIT to compile module vararg. */
2 #include "vararg._sep.h"
3 val_t
vararg___MMSignature___vararg_rank(val_t self
) {
4 struct trace_t trace
= {NULL
, LOCATE_vararg
, 24, LOCATE_vararg___MMSignature___vararg_rank
};
5 trace
.prev
= tracehead
; tracehead
= &trace
;
6 tracehead
= trace
.prev
;
7 return ATTR_vararg___MMSignature____vararg_rank( self
) /*MMSignature::_vararg_rank*/;
9 void vararg___MMSignature___vararg_rank__eq(val_t self
, val_t param0
) {
10 struct trace_t trace
= {NULL
, LOCATE_vararg
, 24, LOCATE_vararg___MMSignature___vararg_rank__eq
};
11 trace
.prev
= tracehead
; tracehead
= &trace
;
12 ATTR_vararg___MMSignature____vararg_rank( self
) /*MMSignature::_vararg_rank*/ = param0
;
13 tracehead
= trace
.prev
;
16 val_t
vararg___MMSignature___has_vararg(val_t self
) {
17 struct trace_t trace
= {NULL
, LOCATE_vararg
, 27, LOCATE_vararg___MMSignature___has_vararg
};
19 trace
.prev
= tracehead
; tracehead
= &trace
;
20 variable0
= ATTR_vararg___MMSignature____vararg_rank( self
) /*MMSignature::_vararg_rank*/;
21 variable0
= TAG_Bool(UNTAG_Int(variable0
)>=UNTAG_Int( TAG_Int(0)));
23 return_label0
: while(false);
24 tracehead
= trace
.prev
;
27 val_t
vararg___MMSignature___adaptation_to(val_t self
, val_t param0
) {
28 struct trace_t trace
= {NULL
, LOCATE_vararg
, 33, LOCATE_vararg___MMSignature___adaptation_to
};
32 trace
.prev
= tracehead
; tracehead
= &trace
;
34 variable2
= ((vararg___MMSignature___adaptation_to_t
)CALL( self
,COLOR_SUPER_vararg___MMSignature___adaptation_to
))( self
, variable0
/*r*/) /*super MMSignature::adaptation_to*/;
35 variable1
= variable2
;
36 variable2
= ATTR_vararg___MMSignature____vararg_rank( self
) /*MMSignature::_vararg_rank*/;
37 ((vararg___MMSignature___vararg_rank__eq_t
)CALL( variable1
/*s*/,COLOR_vararg___MMSignature___vararg_rank__eq
))( variable1
/*s*/, variable2
) /*MMSignature::vararg_rank=*/;
38 variable1
= variable1
/*s*/;
40 return_label1
: while(false);
41 tracehead
= trace
.prev
;
44 void vararg___MMSignature___init(val_t self
, val_t param0
, val_t param1
, val_t param2
, int* init_table
) {
45 struct trace_t trace
= {NULL
, LOCATE_vararg
, 40, LOCATE_vararg___MMSignature___init
};
50 trace
.prev
= tracehead
; tracehead
= &trace
;
54 if (init_table
[VAL2OBJ( self
)->vft
[INIT_TABLE_POS_MMSignature
].i
]) return;
55 ((vararg___MMSignature___init_t
)CALL( self
,COLOR_SUPER_vararg___MMSignature___init
))( self
, param0
, param1
, param2
, init_table
) /*super MMSignature::init*/;
56 variable3
= TAG_Int(-UNTAG_Int( TAG_Int(1)));
57 ATTR_vararg___MMSignature____vararg_rank( self
) /*MMSignature::_vararg_rank*/ = variable3
;
58 init_table
[VAL2OBJ( self
)->vft
[INIT_TABLE_POS_MMSignature
].i
] = 1;
59 tracehead
= trace
.prev
;