/* This C file is generated by NIT to compile module vararg. */
#include "vararg._sep.h"
-val_t vararg___MMSignature___adaptation_to(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 33, LOCATE_vararg___MMSignature___adaptation_to};
- val_t variable[5];
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- variable[0] = self;
- variable[1] = param0;
- variable[4] = ((vararg___MMSignature___adaptation_to_t)CALL(variable[0],COLOR_SUPER_vararg___MMSignature___adaptation_to))(variable[0], variable[1] /*r*/) /*super MMSignature::adaptation_to*/;
- variable[3] = variable[4];
- variable[4] = variable[0];
- variable[4] = ATTR_vararg___MMSignature____vararg_rank(variable[4]) /*MMSignature::_vararg_rank*/;
- ((vararg___MMSignature___vararg_rank__eq_t)CALL( variable[3] /*s*/,COLOR_vararg___MMSignature___vararg_rank__eq))( variable[3] /*s*/, variable[4]) /*MMSignature::vararg_rank=*/;
- variable[2] = variable[3] /*s*/;
- goto return_label0;
- return_label0: while(false);
- tracehead = trace.prev;
- return variable[2];
+val_t vararg___MMSignature___vararg_rank(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 24;
+ fra.me.meth = LOCATE_vararg___MMSignature___vararg_rank;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./metamodel//vararg.nit:24 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 24);
+ }
+ REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
}
-val_t vararg___MMSignature___not_for_self(val_t self) {
- struct trace_t trace = {NULL, NULL, 40, LOCATE_vararg___MMSignature___not_for_self};
- val_t variable[4];
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- variable[0] = self;
- variable[3] = ((vararg___MMSignature___not_for_self_t)CALL(variable[0],COLOR_SUPER_vararg___MMSignature___not_for_self))(variable[0]) /*super MMSignature::not_for_self*/;
- variable[2] = variable[3];
- variable[3] = variable[0];
- variable[3] = ATTR_vararg___MMSignature____vararg_rank(variable[3]) /*MMSignature::_vararg_rank*/;
- ((vararg___MMSignature___vararg_rank__eq_t)CALL( variable[2] /*s*/,COLOR_vararg___MMSignature___vararg_rank__eq))( variable[2] /*s*/, variable[3]) /*MMSignature::vararg_rank=*/;
- variable[1] = variable[2] /*s*/;
- goto return_label1;
- return_label1: while(false);
- tracehead = trace.prev;
- return variable[1];
-}
-void vararg___MMSignature___init(val_t self, val_t param0, val_t param1, val_t param2, int* init_table) {
- struct trace_t trace = {NULL, NULL, 47, LOCATE_vararg___MMSignature___init};
- val_t variable[7];
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- variable[0] = self;
- variable[1] = param0;
- variable[2] = param1;
- variable[3] = param2;
- if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_MMSignature].i]) return;
- ((vararg___MMSignature___init_t)CALL(variable[0],COLOR_SUPER_vararg___MMSignature___init))(variable[0], variable[1], variable[2], variable[3], init_table) /*super MMSignature::init*/;
- variable[5] = variable[0];
- variable[6] = TAG_Int(-UNTAG_Int( TAG_Int(1)));
- ATTR_vararg___MMSignature____vararg_rank(variable[5]) /*MMSignature::_vararg_rank*/ = variable[6];
- return_label2: while(false);
- init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_MMSignature].i] = 1;
- tracehead = trace.prev;
+void vararg___MMSignature___vararg_rank__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 24;
+ fra.me.meth = LOCATE_vararg___MMSignature___vararg_rank__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ REGB0 = p1;
+ /* ./metamodel//vararg.nit:24 */
+ ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]) = REGB0;
+ stack_frame_head = fra.me.prev;
return;
}
-val_t vararg___MMSignature___vararg_rank(val_t self) {
- struct trace_t trace = {NULL, NULL, 24, LOCATE_vararg___MMSignature___vararg_rank};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- tracehead = trace.prev;
- return ATTR_vararg___MMSignature____vararg_rank( self) /*MMSignature::_vararg_rank*/;
+val_t vararg___MMSignature___has_vararg(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 27;
+ fra.me.meth = LOCATE_vararg___MMSignature___has_vararg;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./metamodel//vararg.nit:30 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 30);
+ }
+ REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
+ REGB1 = TAG_Int(0);
+ /* ./../lib/standard//kernel.nit:213 */
+ REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
+ /* ./metamodel//vararg.nit:30 */
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB1;
}
-void vararg___MMSignature___vararg_rank__eq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 24, LOCATE_vararg___MMSignature___vararg_rank__eq};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- ATTR_vararg___MMSignature____vararg_rank( self) /*MMSignature::_vararg_rank*/ = param0;
- tracehead = trace.prev;
- return;
+val_t vararg___MMSignature___adaptation_to(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 33;
+ fra.me.meth = LOCATE_vararg___MMSignature___adaptation_to;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* ./metamodel//vararg.nit:33 */
+ fra.me.REG[2] = fra.me.REG[0];
+ /* ./metamodel//vararg.nit:35 */
+ fra.me.REG[1] = CALL_SUPER_vararg___MMSignature___adaptation_to(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ /* ./metamodel//vararg.nit:36 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 36);
+ }
+ REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2]);
+ CALL_vararg___MMSignature___vararg_rank__eq(fra.me.REG[1])(fra.me.REG[1], REGB0);
+ /* ./metamodel//vararg.nit:37 */
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
}
-val_t vararg___MMSignature___has_vararg(val_t self) {
- struct trace_t trace = {NULL, NULL, 27, LOCATE_vararg___MMSignature___has_vararg};
- val_t variable[3];
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_vararg;
- variable[0] = self;
- variable[2] = variable[0];
- variable[2] = ATTR_vararg___MMSignature____vararg_rank(variable[2]) /*MMSignature::_vararg_rank*/;
- variable[2] = TAG_Bool(UNTAG_Int(variable[2])>=UNTAG_Int( TAG_Int(0)));
- variable[1] = variable[2];
- goto return_label3;
- return_label3: while(false);
- tracehead = trace.prev;
- return variable[1];
+val_t vararg___MMSignature___not_for_self(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 40;
+ fra.me.meth = LOCATE_vararg___MMSignature___not_for_self;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./metamodel//vararg.nit:40 */
+ fra.me.REG[1] = fra.me.REG[0];
+ /* ./metamodel//vararg.nit:42 */
+ fra.me.REG[0] = CALL_SUPER_vararg___MMSignature___not_for_self(fra.me.REG[0])(fra.me.REG[0]);
+ /* ./metamodel//vararg.nit:43 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 43);
+ }
+ REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1]);
+ CALL_vararg___MMSignature___vararg_rank__eq(fra.me.REG[0])(fra.me.REG[0], REGB0);
+ /* ./metamodel//vararg.nit:44 */
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+void vararg___MMSignature___init(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table){
+ int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_MMSignature].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
+ val_t REGB0;
+ val_t tmp;
+ if (init_table[itpos0]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_vararg;
+ fra.me.line = 47;
+ fra.me.meth = LOCATE_vararg___MMSignature___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 5;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ fra.me.REG[3] = p3;
+ /* ./metamodel//vararg.nit:47 */
+ fra.me.REG[4] = fra.me.REG[0];
+ /* ./metamodel//vararg.nit:49 */
+ CALL_SUPER_vararg___MMSignature___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], init_table);
+ /* ./metamodel//vararg.nit:50 */
+ REGB0 = TAG_Int(1);
+ /* ./../lib/standard//kernel.nit:216 */
+ REGB0 = TAG_Int(-UNTAG_Int(REGB0));
+ /* ./metamodel//vararg.nit:50 */
+ ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[4]) = REGB0;
+ stack_frame_head = fra.me.prev;
+ init_table[itpos0] = 1;
+ return;
}
nitlanguage / nit.git / blobdiff