projects
/
uebersetzerbau-ss10.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
codea: field optimierung fuer OR
[uebersetzerbau-ss10.git]
/
codea
/
code.bfe
diff --git
a/codea/code.bfe
b/codea/code.bfe
index 5f4339486da24406c63cee154ea2943ce2fdbd1f..c184545647a072bb69a129cd6205c86fef4540cd 100644
(file)
--- a/
codea/code.bfe
+++ b/
codea/code.bfe
@@
-32,10
+32,18
@@
void gen_e_eno(struct treenode *bnode, char *instr)
printf("\t%s %%%s, %%%s\n", instr, KID_REG(1), KID_REG(0));
}
printf("\t%s %%%s, %%%s\n", instr, KID_REG(1), KID_REG(0));
}
+void gen_e_field(struct treenode *bnode, char *instr)
+{
+ printf("\t//gen_e_field(%s)\n", instr);
+ KIDREG2ID(0);
+ KIDKIDREG2PARM(1,0);
+ printf("\t%s %d(%%%s), %%%s\n", instr, bnode->kids[1]->soffset * 8, KIDKID_REG(1,0), KID_REG(0));
+}
+
void gen_e_imm(struct treenode *bnode, char *instr)
{
printf("\t//gen_e_imm(%s)\n", instr);
void gen_e_imm(struct treenode *bnode, char *instr)
{
printf("\t//gen_e_imm(%s)\n", instr);
- KIDREG2
ID
(0);
+ KIDREG2
PARM
(0);
KIDREG2ID(1);
/* man kann sich ein move der konstante bei der multiplikation ersparen */
if(strcmp(instr, "imulq") == 0) {
KIDREG2ID(1);
/* man kann sich ein move der konstante bei der multiplikation ersparen */
if(strcmp(instr, "imulq") == 0) {
@@
-139,6
+147,7
@@
expr: O_MUL(imm,expr) # 1 # gen_imm_eno(bnode, "imulq");
expr: O_OR(expr,expr) # 1 # gen_e_eno(bnode, "orq");
expr: O_OR(expr,imm) # 2 # gen_e_imm(bnode, "orq");
expr: O_OR(expr,expr) # 1 # gen_e_eno(bnode, "orq");
expr: O_OR(expr,imm) # 2 # gen_e_imm(bnode, "orq");
+expr: O_OR(expr,O_FIELD(expr)) # 2 # gen_e_field(bnode, "orq");
expr: O_LESS(expr,expr) # 3 # gen_eqless(bnode, "l", 1, 1, 0);
expr: O_LESS(expr,imm) # 3 # gen_eqless(bnode, "l", 1, 0, 0);
expr: O_LESS(expr,expr) # 3 # gen_eqless(bnode, "l", 1, 1, 0);
expr: O_LESS(expr,imm) # 3 # gen_eqless(bnode, "l", 1, 0, 0);
@@
-161,6
+170,7
@@
imm: O_SUB(imm,imm) # 0 # BN_VAL = KID_VAL(0) - KID_VAL(1);
imm: O_MUL(imm,imm) # 0 # BN_VAL = KID_VAL(0) * KID_VAL(1);
imm: O_LESS(imm,imm) # 0 # BN_VAL = KID_VAL(0) < KID_VAL(1) ? 1 : 0;
imm: O_EQ(imm,imm) # 0 # BN_VAL = KID_VAL(0) == KID_VAL(1) ? 1 : 0;
imm: O_MUL(imm,imm) # 0 # BN_VAL = KID_VAL(0) * KID_VAL(1);
imm: O_LESS(imm,imm) # 0 # BN_VAL = KID_VAL(0) < KID_VAL(1) ? 1 : 0;
imm: O_EQ(imm,imm) # 0 # BN_VAL = KID_VAL(0) == KID_VAL(1) ? 1 : 0;
+imm: O_OR(imm,imm) # 0 # BN_VAL = KID_VAL(0) | KID_VAL(1);
imm: O_NUM # 0 #
imm: O_MONE # 0 #
imm: O_MTWO # 0 #
imm: O_NUM # 0 #
imm: O_MONE # 0 #
imm: O_MTWO # 0 #