X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=codeb%2Fcode.bfe;h=81ff40082ee988a512a6501f3a0e492f0c2b8b78;hb=57500139afeb0beeec2b91c3c790fb1d5fd861f6;hp=fdcbfb0a56d1aceae5392ad372893d9ad5bbef58;hpb=6e59cd143c70fd847172ea33cd3fe93c8e607bec;p=uebersetzerbau-ss10.git diff --git a/codeb/code.bfe b/codeb/code.bfe index fdcbfb0..81ff400 100644 --- a/codeb/code.bfe +++ b/codeb/code.bfe @@ -184,7 +184,9 @@ begin: assign # 0 # begin: ifstat # 0 # assign: O_ASSIGN(expr, O_ID) # 1 # KIDREG2PARM(1); printf("\tmovq %%%s, %%%s\n", BN_REG, KID_REG(1)); +assign: O_ASSIGN(imm, O_ID) # 1 # KIDREG2PARM(1); printf("\tmovq $%d, %%%s\n", KID_VAL(0), KID_REG(1)); assign: O_ASSIGN(O_ID, O_ID) # 1 # KIDREG2PARM(1); KIDREG2PARM(0); printf("\tmovq %%%s, %%%s\n", KID_REG(0), KID_REG(1)); + assign: O_ASSIGN(expr, O_FIELD(expr)) # 1 # KIDKIDREG2PARM(1,0); printf("\tmovq %%%s, %d(%%%s)\n", BN_REG, bnode->kids[1]->soffset * 8, KIDKID_REG(1,0)); assign: O_ASSIGN(O_ID, O_FIELD(expr)) # 1 # KIDREG2PARM(0); KIDKIDREG2PARM(1,0); printf("\tmovq %%%s, %d(%%%s)\n", KID_REG(0), bnode->kids[1]->soffset * 8, KIDKID_REG(1,0)); @@ -193,7 +195,8 @@ ret: O_RET(retexpr) # 2 # printf("\t//o_ret(expr)\n"); move(BN_REG, "rax"); func retexpr: O_ID # 1 # printf("\t//retexpr\n"); if(bnode->param_index > -1) move(param_reg(bnode->param_index), BN_REG); retexpr: expr -ifstat: O_IF(expr) # 0 # +ifstat: O_IF(O_ID) # 1 # KIDREG2PARM(0); printf("\tmovq %%%s, %%rax\n", KID_REG(0)); /* fuer faelle wie "if bla then" noetig */ printf("\ttest $-1, %%rax\n"); +ifstat: O_IF(expr) # 2 # /* iburg beschummeln :/ */ printf("\ttest $-1, %%rax\n"); expr: O_ID # 0 # expr: imm # 1 # moveimm(BN_VAL, BN_REG);