/* Constant Folding */ IR_FOLD(EQ(C_BOOL, C_BOOL)) IR_FOLD(EQ(C_U8, C_U8)) IR_FOLD(EQ(C_U16, C_U16)) IR_FOLD(EQ(C_U32, C_U32)) IR_FOLD(EQ(C_U64, C_U64)) IR_FOLD(EQ(C_ADDR, C_ADDR)) IR_FOLD(EQ(C_CHAR, C_CHAR)) IR_FOLD(EQ(C_I8, C_I8)) IR_FOLD(EQ(C_I16, C_I16)) IR_FOLD(EQ(C_I32, C_I32)) IR_FOLD(EQ(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 == op2_insn->val.u64); } IR_FOLD(EQ(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d == op2_insn->val.d); } IR_FOLD(EQ(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.d == op2_insn->val.d); } IR_FOLD(NE(C_BOOL, C_BOOL)) IR_FOLD(NE(C_U8, C_U8)) IR_FOLD(NE(C_U16, C_U16)) IR_FOLD(NE(C_U32, C_U32)) IR_FOLD(NE(C_U64, C_U64)) IR_FOLD(NE(C_ADDR, C_ADDR)) IR_FOLD(NE(C_CHAR, C_CHAR)) IR_FOLD(NE(C_I8, C_I8)) IR_FOLD(NE(C_I16, C_I16)) IR_FOLD(NE(C_I32, C_I32)) IR_FOLD(NE(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 != op2_insn->val.u64); } IR_FOLD(NE(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d != op2_insn->val.d); } IR_FOLD(NE(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.f != op2_insn->val.f); } IR_FOLD(LT(C_BOOL, C_BOOL)) IR_FOLD(LT(C_U8, C_U8)) IR_FOLD(LT(C_U16, C_U16)) IR_FOLD(LT(C_U32, C_U32)) IR_FOLD(LT(C_U64, C_U64)) IR_FOLD(LT(C_ADDR, C_ADDR)) { IR_FOLD_BOOL(op1_insn->val.u64 < op2_insn->val.u64); } IR_FOLD(LT(C_CHAR, C_CHAR)) IR_FOLD(LT(C_I8, C_I8)) IR_FOLD(LT(C_I16, C_I16)) IR_FOLD(LT(C_I32, C_I32)) IR_FOLD(LT(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.i64 < op2_insn->val.i64); } IR_FOLD(LT(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d < op2_insn->val.d); } IR_FOLD(LT(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.f < op2_insn->val.f); } IR_FOLD(GE(C_BOOL, C_BOOL)) IR_FOLD(GE(C_U8, C_U8)) IR_FOLD(GE(C_U16, C_U16)) IR_FOLD(GE(C_U32, C_U32)) IR_FOLD(GE(C_U64, C_U64)) IR_FOLD(GE(C_ADDR, C_ADDR)) { IR_FOLD_BOOL(op1_insn->val.u64 >= op2_insn->val.u64); } IR_FOLD(GE(C_CHAR, C_CHAR)) IR_FOLD(GE(C_I8, C_I8)) IR_FOLD(GE(C_I16, C_I16)) IR_FOLD(GE(C_I32, C_I32)) IR_FOLD(GE(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.i64 >= op2_insn->val.i64); } IR_FOLD(GE(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d >= op2_insn->val.d); } IR_FOLD(GE(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.f >= op2_insn->val.f); } IR_FOLD(LE(C_BOOL, C_BOOL)) IR_FOLD(LE(C_U8, C_U8)) IR_FOLD(LE(C_U16, C_U16)) IR_FOLD(LE(C_U32, C_U32)) IR_FOLD(LE(C_U64, C_U64)) IR_FOLD(LE(C_ADDR, C_ADDR)) { IR_FOLD_BOOL(op1_insn->val.u64 <= op2_insn->val.u64); } IR_FOLD(LE(C_CHAR, C_CHAR)) IR_FOLD(LE(C_I8, C_I8)) IR_FOLD(LE(C_I16, C_I16)) IR_FOLD(LE(C_I32, C_I32)) IR_FOLD(LE(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.i64 <= op2_insn->val.i64); } IR_FOLD(LE(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d <= op2_insn->val.d); } IR_FOLD(LE(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.f <= op2_insn->val.f); } IR_FOLD(GT(C_BOOL, C_BOOL)) IR_FOLD(GT(C_U8, C_U8)) IR_FOLD(GT(C_U16, C_U16)) IR_FOLD(GT(C_U32, C_U32)) IR_FOLD(GT(C_U64, C_U64)) IR_FOLD(GT(C_ADDR, C_ADDR)) { IR_FOLD_BOOL(op1_insn->val.u64 > op2_insn->val.u64); } IR_FOLD(GT(C_CHAR, C_CHAR)) IR_FOLD(GT(C_I8, C_I8)) IR_FOLD(GT(C_I16, C_I16)) IR_FOLD(GT(C_I32, C_I32)) IR_FOLD(GT(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.i64 > op2_insn->val.i64); } IR_FOLD(GT(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(op1_insn->val.d > op2_insn->val.d); } IR_FOLD(GT(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(op1_insn->val.f > op2_insn->val.f); } IR_FOLD(ULT(C_BOOL, C_BOOL)) IR_FOLD(ULT(C_U8, C_U8)) IR_FOLD(ULT(C_U16, C_U16)) IR_FOLD(ULT(C_U32, C_U32)) IR_FOLD(ULT(C_U64, C_U64)) IR_FOLD(ULT(C_ADDR, C_ADDR)) IR_FOLD(ULT(C_CHAR, C_CHAR)) IR_FOLD(ULT(C_I8, C_I8)) IR_FOLD(ULT(C_I16, C_I16)) IR_FOLD(ULT(C_I32, C_I32)) IR_FOLD(ULT(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 < op2_insn->val.u64); } IR_FOLD(ULT(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(!(op1_insn->val.d >= op2_insn->val.d)); } IR_FOLD(ULT(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(!(op1_insn->val.f >= op2_insn->val.f)); } IR_FOLD(UGE(C_BOOL, C_BOOL)) IR_FOLD(UGE(C_U8, C_U8)) IR_FOLD(UGE(C_U16, C_U16)) IR_FOLD(UGE(C_U32, C_U32)) IR_FOLD(UGE(C_U64, C_U64)) IR_FOLD(UGE(C_ADDR, C_ADDR)) IR_FOLD(UGE(C_CHAR, C_CHAR)) IR_FOLD(UGE(C_I8, C_I8)) IR_FOLD(UGE(C_I16, C_I16)) IR_FOLD(UGE(C_I32, C_I32)) IR_FOLD(UGE(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 >= op2_insn->val.u64); } IR_FOLD(UGE(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(!(op1_insn->val.d < op2_insn->val.d)); } IR_FOLD(UGE(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(!(op1_insn->val.f < op2_insn->val.f)); } IR_FOLD(ULE(C_BOOL, C_BOOL)) IR_FOLD(ULE(C_U8, C_U8)) IR_FOLD(ULE(C_U16, C_U16)) IR_FOLD(ULE(C_U32, C_U32)) IR_FOLD(ULE(C_U64, C_U64)) IR_FOLD(ULE(C_ADDR, C_ADDR)) IR_FOLD(ULE(C_CHAR, C_CHAR)) IR_FOLD(ULE(C_I8, C_I8)) IR_FOLD(ULE(C_I16, C_I16)) IR_FOLD(ULE(C_I32, C_I32)) IR_FOLD(ULE(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 <= op2_insn->val.u64); } IR_FOLD(ULE(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(!(op1_insn->val.d > op2_insn->val.d)); } IR_FOLD(ULE(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(!(op1_insn->val.f > op2_insn->val.f)); } IR_FOLD(UGT(C_BOOL, C_BOOL)) IR_FOLD(UGT(C_U8, C_U8)) IR_FOLD(UGT(C_U16, C_U16)) IR_FOLD(UGT(C_U32, C_U32)) IR_FOLD(UGT(C_U64, C_U64)) IR_FOLD(UGT(C_ADDR, C_ADDR)) IR_FOLD(UGT(C_CHAR, C_CHAR)) IR_FOLD(UGT(C_I8, C_I8)) IR_FOLD(UGT(C_I16, C_I16)) IR_FOLD(UGT(C_I32, C_I32)) IR_FOLD(UGT(C_I64, C_I64)) { IR_FOLD_BOOL(op1_insn->val.u64 > op2_insn->val.u64); } IR_FOLD(UGT(C_DOUBLE, C_DOUBLE)) { IR_FOLD_BOOL(!(op1_insn->val.d <= op2_insn->val.d)); } IR_FOLD(UGT(C_FLOAT, C_FLOAT)) { IR_FOLD_BOOL(!(op1_insn->val.f <= op2_insn->val.f)); } IR_FOLD(ADD(C_U8, C_U8)) IR_FOLD(ADD(C_U16, C_U16)) IR_FOLD(ADD(C_U32, C_U32)) IR_FOLD(ADD(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 + op2_insn->val.u64); } IR_FOLD(ADD(C_I8, C_I8)) IR_FOLD(ADD(C_I16, C_I16)) IR_FOLD(ADD(C_I32, C_I32)) IR_FOLD(ADD(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i64 + op2_insn->val.i64); } IR_FOLD(ADD(C_DOUBLE, C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(op1_insn->val.d + op2_insn->val.d); } IR_FOLD(ADD(C_FLOAT, C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(op1_insn->val.f + op2_insn->val.f); } IR_FOLD(SUB(C_U8, C_U8)) IR_FOLD(SUB(C_U16, C_U16)) IR_FOLD(SUB(C_U32, C_U32)) IR_FOLD(SUB(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 - op2_insn->val.u64); } IR_FOLD(SUB(C_I8, C_I8)) IR_FOLD(SUB(C_I16, C_I16)) IR_FOLD(SUB(C_I32, C_I32)) IR_FOLD(SUB(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i64 - op2_insn->val.i64); } IR_FOLD(SUB(C_DOUBLE, C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(op1_insn->val.d - op2_insn->val.d); } IR_FOLD(SUB(C_FLOAT, C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(op1_insn->val.f - op2_insn->val.f); } IR_FOLD(MUL(C_U8, C_U8)) IR_FOLD(MUL(C_U16, C_U16)) IR_FOLD(MUL(C_U32, C_U32)) IR_FOLD(MUL(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 * op2_insn->val.u64); } IR_FOLD(MUL(C_I8, C_I8)) IR_FOLD(MUL(C_I16, C_I16)) IR_FOLD(MUL(C_I32, C_I32)) IR_FOLD(MUL(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i64 * op2_insn->val.i64); } IR_FOLD(MUL(C_DOUBLE, C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(op1_insn->val.d * op2_insn->val.d); } IR_FOLD(MUL(C_FLOAT, C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(op1_insn->val.f * op2_insn->val.f); } IR_FOLD(DIV(C_U8, C_U8)) IR_FOLD(DIV(C_U16, C_U16)) IR_FOLD(DIV(C_U32, C_U32)) IR_FOLD(DIV(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op2_insn->val.u64 == 0) { /* division by zero */ IR_FOLD_EMIT; } IR_FOLD_CONST_U(op1_insn->val.u64 / op2_insn->val.u64); } IR_FOLD(DIV(C_I8, C_I8)) IR_FOLD(DIV(C_I16, C_I16)) IR_FOLD(DIV(C_I32, C_I32)) IR_FOLD(DIV(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op2_insn->val.i64 == 0) { /* division by zero */ IR_FOLD_EMIT; } IR_FOLD_CONST_I(op1_insn->val.i64 / op2_insn->val.i64); } IR_FOLD(DIV(C_DOUBLE, C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(op1_insn->val.d / op2_insn->val.d); } IR_FOLD(DIV(C_FLOAT, C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(op1_insn->val.f / op2_insn->val.f); } IR_FOLD(MOD(C_U8, C_U8)) IR_FOLD(MOD(C_U16, C_U16)) IR_FOLD(MOD(C_U32, C_U32)) IR_FOLD(MOD(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op2_insn->val.u64 == 0) { /* division by zero */ IR_FOLD_EMIT; } IR_FOLD_CONST_U(op1_insn->val.u64 % op2_insn->val.u64); } IR_FOLD(MOD(C_I8, C_I8)) IR_FOLD(MOD(C_I16, C_I16)) IR_FOLD(MOD(C_I32, C_I32)) IR_FOLD(MOD(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op2_insn->val.i64 == 0) { /* division by zero */ IR_FOLD_EMIT; } IR_FOLD_CONST_I(op1_insn->val.i64 % op2_insn->val.i64); } IR_FOLD(NEG(C_I8)) IR_FOLD(NEG(C_I16)) IR_FOLD(NEG(C_I32)) IR_FOLD(NEG(C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(-op1_insn->val.i64); } IR_FOLD(NEG(C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(-op1_insn->val.d); } IR_FOLD(NEG(C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(-op1_insn->val.f); } IR_FOLD(ABS(C_I8)) IR_FOLD(ABS(C_I16)) IR_FOLD(ABS(C_I32)) IR_FOLD(ABS(C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op1_insn->val.i64 >= 0) { IR_FOLD_COPY(op1); } else { IR_FOLD_CONST_I(-op1_insn->val.i64); } } IR_FOLD(ABS(C_DOUBLE)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_D(fabs(op1_insn->val.d)); } IR_FOLD(ABS(C_FLOAT)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_F(fabsf(op1_insn->val.f)); } //IR_FOLD(CAST(CONST)) //TODO: type casting IR_FOLD(ADD_OV(C_U8, C_U8)) IR_FOLD(ADD_OV(C_U16, C_U16)) IR_FOLD(ADD_OV(C_U32, C_U32)) IR_FOLD(ADD_OV(C_U64, C_U64)) { ir_type type = IR_OPT_TYPE(opt); uint64_t max = ((uint64_t)0xffffffffffffffff) >> (64 - ir_type_size[type] * 8); IR_ASSERT(type == op1_insn->type); if (op1_insn->val.u64 > max - op2_insn->val.u64) { IR_FOLD_NEXT; } IR_FOLD_CONST_U(op1_insn->val.u64 + op2_insn->val.u64); } IR_FOLD(ADD_OV(C_I8, C_I8)) IR_FOLD(ADD_OV(C_I16, C_I16)) IR_FOLD(ADD_OV(C_I32, C_I32)) IR_FOLD(ADD_OV(C_I64, C_I64)) { ir_type type = IR_OPT_TYPE(opt); int64_t max = ((uint64_t)0x7fffffffffffffff) >> (64 - ir_type_size[type] * 8); int64_t min = - max - 1; IR_ASSERT(type == op1_insn->type); if ((op2_insn->val.i64 > 0 && op1_insn->val.i64 > max - op2_insn->val.i64) || (op2_insn->val.i64 < 0 && op1_insn->val.i64 < min - op2_insn->val.i64)) { IR_FOLD_NEXT; } IR_FOLD_CONST_I(op1_insn->val.i64 + op2_insn->val.i64); } IR_FOLD(SUB_OV(C_U8, C_U8)) IR_FOLD(SUB_OV(C_U16, C_U16)) IR_FOLD(SUB_OV(C_U32, C_U32)) IR_FOLD(SUB_OV(C_U64, C_U64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); if (op2_insn->val.u64 > op1_insn->val.u64) { IR_FOLD_NEXT; } IR_FOLD_CONST_U(op1_insn->val.u64 - op2_insn->val.u64); } IR_FOLD(SUB_OV(C_I8, C_I8)) IR_FOLD(SUB_OV(C_I16, C_I16)) IR_FOLD(SUB_OV(C_I32, C_I32)) IR_FOLD(SUB_OV(C_I64, C_I64)) { ir_type type = IR_OPT_TYPE(opt); int64_t max = ((uint64_t)0x7fffffffffffffff) >> (64 - ir_type_size[type] * 8); int64_t min = - max - 1; IR_ASSERT(type == op1_insn->type); if ((op2_insn->val.i64 > 0 && op1_insn->val.i64 < min + op2_insn->val.i64) || (op2_insn->val.i64 < 0 && op1_insn->val.i64 > max + op2_insn->val.i64)) { IR_FOLD_NEXT; } IR_FOLD_CONST_I(op1_insn->val.i64 - op2_insn->val.i64); } //IR_FOLD(MUL_OV(CONST, CONST)) IR_FOLD(OVERFLOW(_)) { if (op1_insn->op != IR_ADD_OV && op1_insn->op != IR_SUB_OV && op1_insn->op != IR_MUL_OV) { IR_FOLD_COPY(IR_FALSE); } IR_FOLD_NEXT; } IR_FOLD(NOT(C_BOOL)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_BOOL(!op1_insn->val.u64); } IR_FOLD(NOT(C_U8)) IR_FOLD(NOT(C_CHAR)) IR_FOLD(NOT(C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(~op1_insn->val.u8); } IR_FOLD(NOT(C_U16)) IR_FOLD(NOT(C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(~op1_insn->val.u16); } IR_FOLD(NOT(C_U32)) IR_FOLD(NOT(C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(~op1_insn->val.u32); } IR_FOLD(NOT(C_U64)) IR_FOLD(NOT(C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(~op1_insn->val.u64); } IR_FOLD(OR(C_BOOL, C_BOOL)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_BOOL(op1_insn->val.b || op2_insn->val.b); } IR_FOLD(OR(C_U8, C_U8)) IR_FOLD(OR(C_CHAR, C_CHAR)) IR_FOLD(OR(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u8 | op2_insn->val.u8); } IR_FOLD(OR(C_U16, C_U16)) IR_FOLD(OR(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u16 | op2_insn->val.u16); } IR_FOLD(OR(C_U32, C_U32)) IR_FOLD(OR(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u32 | op2_insn->val.u32); } IR_FOLD(OR(C_U64, C_U64)) IR_FOLD(OR(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 | op2_insn->val.u64); } IR_FOLD(AND(C_BOOL, C_BOOL)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_BOOL(op1_insn->val.b && op2_insn->val.b); } IR_FOLD(AND(C_U8, C_U8)) IR_FOLD(AND(C_CHAR, C_CHAR)) IR_FOLD(AND(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u8 & op2_insn->val.u8); } IR_FOLD(AND(C_U16, C_U16)) IR_FOLD(AND(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u16 & op2_insn->val.u16); } IR_FOLD(AND(C_U32, C_U32)) IR_FOLD(AND(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u32 & op2_insn->val.u32); } IR_FOLD(AND(C_U64, C_U64)) IR_FOLD(AND(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 & op2_insn->val.u64); } IR_FOLD(XOR(C_BOOL, C_BOOL)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_BOOL(op1_insn->val.b != op2_insn->val.b); } IR_FOLD(XOR(C_U8, C_U8)) IR_FOLD(XOR(C_CHAR, C_CHAR)) IR_FOLD(XOR(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u8 ^ op2_insn->val.u8); } IR_FOLD(XOR(C_U16, C_U16)) IR_FOLD(XOR(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u16 ^ op2_insn->val.u16); } IR_FOLD(XOR(C_U32, C_U32)) IR_FOLD(XOR(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u32 ^ op2_insn->val.u32); } IR_FOLD(XOR(C_U64, C_U64)) IR_FOLD(XOR(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 ^ op2_insn->val.u64); } IR_FOLD(SHL(C_U8, C_U8)) IR_FOLD(SHL(C_CHAR, C_CHAR)) IR_FOLD(SHL(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u8 << op2_insn->val.u8); } IR_FOLD(SHL(C_U16, C_U16)) IR_FOLD(SHL(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u16 << op2_insn->val.u16); } IR_FOLD(SHL(C_U32, C_U32)) IR_FOLD(SHL(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u32 << op2_insn->val.u32); } IR_FOLD(SHL(C_U64, C_U64)) IR_FOLD(SHL(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 << op2_insn->val.u64); } IR_FOLD(SHR(C_U8, C_U8)) IR_FOLD(SHR(C_CHAR, C_CHAR)) IR_FOLD(SHR(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u8 >> op2_insn->val.u8); } IR_FOLD(SHR(C_U16, C_U16)) IR_FOLD(SHR(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u16 >> op2_insn->val.u16); } IR_FOLD(SHR(C_U32, C_U32)) IR_FOLD(SHR(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u32 >> op2_insn->val.u32); } IR_FOLD(SHR(C_U64, C_U64)) IR_FOLD(SHR(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(op1_insn->val.u64 >> op2_insn->val.u64); } IR_FOLD(SAR(C_U8, C_U8)) IR_FOLD(SAR(C_CHAR, C_CHAR)) IR_FOLD(SAR(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i8 >> op2_insn->val.i8); } IR_FOLD(SAR(C_U16, C_U16)) IR_FOLD(SAR(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i16 >> op2_insn->val.i16); } IR_FOLD(SAR(C_U32, C_U32)) IR_FOLD(SAR(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i32 >> op2_insn->val.i32); } IR_FOLD(SAR(C_U64, C_U64)) IR_FOLD(SAR(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_I(op1_insn->val.i64 >> op2_insn->val.i64); } IR_FOLD(ROL(C_U8, C_U8)) IR_FOLD(ROL(C_CHAR, C_CHAR)) IR_FOLD(ROL(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_rol8(op1_insn->val.u8, op2_insn->val.u8)); } IR_FOLD(ROL(C_U16, C_U16)) IR_FOLD(ROL(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_rol16(op1_insn->val.u16, op2_insn->val.u16)); } IR_FOLD(ROL(C_U32, C_U32)) IR_FOLD(ROL(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_rol32(op1_insn->val.u32, op2_insn->val.u32)); } IR_FOLD(ROL(C_U64, C_U64)) IR_FOLD(ROL(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_rol64(op1_insn->val.u64, op2_insn->val.u64)); } IR_FOLD(ROR(C_U8, C_U8)) IR_FOLD(ROR(C_CHAR, C_CHAR)) IR_FOLD(ROR(C_I8, C_I8)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_ror8(op1_insn->val.u8, op2_insn->val.u8)); } IR_FOLD(ROR(C_U16, C_U16)) IR_FOLD(ROR(C_I16, C_I16)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_ror16(op1_insn->val.u16, op2_insn->val.u16)); } IR_FOLD(ROR(C_U32, C_U32)) IR_FOLD(ROR(C_I32, C_I32)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_ror32(op1_insn->val.u32, op2_insn->val.u32)); } IR_FOLD(ROR(C_U64, C_U64)) IR_FOLD(ROR(C_I64, C_I64)) { IR_ASSERT(IR_OPT_TYPE(opt) == op1_insn->type); IR_FOLD_CONST_U(ir_ror64(op1_insn->val.u64, op2_insn->val.u64)); } //IR_FOLD(BSWAP(CONST)) //TODO: bswap IR_FOLD(MIN(C_BOOL, C_BOOL)) IR_FOLD(MIN(C_U8, C_U8)) IR_FOLD(MIN(C_U16, C_U16)) IR_FOLD(MIN(C_U32, C_U32)) IR_FOLD(MIN(C_U64, C_U64)) IR_FOLD(MIN(C_ADDR, C_ADDR)) { IR_FOLD_COPY(op1_insn->val.u64 <= op2_insn->val.u64 ? op1 : op2); } IR_FOLD(MIN(C_CHAR, C_CHAR)) IR_FOLD(MIN(C_I8, C_U8)) IR_FOLD(MIN(C_I16, C_U16)) IR_FOLD(MIN(C_I32, C_U32)) IR_FOLD(MIN(C_I64, C_U64)) { IR_FOLD_COPY(op1_insn->val.i64 <= op2_insn->val.i64 ? op1 : op2); } IR_FOLD(MIN(C_DOUBLE, C_DOUBLE)) { IR_FOLD_COPY(op1_insn->val.d <= op2_insn->val.d ? op1 : op2); } IR_FOLD(MIN(C_FLOAT, C_FLOAT)) { IR_FOLD_COPY(op1_insn->val.f <= op2_insn->val.f ? op1 : op2); } IR_FOLD(MAX(C_BOOL, C_BOOL)) IR_FOLD(MAX(C_U8, C_U8)) IR_FOLD(MAX(C_U16, C_U16)) IR_FOLD(MAX(C_U32, C_U32)) IR_FOLD(MAX(C_U64, C_U64)) IR_FOLD(MAX(C_ADDR, C_ADDR)) { IR_FOLD_COPY(op1_insn->val.u64 >= op2_insn->val.u64 ? op1 : op2); } IR_FOLD(MAX(C_CHAR, C_CHAR)) IR_FOLD(MAX(C_I8, C_U8)) IR_FOLD(MAX(C_I16, C_U16)) IR_FOLD(MAX(C_I32, C_U32)) IR_FOLD(MAX(C_I64, C_U64)) { IR_FOLD_COPY(op1_insn->val.i64 >= op2_insn->val.i64 ? op1 : op2); } IR_FOLD(MAX(C_DOUBLE, C_DOUBLE)) { IR_FOLD_COPY(op1_insn->val.d >= op2_insn->val.d ? op1 : op2); } IR_FOLD(MAX(C_FLOAT, C_FLOAT)) { IR_FOLD_COPY(op1_insn->val.f >= op2_insn->val.f ? op1 : op2); } IR_FOLD(SEXT(C_I8)) IR_FOLD(SEXT(C_U8)) IR_FOLD(SEXT(C_BOOL)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_I((int64_t)op1_insn->val.i8); } IR_FOLD(SEXT(C_I16)) IR_FOLD(SEXT(C_U16)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_I((int64_t)op1_insn->val.i16); } IR_FOLD(SEXT(C_I32)) IR_FOLD(SEXT(C_U32)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_I((int64_t)op1_insn->val.i32); } IR_FOLD(ZEXT(C_I8)) IR_FOLD(ZEXT(C_U8)) IR_FOLD(ZEXT(C_BOOL)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_U((uint64_t)op1_insn->val.u8); } IR_FOLD(ZEXT(C_I16)) IR_FOLD(ZEXT(C_U16)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_U((uint64_t)op1_insn->val.u16); } IR_FOLD(ZEXT(C_I32)) IR_FOLD(ZEXT(C_U32)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] > ir_type_size[op1_insn->type]); IR_FOLD_CONST_U((uint64_t)op1_insn->val.u32); } IR_FOLD(TRUNC(C_I16)) IR_FOLD(TRUNC(C_I32)) IR_FOLD(TRUNC(C_I64)) IR_FOLD(TRUNC(C_U16)) IR_FOLD(TRUNC(C_U32)) IR_FOLD(TRUNC(C_U64)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] < ir_type_size[op1_insn->type]); switch (IR_OPT_TYPE(opt)) { case IR_I8: IR_FOLD_CONST_I(op1_insn->val.i8); case IR_I16: IR_FOLD_CONST_I(op1_insn->val.i16); case IR_I32: IR_FOLD_CONST_I(op1_insn->val.i32); case IR_U8: IR_FOLD_CONST_U(op1_insn->val.u8); case IR_U16: IR_FOLD_CONST_U(op1_insn->val.u16); case IR_U32: IR_FOLD_CONST_U(op1_insn->val.u32); default: IR_ASSERT(0); } } IR_FOLD(BITCAST(C_I8)) IR_FOLD(BITCAST(C_I16)) IR_FOLD(BITCAST(C_I32)) IR_FOLD(BITCAST(C_I64)) IR_FOLD(BITCAST(C_U8)) IR_FOLD(BITCAST(C_U16)) IR_FOLD(BITCAST(C_U32)) IR_FOLD(BITCAST(C_U64)) IR_FOLD(BITCAST(C_FLOAT)) IR_FOLD(BITCAST(C_DOUBLE)) { IR_ASSERT(ir_type_size[IR_OPT_TYPE(opt)] == ir_type_size[op1_insn->type]); switch (IR_OPT_TYPE(opt)) { case IR_I8: IR_FOLD_CONST_I(op1_insn->val.i8); case IR_I16: IR_FOLD_CONST_I(op1_insn->val.i16); case IR_I32: IR_FOLD_CONST_I(op1_insn->val.i32); case IR_I64: IR_FOLD_CONST_I(op1_insn->val.i64); case IR_U8: IR_FOLD_CONST_U(op1_insn->val.u8); case IR_U16: IR_FOLD_CONST_U(op1_insn->val.u16); case IR_U32: IR_FOLD_CONST_U(op1_insn->val.u32); case IR_U64: IR_FOLD_CONST_U(op1_insn->val.u64); case IR_FLOAT: IR_FOLD_CONST_F(op1_insn->val.f); case IR_DOUBLE: IR_FOLD_CONST_D(op1_insn->val.d); default: IR_ASSERT(0); } } IR_FOLD(INT2FP(C_I8)) IR_FOLD(INT2FP(C_I16)) IR_FOLD(INT2FP(C_I32)) IR_FOLD(INT2FP(C_I64)) { if (IR_OPT_TYPE(opt) == IR_DOUBLE) { IR_FOLD_CONST_D((double)op1_insn->val.i64); } else { IR_ASSERT(IR_OPT_TYPE(opt) == IR_FLOAT); IR_FOLD_CONST_F((float)op1_insn->val.i64); } } IR_FOLD(INT2FP(C_U8)) IR_FOLD(INT2FP(C_U16)) IR_FOLD(INT2FP(C_U32)) IR_FOLD(INT2FP(C_U64)) { if (IR_OPT_TYPE(opt) == IR_DOUBLE) { IR_FOLD_CONST_D((double)op1_insn->val.u64); } else { IR_ASSERT(IR_OPT_TYPE(opt) == IR_FLOAT); IR_FOLD_CONST_F((float)op1_insn->val.u64); } } IR_FOLD(FP2INT(C_FLOAT)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); switch (IR_OPT_TYPE(opt)) { case IR_I8: IR_FOLD_CONST_I((int8_t)op1_insn->val.f); case IR_I16: IR_FOLD_CONST_I((int16_t)op1_insn->val.f); case IR_I32: IR_FOLD_CONST_I((int32_t)op1_insn->val.f); case IR_I64: IR_FOLD_CONST_I((int64_t)op1_insn->val.f); case IR_U8: IR_FOLD_CONST_U((uint8_t)op1_insn->val.f); case IR_U16: IR_FOLD_CONST_U((uint16_t)op1_insn->val.f); case IR_U32: IR_FOLD_CONST_U((uint32_t)op1_insn->val.f); case IR_U64: IR_FOLD_CONST_U((uint64_t)op1_insn->val.f); default: IR_ASSERT(0); } } IR_FOLD(FP2INT(C_DOUBLE)) { IR_ASSERT(IR_IS_TYPE_INT(IR_OPT_TYPE(opt))); switch (IR_OPT_TYPE(opt)) { case IR_I8: IR_FOLD_CONST_I((int8_t)op1_insn->val.d); case IR_I16: IR_FOLD_CONST_I((int16_t)op1_insn->val.d); case IR_I32: IR_FOLD_CONST_I((int32_t)op1_insn->val.d); case IR_I64: IR_FOLD_CONST_I((int64_t)op1_insn->val.d); case IR_U8: IR_FOLD_CONST_U((uint8_t)op1_insn->val.d); case IR_U16: IR_FOLD_CONST_U((uint16_t)op1_insn->val.d); case IR_U32: IR_FOLD_CONST_U((uint32_t)op1_insn->val.d); case IR_U64: IR_FOLD_CONST_U((uint64_t)op1_insn->val.d); default: IR_ASSERT(0); } } IR_FOLD(FP2FP(C_FLOAT)) { if (IR_OPT_TYPE(opt) == IR_DOUBLE) { IR_FOLD_CONST_D((double)op1_insn->val.f); } else { IR_ASSERT(IR_OPT_TYPE(opt) == IR_FLOAT); IR_FOLD_COPY(op1); } } IR_FOLD(FP2FP(C_DOUBLE)) { if (IR_OPT_TYPE(opt) == IR_DOUBLE) { IR_FOLD_COPY(op1); } else { IR_ASSERT(IR_OPT_TYPE(opt) == IR_FLOAT); IR_FOLD_CONST_F((float)op1_insn->val.d); } } // TODO: constant functions (e.g. sin, cos) /* Copy Propagation */ IR_FOLD(COPY(_)) { if (!op2) { IR_FOLD_COPY(op1); } /* skip CSE */ IR_FOLD_EMIT; } IR_FOLD(PHI(_, _)) // TODO: PHI(_, _, _) { if (op2 == op3 && op3 != IR_UNUSED) { IR_FOLD_COPY(op2); } /* skip CSE */ IR_FOLD_EMIT; } IR_FOLD(COND(C_BOOL, _)) // TODO: COND(CONST, _, _) IR_FOLD(COND(C_U8, _)) IR_FOLD(COND(C_U16, _)) IR_FOLD(COND(C_U32, _)) IR_FOLD(COND(C_U64, _)) IR_FOLD(COND(C_ADDR, _)) IR_FOLD(COND(C_CHAR, _)) IR_FOLD(COND(C_I8, _)) IR_FOLD(COND(C_I16, _)) IR_FOLD(COND(C_I32, _)) IR_FOLD(COND(C_I64, _)) IR_FOLD(COND(C_DOUBLE, _)) IR_FOLD(COND(C_FLOAT, _)) { if (op1_insn->val.u64) { // TODO: ??? IR_FOLD_COPY(op2); } else { IR_FOLD_COPY(op3); } } /* Algebraic simplifications */ IR_FOLD(ABS(ABS)) { /* abs(x = abs(y)) => x */ IR_FOLD_COPY(op1); } IR_FOLD(ABS(NEG)) { /* abs(neg(y)) => abs(y) */ // TODO: PHIBARIER ??? op1 = op1_insn->op1; IR_FOLD_RESTART; } IR_FOLD(NEG(NEG)) IR_FOLD(NOT(NOT)) IR_FOLD(BSWAP(BSWAP)) { /* f(f(y)) => y */ IR_FOLD_COPY(op1_insn->op1); } IR_FOLD(ADD(_, C_U8)) IR_FOLD(ADD(_, C_U16)) IR_FOLD(ADD(_, C_U32)) IR_FOLD(ADD(_, C_U64)) IR_FOLD(ADD(_, C_I8)) IR_FOLD(ADD(_, C_I16)) IR_FOLD(ADD(_, C_I32)) IR_FOLD(ADD(_, C_I64)) IR_FOLD(ADD(_, C_ADDR)) IR_FOLD(SUB(_, C_U8)) IR_FOLD(SUB(_, C_U16)) IR_FOLD(SUB(_, C_U32)) IR_FOLD(SUB(_, C_U64)) IR_FOLD(SUB(_, C_I8)) IR_FOLD(SUB(_, C_I16)) IR_FOLD(SUB(_, C_I32)) IR_FOLD(SUB(_, C_I64)) IR_FOLD(SUB(_, C_ADDR)) IR_FOLD(ADD_OV(_, C_U8)) IR_FOLD(ADD_OV(_, C_U16)) IR_FOLD(ADD_OV(_, C_U32)) IR_FOLD(ADD_OV(_, C_U64)) IR_FOLD(ADD_OV(_, C_I8)) IR_FOLD(ADD_OV(_, C_I16)) IR_FOLD(ADD_OV(_, C_I32)) IR_FOLD(ADD_OV(_, C_I64)) IR_FOLD(ADD_OV(_, C_ADDR)) IR_FOLD(SUB_OV(_, C_U8)) IR_FOLD(SUB_OV(_, C_U16)) IR_FOLD(SUB_OV(_, C_U32)) IR_FOLD(SUB_OV(_, C_U64)) IR_FOLD(SUB_OV(_, C_I8)) IR_FOLD(SUB_OV(_, C_I16)) IR_FOLD(SUB_OV(_, C_I32)) IR_FOLD(SUB_OV(_, C_I64)) IR_FOLD(SUB_OV(_, C_ADDR)) { if (op2_insn->val.u64 == 0) { /* a +/- 0 => a */ IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SUB(C_I8, _)) IR_FOLD(SUB(C_I16, _)) IR_FOLD(SUB(C_I32, _)) IR_FOLD(SUB(C_I64, _)) { if (op1_insn->val.u64 == 0) { /* 0 - a => -a (invalid for +0.0) */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op1 = op2; op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(ADD(NEG, _)) { /* (-a) + b => b - a */ opt++; /* ADD -> SUB */ op1 = op2; op2 = op1_insn->op1; IR_FOLD_RESTART; } IR_FOLD(ADD(_, NEG)) IR_FOLD(SUB(_,NEG)) { /* a + (-b) => a - b */ opt ^= 1; /* ADD <-> SUB */ op2 = op2_insn->op2; IR_FOLD_RESTART; } // IR_FOLD(SUB(NEG, CONST)) TODO: -a - b => -b - a // IR_FOLD(MUL(NEG, CONST)) TODO: -a * b => a * -b // IR_FOLD(DIV(NEG, CONST)) TODO: -a / b => a / -b IR_FOLD(MUL(_, C_U8)) IR_FOLD(MUL(_, C_U16)) IR_FOLD(MUL(_, C_U32)) IR_FOLD(MUL(_, C_U64)) { if (op2_insn->val.u64 == 0) { /* a * 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.u64 == 1) { IR_FOLD_COPY(op1); } else if (op2_insn->val.u64 == 2) { opt = IR_ADD | (opt & IR_OPT_TYPE_MASK); op2 = op1; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(_, C_I8)) IR_FOLD(MUL(_, C_I16)) IR_FOLD(MUL(_, C_I32)) IR_FOLD(MUL(_, C_I64)) { if (op2_insn->val.i64 == 0) { /* a * 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i64 == 1) { /* a * 1 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i64 == 2) { /* a * 2 => a + a */ opt = IR_ADD | (opt & IR_OPT_TYPE_MASK); op2 = op1; IR_FOLD_RESTART; } else if (op2_insn->val.i64 == -1) { /* a * -1 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(_, C_DOUBLE)) { if (op2_insn->val.d == 1.0) { /* a * 1.0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.d == 2.0) { /* a * 2.0 => a + a */ opt = IR_ADD | (opt & IR_OPT_TYPE_MASK); op2 = op1; IR_FOLD_RESTART; } else if (op2_insn->val.d == -1.0) { /* a * -1.0 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(_, C_FLOAT)) { if (op2_insn->val.f == 1.0) { /* a * 1.0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.f == 2.0) { /* a * 2.0 => a + a */ opt = IR_ADD | (opt & IR_OPT_TYPE_MASK); op2 = op1; IR_FOLD_RESTART; } else if (op2_insn->val.f == -1.0) { /* a * -1.0 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(DIV(_, C_U8)) IR_FOLD(DIV(_, C_U16)) IR_FOLD(DIV(_, C_U32)) IR_FOLD(DIV(_, C_U64)) { if (op2_insn->val.u64 == 1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(DIV(_, C_I8)) IR_FOLD(DIV(_, C_I16)) IR_FOLD(DIV(_, C_I32)) IR_FOLD(DIV(_, C_I64)) { if (op2_insn->val.i64 == 1) { /* a / 1 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i64 == -1) { /* a / -1 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(DIV(_, C_DOUBLE)) { if (op2_insn->val.d == 1.0) { /* a / 1.0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.d == -1.0) { /* a / -1.0 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(DIV(_, C_FLOAT)) { if (op2_insn->val.f == 1.0) { /* a / 1.0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.f == -1.0) { /* a / -1.0 => -a */ opt = IR_NEG | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(NEG, NEG)) IR_FOLD(DIV(NEG, NEG)) { op1 = op1_insn->op1; op2 = op2_insn->op1; IR_FOLD_RESTART; } IR_FOLD(AND(_, C_BOOL)) { IR_FOLD_COPY(op2_insn->val.b ? op1 : op2); } IR_FOLD(AND(_, C_U8)) IR_FOLD(AND(_, C_I8)) IR_FOLD(AND(_, C_CHAR)) { if (op2_insn->val.i8 == 0) { /* a & 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i8 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(AND(_, C_U16)) IR_FOLD(AND(_, C_I16)) { if (op2_insn->val.i16 == 0) { /* a & 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i16 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(AND(_, C_U32)) IR_FOLD(AND(_, C_I32)) { if (op2_insn->val.i32 == 0) { /* a & 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i32 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(AND(_, C_U64)) IR_FOLD(AND(_, C_I64)) { if (op2_insn->val.i64 == 0) { /* a & 0 => 0 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i64 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(OR(_, C_BOOL)) { IR_FOLD_COPY(op2_insn->val.b ? op2 : op1); } IR_FOLD(OR(_, C_U8)) IR_FOLD(OR(_, C_I8)) IR_FOLD(OR(_, C_CHAR)) { if (op2_insn->val.i8 == -1) { /* a | 1 => 1 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i8 == 0) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(OR(_, C_U16)) IR_FOLD(OR(_, C_I16)) { if (op2_insn->val.i16 == -1) { /* a | 1 => 1 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i16 == 0) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(OR(_, C_U32)) IR_FOLD(OR(_, C_I32)) { if (op2_insn->val.i32 == -1) { /* a | 1 => 1 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i32 == -0) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(OR(_, C_U64)) IR_FOLD(OR(_, C_I64)) { if (op2_insn->val.i64 == -1) { /* a | 1 => 1 */ IR_FOLD_COPY(op2); } else if (op2_insn->val.i64 == 0) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(XOR(_, C_BOOL)) { if (!op2_insn->val.b) { /* a ^ 0 => a */ IR_FOLD_COPY(op1); } else { /* a ^ 1 => !a */ opt = IR_NOT | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } } IR_FOLD(XOR(_, C_U8)) IR_FOLD(XOR(_, C_I8)) IR_FOLD(XOR(_, C_CHAR)) { if (op2_insn->val.i8 == 0) { /* a ^ 0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i8 == -1) { /* a ^ 1 => ~a */ opt = IR_NOT | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(XOR(_, C_U16)) IR_FOLD(XOR(_, C_I16)) { if (op2_insn->val.i16 == 0) { /* a ^ 0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i16 == -1) { /* a ^ 1 => ~a */ opt = IR_NOT | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(XOR(_, C_U32)) IR_FOLD(XOR(_, C_I32)) { if (op2_insn->val.i32 == 0) { /* a ^ 0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i32 == -1) { /* a ^ 1 => ~a */ opt = IR_NOT | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(XOR(_, C_U64)) IR_FOLD(XOR(_, C_I64)) { if (op2_insn->val.i64 == 0) { /* a ^ 0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.i64 == -1) { /* a ^ 1 => ~a */ opt = IR_NOT | (opt & IR_OPT_TYPE_MASK); op2 = IR_UNUSED; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(SHL(_, C_U8)) IR_FOLD(SHL(_, C_U16)) IR_FOLD(SHL(_, C_U32)) IR_FOLD(SHL(_, C_U64)) IR_FOLD(SHL(_, C_I8)) IR_FOLD(SHL(_, C_I16)) IR_FOLD(SHL(_, C_I32)) IR_FOLD(SHL(_, C_I64)) { if (op2_insn->val.u64 == 0) { /* a << 0 => a */ IR_FOLD_COPY(op1); } else if (op2_insn->val.u64 == 1) { /* a << 1 => a + a */ opt = IR_ADD | (opt & IR_OPT_TYPE_MASK); op2 = op1; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(SHR(_, C_U8)) IR_FOLD(SHR(_, C_U16)) IR_FOLD(SHR(_, C_U32)) IR_FOLD(SHR(_, C_U64)) IR_FOLD(SHR(_, C_I8)) IR_FOLD(SHR(_, C_I16)) IR_FOLD(SHR(_, C_I32)) IR_FOLD(SHR(_, C_I64)) IR_FOLD(SAR(_, C_U8)) IR_FOLD(SAR(_, C_U16)) IR_FOLD(SAR(_, C_U32)) IR_FOLD(SAR(_, C_U64)) IR_FOLD(SAR(_, C_I8)) IR_FOLD(SAR(_, C_I16)) IR_FOLD(SAR(_, C_I32)) IR_FOLD(SAR(_, C_I64)) IR_FOLD(ROL(_, C_U8)) IR_FOLD(ROL(_, C_U16)) IR_FOLD(ROL(_, C_U32)) IR_FOLD(ROL(_, C_U64)) IR_FOLD(ROL(_, C_I8)) IR_FOLD(ROL(_, C_I16)) IR_FOLD(ROL(_, C_I32)) IR_FOLD(ROL(_, C_I64)) IR_FOLD(ROR(_, C_U8)) IR_FOLD(ROR(_, C_U16)) IR_FOLD(ROR(_, C_U32)) IR_FOLD(ROR(_, C_U64)) IR_FOLD(ROR(_, C_I8)) IR_FOLD(ROR(_, C_I16)) IR_FOLD(ROR(_, C_I32)) IR_FOLD(ROR(_, C_I64)) { if (op2_insn->val.u64 == 0) { /* a >> 0 => a */ IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SHL(C_U8, _)) IR_FOLD(SHL(C_U16, _)) IR_FOLD(SHL(C_U32, _)) IR_FOLD(SHL(C_U64, _)) IR_FOLD(SHL(C_I8, _)) IR_FOLD(SHL(C_I16, _)) IR_FOLD(SHL(C_I32, _)) IR_FOLD(SHL(C_I64, _)) IR_FOLD(SHR(C_U8, _)) IR_FOLD(SHR(C_U16, _)) IR_FOLD(SHR(C_U32, _)) IR_FOLD(SHR(C_U64, _)) IR_FOLD(SHR(C_I8, _)) IR_FOLD(SHR(C_I16, _)) IR_FOLD(SHR(C_I32, _)) IR_FOLD(SHR(C_I64, _)) { if (op1_insn->val.u64 == 0) { /* 0 << a => 0 */ IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SAR(C_U8, _)) IR_FOLD(SAR(C_I8, _)) IR_FOLD(ROL(C_U8, _)) IR_FOLD(ROL(C_I8, _)) IR_FOLD(ROR(C_U8, _)) IR_FOLD(ROR(C_I8, _)) { if (op1_insn->val.i8 == 0 || op1_insn->val.i8 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SAR(C_U16, _)) IR_FOLD(SAR(C_I16, _)) IR_FOLD(ROL(C_U16, _)) IR_FOLD(ROL(C_I16, _)) IR_FOLD(ROR(C_U16, _)) IR_FOLD(ROR(C_I16, _)) { if (op1_insn->val.i16 == 0 || op1_insn->val.i16 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SAR(C_U32, _)) IR_FOLD(SAR(C_I32, _)) IR_FOLD(ROL(C_U32, _)) IR_FOLD(ROL(C_I32, _)) IR_FOLD(ROR(C_U32, _)) IR_FOLD(ROR(C_I32, _)) { if (op1_insn->val.i32 == 0 || op1_insn->val.i32 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } IR_FOLD(SAR(C_U64, _)) IR_FOLD(SAR(C_I64, _)) IR_FOLD(ROL(C_U64, _)) IR_FOLD(ROL(C_I64, _)) IR_FOLD(ROR(C_U64, _)) IR_FOLD(ROR(C_I64, _)) { if (op1_insn->val.i64 == 0 || op1_insn->val.i64 == -1) { IR_FOLD_COPY(op1); } IR_FOLD_NEXT; } // TODO: conversions // TODO: Reassociation IR_FOLD(ADD(ADD, C_U8)) IR_FOLD(ADD(ADD, C_U16)) IR_FOLD(ADD(ADD, C_U32)) IR_FOLD(ADD(ADD, C_U64)) IR_FOLD(ADD(ADD, C_ADDR)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x + c1) + c2 => x + (c1 + c2) */ val.u64 = ctx->ir_base[op1_insn->op2].val.u64 + op2_insn->val.u64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(ADD(ADD, C_I8)) IR_FOLD(ADD(ADD, C_I16)) IR_FOLD(ADD(ADD, C_I32)) IR_FOLD(ADD(ADD, C_I64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x + c1) + c2 => x + (c1 + c2) */ val.i64 = ctx->ir_base[op1_insn->op2].val.i64 + op2_insn->val.i64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(MUL, C_U8)) IR_FOLD(MUL(MUL, C_U16)) IR_FOLD(MUL(MUL, C_U32)) IR_FOLD(MUL(MUL, C_U64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x * c1) * c2 => x * (c1 * c2) */ val.u64 = ctx->ir_base[op1_insn->op2].val.u64 * op2_insn->val.u64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(MUL(MUL, C_I8)) IR_FOLD(MUL(MUL, C_I16)) IR_FOLD(MUL(MUL, C_I32)) IR_FOLD(MUL(MUL, C_I64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x * c1) * c2 => x * (c1 * c2) */ val.i64 = ctx->ir_base[op1_insn->op2].val.i64 * op2_insn->val.i64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(AND(AND, C_U8)) IR_FOLD(AND(AND, C_U16)) IR_FOLD(AND(AND, C_U32)) IR_FOLD(AND(AND, C_U64)) IR_FOLD(AND(AND, C_I8)) IR_FOLD(AND(AND, C_I16)) IR_FOLD(AND(AND, C_I32)) IR_FOLD(AND(AND, C_I64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x & c1) & c2 => x & (c1 & c2) */ val.u64 = ctx->ir_base[op1_insn->op2].val.u64 & op2_insn->val.u64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(OR(OR, C_U8)) IR_FOLD(OR(OR, C_U16)) IR_FOLD(OR(OR, C_U32)) IR_FOLD(OR(OR, C_U64)) IR_FOLD(OR(OR, C_I8)) IR_FOLD(OR(OR, C_I16)) IR_FOLD(OR(OR, C_I32)) IR_FOLD(OR(OR, C_I64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x | c1) | c2 => x | (c1 | c2) */ val.u64 = ctx->ir_base[op1_insn->op2].val.u64 | op2_insn->val.u64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(XOR(XOR, C_U8)) IR_FOLD(XOR(XOR, C_U16)) IR_FOLD(XOR(XOR, C_U32)) IR_FOLD(XOR(XOR, C_U64)) IR_FOLD(XOR(XOR, C_I8)) IR_FOLD(XOR(XOR, C_I16)) IR_FOLD(XOR(XOR, C_I32)) IR_FOLD(XOR(XOR, C_I64)) { if (IR_IS_CONST_REF(op1_insn->op2)) { /* (x ^ c1) ^ c2 => x ^ (c1 ^ c2) */ val.u64 = ctx->ir_base[op1_insn->op2].val.u64 ^ op2_insn->val.u64; op1 = op1_insn->op1; op2 = ir_const(ctx, val, IR_OPT_TYPE(opt)); IR_FOLD_RESTART; } IR_FOLD_NEXT; } /* Swap operands (move lower ref to op2) for better CSE */ IR_FOLD(ADD(_, _)) IR_FOLD(MUL(_, _)) IR_FOLD_NAMED(swap_ops) { if (op1 < op2) { /* move lower ref to op2 */ ir_ref tmp = op1; op1 = op2; op2 = tmp; IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(ADD_OV(_, _)) IR_FOLD(MUL_OV(_, _)) { if (op1 < op2) { /* move lower ref to op2 */ ir_ref tmp = op1; op1 = op2; op2 = tmp; IR_FOLD_RESTART; } /* skip CSE ??? */ IR_FOLD_EMIT; } IR_FOLD(SUB_OV(_, _)) { /* skip CSE ??? */ IR_FOLD_EMIT; } /* Binary operations with op1 == op2 */ IR_FOLD(AND(_,_)) IR_FOLD(OR(_,_)) IR_FOLD(MIN(_, _)) IR_FOLD(MAX(_, _)) { /* a & a => a */ if (op1 == op2) { IR_FOLD_COPY(op1); } IR_FOLD_DO_NAMED(swap_ops); } IR_FOLD(XOR(_,_)) { /* a xor a => 0 */ if (op1 == op2) { IR_FOLD_CONST_U(0); } IR_FOLD_DO_NAMED(swap_ops); } IR_FOLD(EQ(_, _)) IR_FOLD(NE(_, _)) { if (op1 != op2) { IR_FOLD_DO_NAMED(swap_ops); } else if (IR_IS_TYPE_INT(op1_insn->type)) { /* a == a => true */ IR_FOLD_BOOL((opt & IR_OPT_OP_MASK) == IR_EQ); } IR_FOLD_NEXT; } IR_FOLD(LT(_, _)) IR_FOLD(GE(_, _)) IR_FOLD(LE(_, _)) IR_FOLD(GT(_, _)) { if (op1 == op2) { if (IR_IS_TYPE_INT(op1_insn->type)) { /* a >= a => true (two low bits are differ) */ IR_FOLD_BOOL((opt ^ (opt >> 1)) & 1); } } else if (op1 < op2) { /* move lower ref to op2 */ ir_ref tmp = op1; op1 = op2; op2 = tmp; opt ^= 3; /* [U]LT <-> [U]GT, [U]LE <-> [U]GE */ IR_FOLD_RESTART; } IR_FOLD_NEXT; } IR_FOLD(ULT(_, _)) IR_FOLD(UGE(_, _)) IR_FOLD(ULE(_, _)) IR_FOLD(UGT(_, _)) { if (op1 == op2) { /* a >= a => true (two low bits are differ) */ IR_FOLD_BOOL((opt ^ (opt >> 1)) & 1); } else if (op1 < op2) { /* move lower ref to op2 */ ir_ref tmp = op1; op1 = op2; op2 = tmp; opt ^= 3; /* [U]LT <-> [U]GT, [U]LE <-> [U]GE */ } IR_FOLD_NEXT; } IR_FOLD(COND(_, _)) // TODO: COND(_, _, _) { if (op2 == op3) { IR_FOLD_COPY(op2); } IR_FOLD_NEXT; }