+++ /dev/null
-/* This C file is generated by NIT to compile module metamodel___vararg. */
-#include "metamodel___vararg._sep.h"
-static const char LOCATE_metamodel___vararg___MMSignature___vararg_rank[] = "vararg::MMSignature::vararg_rank";
-val_t metamodel___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_metamodel___vararg;
- fra.me.line = 24;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___vararg_rank;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* metamodel/vararg.nit:24 */
- REGB0 = TAG_Bool(ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_metamodel___vararg, 24);
- }
- REGB0 = ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_metamodel___vararg___MMSignature___vararg_rank__eq[] = "vararg::MMSignature::vararg_rank=";
-void metamodel___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_metamodel___vararg;
- fra.me.line = 24;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___vararg_rank__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* metamodel/vararg.nit:24 */
- ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___vararg___MMSignature___has_vararg[] = "vararg::MMSignature::has_vararg";
-val_t metamodel___vararg___MMSignature___has_vararg(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___vararg;
- fra.me.line = 27;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___has_vararg;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* metamodel/vararg.nit:30 */
- REGB0 = TAG_Bool(ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_metamodel___vararg, 30);
- }
- REGB0 = ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- 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;
-}
-static const char LOCATE_metamodel___vararg___MMSignature___adaptation_to[] = "vararg::MMSignature::(static_type::MMSignature::adaptation_to)";
-val_t metamodel___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_metamodel___vararg;
- fra.me.line = 33;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___adaptation_to;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- 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_metamodel___vararg___MMSignature___adaptation_to(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/vararg.nit:36 */
- REGB0 = TAG_Bool(ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_metamodel___vararg, 36);
- }
- REGB0 = ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[2]);
- CALL_metamodel___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];
-}
-static const char LOCATE_metamodel___vararg___MMSignature___not_for_self[] = "vararg::MMSignature::(static_type::MMSignature::not_for_self)";
-val_t metamodel___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_metamodel___vararg;
- fra.me.line = 40;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___not_for_self;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- 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_metamodel___vararg___MMSignature___not_for_self(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/vararg.nit:43 */
- REGB0 = TAG_Bool(ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_vararg_rank", LOCATE_metamodel___vararg, 43);
- }
- REGB0 = ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[1]);
- CALL_metamodel___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];
-}
-static const char LOCATE_metamodel___vararg___MMSignature___init[] = "vararg::MMSignature::(static_type::MMSignature::init)";
-void metamodel___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_metamodel___static_type___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_metamodel___vararg;
- fra.me.line = 47;
- fra.me.meth = LOCATE_metamodel___vararg___MMSignature___init;
- fra.me.has_broke = 0;
- fra.me.REG_size = 5;
- fra.me.nitni_local_ref_head = NULL;
- 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_metamodel___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:246 */
- REGB0 = TAG_Int(-UNTAG_Int(REGB0));
- /* metamodel/vararg.nit:50 */
- ATTR_metamodel___vararg___MMSignature____vararg_rank(fra.me.REG[4]) = REGB0;
- stack_frame_head = fra.me.prev;
- init_table[itpos0] = 1;
- return;
-}