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___vararg_rank(val_t p0){
   4   struct {struct stack_frame_t me;} fra;
   5   val_t REGB0;
   6   val_t tmp;
   7   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   8   fra.me.file = LOCATE_vararg;
   9   fra.me.line = 24;
  10   fra.me.meth = LOCATE_vararg___MMSignature___vararg_rank;
  11   fra.me.has_broke = 0;
  12   fra.me.REG_size = 1;
  13   fra.me.REG[0] = NIT_NULL;
  14   fra.me.REG[0] = p0;
  15   /* ./metamodel//vararg.nit:24 */
  16   REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
  17   if (UNTAG_Bool(REGB0)) {
  18   } else {
  19     nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 24);
  20   }
  21   REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
  22   stack_frame_head = fra.me.prev;
  23   return REGB0;
  24 }
  25 void vararg___MMSignature___vararg_rank__eq(val_t p0, val_t p1){
  26   struct {struct stack_frame_t me;} fra;
  27   val_t REGB0;
  28   val_t tmp;
  29   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  30   fra.me.file = LOCATE_vararg;
  31   fra.me.line = 24;
  32   fra.me.meth = LOCATE_vararg___MMSignature___vararg_rank__eq;
  33   fra.me.has_broke = 0;
  34   fra.me.REG_size = 1;
  35   fra.me.REG[0] = NIT_NULL;
  36   fra.me.REG[0] = p0;
  37   REGB0 = p1;
  38   /* ./metamodel//vararg.nit:24 */
  39   ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]) = REGB0;
  40   stack_frame_head = fra.me.prev;
  41   return;
  42 }
  43 val_t vararg___MMSignature___has_vararg(val_t p0){
  44   struct {struct stack_frame_t me;} fra;
  45   val_t REGB0;
  46   val_t REGB1;
  47   val_t tmp;
  48   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  49   fra.me.file = LOCATE_vararg;
  50   fra.me.line = 27;
  51   fra.me.meth = LOCATE_vararg___MMSignature___has_vararg;
  52   fra.me.has_broke = 0;
  53   fra.me.REG_size = 1;
  54   fra.me.REG[0] = NIT_NULL;
  55   fra.me.REG[0] = p0;
  56   /* ./metamodel//vararg.nit:30 */
  57   REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
  58   if (UNTAG_Bool(REGB0)) {
  59   } else {
  60     nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 30);
  61   }
  62   REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
  63   REGB1 = TAG_Int(0);
  64   /* ./../lib/standard//kernel.nit:213 */
  65   REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
  66   /* ./metamodel//vararg.nit:30 */
  67   goto label1;
  68   label1: while(0);
  69   stack_frame_head = fra.me.prev;
  70   return REGB1;
  71 }
  72 val_t vararg___MMSignature___adaptation_to(val_t p0, val_t p1){
  73   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
  74   val_t REGB0;
  75   val_t tmp;
  76   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  77   fra.me.file = LOCATE_vararg;
  78   fra.me.line = 33;
  79   fra.me.meth = LOCATE_vararg___MMSignature___adaptation_to;
  80   fra.me.has_broke = 0;
  81   fra.me.REG_size = 3;
  82   fra.me.REG[0] = NIT_NULL;
  83   fra.me.REG[1] = NIT_NULL;
  84   fra.me.REG[2] = NIT_NULL;
  85   fra.me.REG[0] = p0;
  86   fra.me.REG[1] = p1;
  87   /* ./metamodel//vararg.nit:33 */
  88   fra.me.REG[2] = fra.me.REG[0];
  89   /* ./metamodel//vararg.nit:35 */
  90   fra.me.REG[1] = CALL_SUPER_vararg___MMSignature___adaptation_to(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
  91   /* ./metamodel//vararg.nit:36 */
  92   REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2])!=NIT_NULL);
  93   if (UNTAG_Bool(REGB0)) {
  94   } else {
  95     nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 36);
  96   }
  97   REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2]);
  98   CALL_vararg___MMSignature___vararg_rank__eq(fra.me.REG[1])(fra.me.REG[1], REGB0);
  99   /* ./metamodel//vararg.nit:37 */
 100   goto label1;
 101   label1: while(0);
 102   stack_frame_head = fra.me.prev;
 103   return fra.me.REG[1];
 104 }
 105 val_t vararg___MMSignature___not_for_self(val_t p0){
 106   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 107   val_t REGB0;
 108   val_t tmp;
 109   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 110   fra.me.file = LOCATE_vararg;
 111   fra.me.line = 40;
 112   fra.me.meth = LOCATE_vararg___MMSignature___not_for_self;
 113   fra.me.has_broke = 0;
 114   fra.me.REG_size = 2;
 115   fra.me.REG[0] = NIT_NULL;
 116   fra.me.REG[1] = NIT_NULL;
 117   fra.me.REG[0] = p0;
 118   /* ./metamodel//vararg.nit:40 */
 119   fra.me.REG[1] = fra.me.REG[0];
 120   /* ./metamodel//vararg.nit:42 */
 121   fra.me.REG[0] = CALL_SUPER_vararg___MMSignature___not_for_self(fra.me.REG[0])(fra.me.REG[0]);
 122   /* ./metamodel//vararg.nit:43 */
 123   REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1])!=NIT_NULL);
 124   if (UNTAG_Bool(REGB0)) {
 125   } else {
 126     nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_vararg, 43);
 127   }
 128   REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1]);
 129   CALL_vararg___MMSignature___vararg_rank__eq(fra.me.REG[0])(fra.me.REG[0], REGB0);
 130   /* ./metamodel//vararg.nit:44 */
 131   goto label1;
 132   label1: while(0);
 133   stack_frame_head = fra.me.prev;
 134   return fra.me.REG[0];
 135 }
 136 void vararg___MMSignature___init(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table){
 137   int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_MMSignature].i;
 138   struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
 139   val_t REGB0;
 140   val_t tmp;
 141   if (init_table[itpos0]) return;
 142   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 143   fra.me.file = LOCATE_vararg;
 144   fra.me.line = 47;
 145   fra.me.meth = LOCATE_vararg___MMSignature___init;
 146   fra.me.has_broke = 0;
 147   fra.me.REG_size = 5;
 148   fra.me.REG[0] = NIT_NULL;
 149   fra.me.REG[1] = NIT_NULL;
 150   fra.me.REG[2] = NIT_NULL;
 151   fra.me.REG[3] = NIT_NULL;
 152   fra.me.REG[4] = NIT_NULL;
 153   fra.me.REG[0] = p0;
 154   fra.me.REG[1] = p1;
 155   fra.me.REG[2] = p2;
 156   fra.me.REG[3] = p3;
 157   /* ./metamodel//vararg.nit:47 */
 158   fra.me.REG[4] = fra.me.REG[0];
 159   /* ./metamodel//vararg.nit:49 */
 160   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);
 161   /* ./metamodel//vararg.nit:50 */
 162   REGB0 = TAG_Int(1);
 163   /* ./../lib/standard//kernel.nit:216 */
 164   REGB0 = TAG_Int(-UNTAG_Int(REGB0));
 165   /* ./metamodel//vararg.nit:50 */
 166   ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[4]) = REGB0;
 167   stack_frame_head = fra.me.prev;
 168   init_table[itpos0] = 1;
 169   return;
 170 }