c_src/vararg._sep.c

   1 /* This C file is generated by NIT to compile module vararg. */
   2 #include "vararg._sep.h"
   3 val_t vararg___MMSignature___adaptation_to(val_t  self, val_t  param0) {
   4   struct trace_t trace = {NULL, NULL, 33, LOCATE_vararg___MMSignature___adaptation_to};
   5   val_t variable[5];
   6   struct WBT_ **closurevariable = NULL;
   7   trace.prev = tracehead; tracehead = &trace;
   8   trace.file = LOCATE_vararg;
   9   /* Register variable[0]: Local variable */
  10   variable[0] =  self;
  11   /* Register variable[1]: Local variable */
  12   variable[1] =  param0;
  13   /* Register variable[2]: Method return value and escape marker */
  14   /* Register variable[3]: Local variable */
  15   /* Register variable[4]: Result */
  16   variable[4] = CALL_SUPER_vararg___MMSignature___adaptation_to(variable[0])(variable[0],  variable[1] /*r*/) /*super MMSignature::adaptation_to*/;
  17   variable[3] = variable[4];
  18   /* Register variable[4]: Result */
  19   variable[4] = ATTR_vararg___MMSignature____vararg_rank(variable[0]) /*MMSignature::_vararg_rank*/;
  20   CALL_vararg___MMSignature___vararg_rank__eq( variable[3] /*s*/)( variable[3] /*s*/, variable[4]) /*MMSignature::vararg_rank=*/;
  21   variable[2] =  variable[3] /*s*/;
  22   goto return_label0;
  23   return_label0: while(false);
  24   tracehead = trace.prev;
  25   return variable[2];
  26 }
  27 val_t vararg___MMSignature___not_for_self(val_t  self) {
  28   struct trace_t trace = {NULL, NULL, 40, LOCATE_vararg___MMSignature___not_for_self};
  29   val_t variable[4];
  30   struct WBT_ **closurevariable = NULL;
  31   trace.prev = tracehead; tracehead = &trace;
  32   trace.file = LOCATE_vararg;
  33   /* Register variable[0]: Local variable */
  34   variable[0] =  self;
  35   /* Register variable[1]: Method return value and escape marker */
  36   /* Register variable[2]: Local variable */
  37   /* Register variable[3]: Result */
  38   variable[3] = CALL_SUPER_vararg___MMSignature___not_for_self(variable[0])(variable[0]) /*super MMSignature::not_for_self*/;
  39   variable[2] = variable[3];
  40   /* Register variable[3]: Result */
  41   variable[3] = ATTR_vararg___MMSignature____vararg_rank(variable[0]) /*MMSignature::_vararg_rank*/;
  42   CALL_vararg___MMSignature___vararg_rank__eq( variable[2] /*s*/)( variable[2] /*s*/, variable[3]) /*MMSignature::vararg_rank=*/;
  43   variable[1] =  variable[2] /*s*/;
  44   goto return_label1;
  45   return_label1: while(false);
  46   tracehead = trace.prev;
  47   return variable[1];
  48 }
  49 void vararg___MMSignature___init(val_t  self, val_t  param0, val_t  param1, val_t  param2, int* init_table) {
  50   struct trace_t trace = {NULL, NULL, 47, LOCATE_vararg___MMSignature___init};
  51   val_t variable[6];
  52   struct WBT_ **closurevariable = NULL;
  53   trace.prev = tracehead; tracehead = &trace;
  54   trace.file = LOCATE_vararg;
  55   /* Register variable[0]: Local variable */
  56   variable[0] =  self;
  57   /* Register variable[1]: Local variable */
  58   variable[1] =  param0;
  59   /* Register variable[2]: Local variable */
  60   variable[2] =  param1;
  61   /* Register variable[3]: Local variable */
  62   variable[3] =  param2;
  63   if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_MMSignature].i]) return;
  64   /* Register variable[4]: Method return value and escape marker */
  65   CALL_SUPER_vararg___MMSignature___init(variable[0])(variable[0], variable[1], variable[2], variable[3], init_table) /*super MMSignature::init*/;
  66   /* Register variable[5]: Result */
  67   variable[5] = TAG_Int(-UNTAG_Int( TAG_Int(1)));
  68   ATTR_vararg___MMSignature____vararg_rank(variable[0]) /*MMSignature::_vararg_rank*/ = variable[5];
  69   return_label2: while(false);
  70   init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_MMSignature].i] = 1;
  71   tracehead = trace.prev;
  72   return;
  73 }
  74 val_t vararg___MMSignature___vararg_rank(val_t  self) {
  75   struct trace_t trace = {NULL, NULL, 24, LOCATE_vararg___MMSignature___vararg_rank};
  76   val_t *variable = NULL;
  77   struct WBT_ **closurevariable = NULL;
  78   trace.prev = tracehead; tracehead = &trace;
  79   trace.file = LOCATE_vararg;
  80   tracehead = trace.prev;
  81   return ATTR_vararg___MMSignature____vararg_rank( self) /*MMSignature::_vararg_rank*/;
  82 }
  83 void vararg___MMSignature___vararg_rank__eq(val_t  self, val_t  param0) {
  84   struct trace_t trace = {NULL, NULL, 24, LOCATE_vararg___MMSignature___vararg_rank__eq};
  85   val_t *variable = NULL;
  86   struct WBT_ **closurevariable = NULL;
  87   trace.prev = tracehead; tracehead = &trace;
  88   trace.file = LOCATE_vararg;
  89   ATTR_vararg___MMSignature____vararg_rank( self) /*MMSignature::_vararg_rank*/ =  param0;
  90   tracehead = trace.prev;
  91   return;
  92 }
  93 val_t vararg___MMSignature___has_vararg(val_t  self) {
  94   struct trace_t trace = {NULL, NULL, 27, LOCATE_vararg___MMSignature___has_vararg};
  95   val_t variable[3];
  96   struct WBT_ **closurevariable = NULL;
  97   trace.prev = tracehead; tracehead = &trace;
  98   trace.file = LOCATE_vararg;
  99   /* Register variable[0]: Local variable */
 100   variable[0] =  self;
 101   /* Register variable[1]: Method return value and escape marker */
 102   /* Register variable[2]: Result */
 103   variable[2] = ATTR_vararg___MMSignature____vararg_rank(variable[0]) /*MMSignature::_vararg_rank*/;
 104   /* Register variable[2]: Result */
 105   variable[2] = TAG_Bool(UNTAG_Int(variable[2])>=UNTAG_Int( TAG_Int(0)));
 106   variable[1] = variable[2];
 107   goto return_label3;
 108   return_label3: while(false);
 109   tracehead = trace.prev;
 110   return variable[1];
 111 }