tristan/ZealOS
1
0
Fork 0
mirror of https://github.com/Zeal-Operating-System/ZealOS.git synced 2025-03-31 21:35:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
ZealOS/src/Compiler/BackB.CC
TomAwezome 2836d36ca6 Add comments to some compiler methods. 
Revert 440Hz 'A' tuning.
2021-12-09 03:35:44 -05:00

801 lines
21 KiB
HolyC
Executable file
Raw Blame History

U0 ICUnaries(CIntermediateCode *tmpi, I64 op, I64 rip)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
ICSlashOp(tmpi, MDF_REG + RT_I64, REG_RAX, 0, op, rip);
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
U0 ICNot(CIntermediateCode *tmpi, I64 rip)
{
I64 i;
if (tmpi->arg1.type.raw_type <= RT_U8 && tmpi->arg1.type & MDG_DISP_SIB_RIP)
{
i = ICModr1(tmpi, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp);
ICRex(tmpi, i.u8[1]);
ICU16(tmpi, i.u8[2] << 8 + 0xF6); // TEST ?, 0xFF
ICModr2(tmpi, i,, tmpi->arg1.disp, rip + 1);
ICU8(tmpi, 0xFF);
}
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
ICTest(tmpi, REG_RAX);
}
ICU24(tmpi, 0xC0940F); // SETE AL
ICU32(tmpi, 0xC0B60F48);// MOVZX RAX, AL
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_U64, REG_RAX, 0, rip);
}
U0 ICAndAnd(CIntermediateCode *tmpi, I64 rip)
{
I64 r2;
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (!(tmpi->arg1.type & MDF_REG) || tmpi->arg1.reg == REG_RAX)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r2 = REG_RDX;
}
else
r2 = tmpi->arg1.reg;
ICZero(tmpi, REG_RAX);
ICTest(tmpi, r2);
ICU16(tmpi, 0x0874); // JE I8 0xA
ICTest(tmpi, REG_RCX);
ICU16(tmpi, 0x0374); // JE I8 0x5
ICU24(tmpi, 0xC0FF48); // INC U64 RAX
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
U0 ICOrOr(CIntermediateCode *tmpi, I64 rip)
{
I64 i = 0x48, r2;
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (!(tmpi->arg1.type & MDF_REG) || tmpi->arg1.reg == REG_RAX)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r2 = REG_RDX;
}
else
r2 = tmpi->arg1.reg;
if (r2 > 7)
{
i++;
r2 &= 7;
}
ICZero(tmpi, REG_RAX);
ICU24(tmpi, 0xC80B00 + i + r2 << 16);
ICU16(tmpi, 0x0374); // JE I8 0x5
ICU24(tmpi, 0xC0FF48); // INC U64 RAX
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
U0 ICXorXor(CIntermediateCode *tmpi, I64 rip)
{
I64 r2;
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (!(tmpi->arg1.type & MDF_REG))
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r2 = REG_RDX;
}
else
r2 = tmpi->arg1.reg;
ICZero(tmpi, REG_RBX);
ICTest(tmpi, r2);
ICU16(tmpi, 0x0374); // JE I8 0x5
ICU24(tmpi, 0xC3FF48); // INC U64 RBX
ICZero(tmpi, REG_RAX);
ICTest(tmpi, REG_RCX);
ICU16(tmpi, 0x0374); // JE I8 0x5
ICU24(tmpi, 0xC0FF48); // INC U64 RAX
ICU24(tmpi, 0xC33348); // XOR U64 RAX, U64 RBX
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
U0 ICComp(CIntermediateCode *tmpi, I64 us, I64 is, I64 rip)
{
I64 r1, d1, r2, i = 0x48, j = tmpi->arg2.disp;
if (tmpi->arg2.type & MDF_IMM && I32_MIN <= j <= I32_MAX)
{
if (!(tmpi->ic_flags & (ICF_POP_CMP | ICF_PUSH_CMP)) &&
tmpi->arg1.type & MDF_DISP && //TODO
tmpi->arg1.type.raw_type >= RT_I64 && tmpi->arg1.reg != REG_RAX)
{
r1 = tmpi->arg1.reg;
d1 = tmpi->arg1.disp;
ICZero(tmpi, REG_RAX);
if (r1 > 7)
i++;
if (I8_MIN <= j <= I8_MAX)
i += 0x388300;
else
i += 0x388100;
if (!d1)
{
ICU24(tmpi, 0x000000 + i + (r1 & 7) << 16);
}
else if (I8_MIN <= d1 <= I8_MAX)
{
ICU24(tmpi, 0x400000 + i + (r1 & 7) << 16);
ICU8(tmpi, d1);
}
else
{
ICU24(tmpi, 0x800000 + i + (r1 & 7) << 16);
ICU32(tmpi, d1);
}
if (I8_MIN <= j <= I8_MAX)
ICU8(tmpi, j);
else
ICU32(tmpi, j);
}
else
{
if (tmpi->ic_flags & ICF_POP_CMP)
{
ICPopRegs(tmpi, 1 << REG_RCX);
r1 = REG_RCX;
}
else
{
if (tmpi->arg1.type & MDF_REG && tmpi->arg1.reg != REG_RAX)
r1 = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r1 = REG_RCX;
}
}
ICZero(tmpi, REG_RAX);
if (r1 > 7)
i++;
if (I8_MIN <= j <= I8_MAX) {
ICU24(tmpi, 0xF88300 + i + (r1 & 7) << 16);
ICU8(tmpi, j);
}
else
{
ICU24(tmpi, 0xF88100 + i + (r1 & 7) << 16);
ICU32(tmpi, j);
}
}
if (tmpi->ic_flags & ICF_PUSH_CMP)
ICPush(tmpi, MDF_IMM + RT_I64, 0, j, rip);
if (tmpi->ic_class->raw_type & RTF_UNSIGNED || tmpi->ic_flags & ICF_USE_UNSIGNED)
is = us;
ICU16(tmpi, 0x300 + is);
ICU24(tmpi, 0xC0FF48); // INC U64 RAX
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
else
{
if (tmpi->arg2.type & MDF_REG && tmpi->arg2.reg != REG_RAX)
r2 = tmpi->arg2.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
r2 = REG_RCX;
}
if (tmpi->ic_flags & ICF_POP_CMP)
{
ICPopRegs(tmpi, 1 << REG_RDX);
r1 = REG_RDX;
}
else
{
if (tmpi->arg1.type & MDF_REG && tmpi->arg1.reg != REG_RAX)
r1 = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r1 = REG_RDX;
}
}
ICZero(tmpi, REG_RAX);
if (r2 > 7)
i++;
if (r1 > 7)
i += 4;
if (tmpi->ic_flags & ICF_PUSH_CMP)
ICPushRegs(tmpi, 1 << r2);
ICU24(tmpi, 0xC03B00 + i + (r2 & 7) << 16 + (r1 & 7) << 19);
if (tmpi->ic_class->raw_type & RTF_UNSIGNED || tmpi->ic_flags & ICF_USE_UNSIGNED)
is = us;
ICU16(tmpi, 0x300 + is);
ICU24(tmpi, 0xC0FF48); // INC U64 RAX
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
}
U0 ICBitOps(CIntermediateCode *tmpi, CICArg *arg1, CICArg *arg2, CIntermediateCode *tmpi2, I64 op, I64 op_imm, I64 rip)
{//TODO:not fully utilizing Modr
Bool res_not_used = ToBool(tmpi2->ic_flags & ICF_RES_NOT_USED);
I64 r1, t2, r2, d2, i = 0x48;
if (tmpi->ic_flags & ICF_BY_VAL)
{
t2 = arg2->type & MDG_MASK + RT_I64; //TODO: check overflow
r2 = arg2->reg;
d2 = arg2->disp;
if (!(t2 & MDG_REG_DISP_SIB_RIP) ||
!(r2.u8[0] != REG_RAX &&
(!(t2 & MDF_SIB) ||
r2.u8[1] & 15 != REG_RAX) ||
res_not_used))
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, t2, r2, d2, rip);
t2 = MDF_REG + RT_I64;
r2 = REG_RCX;
d2 = 0;
}
if (arg1->type & MDF_REG && (arg1->reg != REG_RAX || res_not_used))
r1 = arg1->reg;
else if (!(arg1->type & MDF_IMM) || arg1->disp > 63)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, arg1->type, arg1->reg, arg1->disp, rip);
r1 = REG_RDX;
}
else
r1 = 0;
}
else
{
t2 = MDF_DISP + RT_I64;
d2 = 0;
if (arg2->type & MDF_REG && (arg2->reg != REG_RAX || res_not_used))
r2 = arg2->reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, arg2->type, arg2->reg, arg2->disp, rip);
r2 = REG_RCX;
}
if (arg1->type & MDF_REG && (arg1->reg != REG_RAX || res_not_used))
r1 = arg1->reg;
else if (!(arg1->type & MDF_IMM) || arg1->disp > 63)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, arg1->type, arg1->reg, arg1->disp, rip);
r1 = REG_RDX;
}
else
r1 = 0;
}
if (!res_not_used)
ICZero(tmpi, REG_RAX);
if (tmpi->ic_flags & ICF_LOCK && op != 0xA30F)
ICU8(tmpi, OC_LOCK_PREFIX);
if (arg1->type & MDF_IMM && arg1->disp < 32)
t2 = t2 & MDG_MASK + RT_U32;
i = ICModr1(r1, t2, r2, d2);
ICRex(tmpi, i.u8[1]);
if (arg1->type & MDF_IMM && arg1->disp < 64)
{
ICU24(tmpi, i.u8[2] << 16 + op_imm);
ICModr2(tmpi, i,, d2, rip + 1);
ICU8(tmpi, arg1->disp);
}
else
{
ICU24(tmpi, i.u8[2] << 16 + op);
ICModr2(tmpi, i,, d2, rip);
}
if (!res_not_used)
{
ICU24(tmpi, 0xC0920F); //SETC AL
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, REG_RAX, 0, rip);
}
}
U0 ICToUpper(CIntermediateCode *tmpi, I64 rip)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
ICU32(tmpi, 0x61F88348); // CMP U64 RAX, I8 0x61
ICU16(tmpi, 0x0A7C); // JL I8 0xC
ICU32(tmpi, 0x7AF88348); // CMP U64 RAX, I8 0x7A
ICU16(tmpi, 0x047F); // JG I8 0x6
ICU32(tmpi, 0xE0C08348); // ADD U64 RAX, I8 0xE0
}
U0 ICToI64(CCompCtrl *cc, CIntermediateCode *tmpi, I64 rip)
{
ICFConvert(cc, tmpi, REG_RAX, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, TRUE, CN_INST, rip);
}
U0 ICToF64(CCompCtrl *cc, CIntermediateCode *tmpi, I64 rip)
{
ICFConvert(cc, tmpi, REG_RAX, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, FALSE, CN_INST, rip);
}
U0 ICToBool(CCompCtrl *, CIntermediateCode *tmpi, I64 rip)
{
I64 r;
if (tmpi->arg1.type & MDF_REG)
r = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RAX;
}
ICTest(tmpi, r);
ICU24(tmpi, 0xC0950F); // SETNE AL
ICU32(tmpi, 0xC0B60F48); // MOVZX RAX, AL
}
U0 ICPreIncDec(CIntermediateCode *tmpi, I64 op, I64 rip)
{
I64 r;
CHashClass *tmpc = tmpi->ic_class, *tmpc1 = tmpc - 1;
if (tmpi->ic_flags & ICF_BY_VAL)
{
if (tmpc->ptr_stars_count && tmpc1->size != 1)
{
ICAddSubEctImm(tmpi,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp,
tmpc1->size, op.u16[3], rip);
}
else
ICSlashOp(tmpi, tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp, op, rip);
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp, rip);
}
else
{
if (tmpi->arg1.type & MDF_REG)
r = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RCX;
}
if (tmpc->ptr_stars_count && tmpc1->size != 1)
{
ICAddSubEctImm(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0,
MDF_DISP + tmpi->arg1_type_pointed_to, r, 0,
tmpc1->size, op.u16[3], rip);
}
else
ICSlashOp(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, op, rip);
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, rip);
}
}
U0 ICPostIncDec(CIntermediateCode *tmpi, I64 op, I64 rip)
{
I64 r;
CHashClass *tmpc = tmpi->ic_class, *tmpc1 = tmpc - 1;
if (tmpi->ic_flags & ICF_BY_VAL)
{
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp, rip);
if (tmpc->ptr_stars_count && tmpc1->size != 1)
ICAddSubEctImm(tmpi,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp,
tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi,
tmpi->arg1.type & MDG_MASK + tmpi->arg1_type_pointed_to,
tmpi->arg1.reg, tmpi->arg1.disp, op, rip);
}
else
{
if (tmpi->arg1.type & MDF_REG && !(tmpi->res.type & MDF_REG && tmpi->res.reg == tmpi->arg1.reg))
r = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RCX;
}
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, rip);
if (tmpc->ptr_stars_count && tmpc1->size != 1)
ICAddSubEctImm(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0,
MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, op, rip);
}
}
U0 ICDerefPostIncDec(CIntermediateCode *tmpi, I64 op, I64 rip)
{
CICType t;
I64 r;
CHashClass *tmpc1 = tmpi->ic_class;
t = tmpi->res.type.raw_type;
if (t > tmpi->arg1_type_pointed_to)
t = tmpi->arg1_type_pointed_to;
if (tmpi->ic_flags & ICF_BY_VAL)
{
if (tmpi->arg1.type & MDF_REG)
r = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0,
tmpi->arg1.type & MDG_MASK + RT_I64, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RDX;
}
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_DISP + t, r, 0, rip);
if (tmpc1->size != 1)
ICAddSubEctImm(tmpi,
tmpi->arg1.type & MDG_MASK + RT_I64, tmpi->arg1.reg, tmpi->arg1.disp,
tmpi->arg1.type & MDG_MASK + RT_I64, tmpi->arg1.reg, tmpi->arg1.disp,
tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi, tmpi->arg1.type & MDG_MASK + RT_I64,
tmpi->arg1.reg, tmpi->arg1.disp, op, rip);
}
else
{
if (tmpi->arg1.type & MDF_REG)
r = tmpi->arg1.reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0,
tmpi->arg1.type & MDG_MASK + RT_I64, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RCX;
}
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, MDF_DISP + RT_I64, r, 0, rip);
if (tmpc1->size != 1)
ICAddSubEctImm(tmpi, MDF_DISP + RT_I64, r, 0, MDF_DISP + RT_I64, r, 0, tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi, MDF_DISP + RT_I64, r, 0, op, rip);
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_DISP + t, REG_RDX, 0, rip);
}
}
U0 ICAssignPostIncDec(CIntermediateCode *tmpi, I64 op, I64 rip)
{
CHashClass *tmpc1 = tmpi->ic_class2 - 1;
I64 r;
if (tmpi->ic_flags & ICF_BY_VAL)
{
if (tmpi->arg1.type & MDF_REG)
r = tmpi->arg1.reg;
else
{
ICMov(tmpi,MDF_REG + RT_I64, REG_RDX, 0,
tmpi->arg1.type & MDG_MASK + RT_I64, tmpi->arg1.reg, tmpi->arg1.disp, rip);
r = REG_RDX;
}
ICMov(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, r, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (tmpc1->size != 1 || tmpi->arg1.type & MDF_STACK)
ICAddSubEctImm(tmpi, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp,
MDF_REG + RT_I64, r, 0, tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, op, rip);
}
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip);
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, MDF_DISP + RT_I64, REG_RDX, 0, rip);
ICMov(tmpi, MDF_DISP + tmpi->arg1_type_pointed_to, REG_RCX, 0, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (tmpi->res.type.mode)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, tmpi->arg2.type, tmpi->arg2.reg, tmpi->arg2.disp, rip);
if (tmpc1->size != 1)
ICAddSubEctImm(tmpi, MDF_DISP + RT_I64, REG_RDX, 0, MDF_REG + RT_I64, REG_RCX, 0, tmpc1->size, op.u16[3], rip);
else
ICSlashOp(tmpi, MDF_DISP + RT_I64, REG_RDX, 0, op, rip);
}
}
U0 ICCompAndBranch(CIntermediateCode *tmpi, Bool has_res, I64 rip, I64 us, I64 is, I64 not_us, I64 not_is, U8 *buf, I64 rip2)
{
I64 r1, r2, i = 0x48, j, res_reg;
CICType t1, t2;
Bool short_jmp, swap, done;
CCodeMisc *lb;
CICArg *arg1 = &tmpi->arg1, *arg2 = &tmpi->arg2;
j = arg1->disp;
if (arg1->type & MDF_IMM && I32_MIN <= j <= I32_MAX)
{
SwapI64(&arg1, &arg2);
swap = TRUE;
us = not_us;
is = not_is;
}
else
swap = FALSE;
if (tmpi->ic_class->raw_type & RTF_UNSIGNED || tmpi->ic_flags & ICF_USE_UNSIGNED)
is = us;
j = arg2->disp;
if (arg2->type & MDF_IMM && I32_MIN <= j <= I32_MAX)
{
if (!has_res && arg1->type & MDG_REG_DISP_SIB_RIP)
ICAddSubEctImm(tmpi, arg1->type, arg1->reg, arg1->disp, arg1->type, arg1->reg, arg1->disp, j, 0x073B, rip2);
else
{
if (arg1->type & MDF_REG)
r1 = arg1->reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RDX, 0, arg1->type, arg1->reg, arg1->disp, rip2);
r1 = REG_RDX;
}
if (!j)
{
if (is.u8[2] == 0x7C)
{
ICTest(tmpi, r1);
is = 0x78880F;
}
else if (is.u8[2] == 0x7D)
{
ICTest(tmpi, r1);
is = 0x79890F;
}
else if (is.u8[2] == 0x74 || is.u8[2] == 0x75)
ICTest(tmpi, r1);
else
{
if (r1 > 7)
i++;
ICU24(tmpi, 0xF88300 + i + (r1 & 7) << 16);
ICU8(tmpi, j);
}
}
else
{
if (r1 > 7)
i++;
if (I8_MIN <= j <= I8_MAX)
{
ICU24(tmpi, 0xF88300 + i + (r1 & 7) << 16);
ICU8(tmpi, j);
}
else
{
ICU24(tmpi, 0xF88100 + i + (r1 & 7) << 16);
ICU32(tmpi, j);
}
}
}
if (has_res)
{
if (!swap)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, MDF_IMM + RT_I64, 0, j, rip2);
res_reg = REG_RCX;
}
else
res_reg = r1;
}
}
else
{
done = FALSE;
t1 = arg1->type;
r1 = arg1->reg;
r2 = arg2->reg;
t2 = arg2->type;
if (t2.raw_type >= RT_I64 && !has_res && t2 & MDG_DISP_SIB_RIP)
{
if (!(t1 & MDF_REG) || t1.raw_type < RT_I64)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, arg1->type, arg1->reg, arg1->disp, rip2);
r1 = REG_RAX;
}
i = ICModr1(r1, t2, r2, arg2->disp);
ICRex(tmpi, i.u8[1]);
ICU16(tmpi, i.u8[2] << 8 + 0x3B);
ICModr2(tmpi, i,, arg2->disp, rip2);
done = TRUE;
}
else if (t1.raw_type >= RT_I64 && t1 & MDG_REG_DISP_SIB_RIP)
{
if (!(t2 & MDF_REG) || t2.raw_type < RT_I64)
{
if (t1 & MDF_REG && r1 == REG_RAX)
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, arg2->type, arg2->reg, arg2->disp, rip2);
r2 = REG_RCX;
}
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, arg2->type, arg2->reg, arg2->disp, rip2);
r2 = REG_RAX;
}
}
i = ICModr1(r2, t1, r1, arg1->disp);
ICRex(tmpi, i.u8[1]);
ICU16(tmpi, i.u8[2] << 8 + 0x39);
ICModr2(tmpi, i,, arg1->disp, rip2);
if (has_res)
res_reg = r2;
done = TRUE;
}
if (!done)
{
if (arg2->type & MDF_REG)
r2 = arg2->reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, arg2->type, arg2->reg, arg2->disp, rip2);
r2 = REG_RAX;
}
if (arg1->type & MDF_REG)
r1 = arg1->reg;
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RCX, 0, arg1->type, arg1->reg, arg1->disp, rip2);
r1 = REG_RCX;
}
if (r2 > 7)
i++;
if (r1 > 7)
i += 4;
ICU24(tmpi, 0xC03B00 + i + (r2 & 7) << 16 + (r1 & 7) << 19);
if (has_res)
res_reg = r2;
}
}
rip += tmpi->ic_count;
lb = OptLabelFwd(tmpi->ic_data);
short_jmp = ToBool(tmpi->ic_flags & ICF_SHORT_JMP);
if (!buf && lb->addr != INVALID_PTR)
{
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
{
if (tmpi->ic_flags & ICF_PUSH_CMP)
i += 4;
else
i += 8;
}
if (I8_MIN <= i <= I8_MAX)
short_jmp = TRUE;
}
if (short_jmp)
{
tmpi->ic_flags |= ICF_SHORT_JMP;
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
{
if (tmpi->ic_flags & ICF_PUSH_CMP)
i += 4;
else
i += 8;
}
ICU16(tmpi, i << 8 + is.u8[2]);
}
else
{
tmpi->ic_flags &= ~ICF_SHORT_JMP;
i = lb->addr - (rip + 6);
if (lb->flags & CMF_POP_CMP)
{
if (tmpi->ic_flags & ICF_PUSH_CMP)
i += 4;
else
i += 8;
}
ICU16(tmpi, is.u16[0]);
ICU32(tmpi, i);
}
if (has_res)
ICMov(tmpi, tmpi->res.type, tmpi->res.reg, tmpi->res.disp, MDF_REG + RT_I64, res_reg, 0, rip2);
}
U0 ICTestAndBranch(CIntermediateCode *tmpi, I64 rip, I64 is, U8 *buf, I64 rip2)
{
I64 i;
Bool short_jmp;
CCodeMisc *lb;
if (!(tmpi->arg1.type & MDF_REG))
{
if (tmpi->arg1.type.raw_type <= RT_U8 && tmpi->arg1.type & MDG_DISP_SIB_RIP)
{
i = ICModr1(tmpi, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp);
ICRex(tmpi, i.u8[1]);
ICU16(tmpi, i.u8[2] << 8 + 0xF6);
ICModr2(tmpi, i,, tmpi->arg1.disp, rip2 + 1);
ICU8(tmpi, 0xFF);
}
else
{
ICMov(tmpi, MDF_REG + RT_I64, REG_RAX, 0, tmpi->arg1.type, tmpi->arg1.reg, tmpi->arg1.disp, rip2);
ICTest(tmpi, REG_RAX);
}
}
else
ICTest(tmpi, tmpi->arg1.reg);
rip += tmpi->ic_count;
lb = OptLabelFwd(tmpi->ic_data);
short_jmp = ToBool(tmpi->ic_flags & ICF_SHORT_JMP);
if (!buf && lb->addr != INVALID_PTR)
{
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
i += 8;
if (I8_MIN <= i <= I8_MAX)
short_jmp = TRUE;
}
if (short_jmp)
{
tmpi->ic_flags |= ICF_SHORT_JMP;
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
i += 8;
ICU16(tmpi, i << 8 + is.u8[2]);
}
else
{
tmpi->ic_flags &= ~ICF_SHORT_JMP;
i = lb->addr - (rip + 6);
if (lb->flags & CMF_POP_CMP)
i += 8;
ICU16(tmpi, is.u16[0]);
ICU32(tmpi, i);
}
}
U0 ICFlagBranch(CIntermediateCode *tmpi, I64 rip, I64 is, U8 *buf)
{
I64 i;
Bool short_jmp;
CCodeMisc *lb;
rip += tmpi->ic_count;
lb = OptLabelFwd(tmpi->ic_data);
short_jmp = ToBool(tmpi->ic_flags & ICF_SHORT_JMP);
if (!buf && lb->addr != INVALID_PTR)
{
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
i += 8;
if (I8_MIN <= i <= I8_MAX)
short_jmp = TRUE;
}
if (short_jmp)
{
tmpi->ic_flags |= ICF_SHORT_JMP;
i = lb->addr - (rip + 2);
if (lb->flags & CMF_POP_CMP)
i += 8;
ICU16(tmpi, i << 8 + is.u8[2]);
}
else
{
tmpi->ic_flags &= ~ICF_SHORT_JMP;
i = lb->addr - (rip + 6);
if (lb->flags & CMF_POP_CMP)
i += 8;
ICU16(tmpi, is.u16[0]);
ICU32(tmpi, i);
}
}
Reference in a new issue View git blame Copy permalink