/* This C file is generated by NIT to compile module vararg. */
#include "vararg._sep.h"
+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;
+}
+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___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;
+}
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;
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]);
- REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2])!=NIT_NULL);
/* ./metamodel//vararg.nit:36 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[2])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- fprintf(stderr, "Uninitialized attribute %s", "_vararg_rank");
- fprintf(stderr, " (%s:%d)\n", LOCATE_vararg, 36);
- nit_exit(1);
+ 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);
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]);
- REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1])!=NIT_NULL);
/* ./metamodel//vararg.nit:43 */
+ REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[1])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- fprintf(stderr, "Uninitialized attribute %s", "_vararg_rank");
- fprintf(stderr, " (%s:%d)\n", LOCATE_vararg, 43);
- nit_exit(1);
+ 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);
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;
init_table[itpos0] = 1;
return;
}
-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;
- REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
- /* ./metamodel//vararg.nit:24 */
- if (UNTAG_Bool(REGB0)) {
- } else {
- fprintf(stderr, "Uninitialized attribute %s", "_vararg_rank");
- fprintf(stderr, " (%s:%d)\n", LOCATE_vararg, 24);
- nit_exit(1);
- }
- REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-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___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;
- REGB0 = TAG_Bool(ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0])!=NIT_NULL);
- /* ./metamodel//vararg.nit:30 */
- if (UNTAG_Bool(REGB0)) {
- } else {
- fprintf(stderr, "Uninitialized attribute %s", "_vararg_rank");
- fprintf(stderr, " (%s:%d)\n", LOCATE_vararg, 30);
- nit_exit(1);
- }
- REGB0 = ATTR_vararg___MMSignature____vararg_rank(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- 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;
-}