CrunkLord420/Shrine
1
0
Fork 0
mirror of https://github.com/minexew/Shrine.git synced 2026-07-20 22:38:27 +00:00
Code Issues Projects Releases Wiki Activity
Files
401601816cd188b56ae5d328a73c53cdb4fc9321
Shrine/Compiler/BackFB.CPP
T
Terry A. Davis 401601816c TempleOSCD_150216.ISO
2018-09-08 21:46:15 +02:00

759 lines
22 KiB
C++
Raw Blame History

U0 ICFOpEqual(CLex *lx,CIntermediateCode *tempi,I64 op,U8 *buf2,I64 ip)
{//for ADD,SUB,DIV,MUL
CICArg *a1=&tempi->a1,
*a2=&tempi->a2;
Bool dont_push_float,dont_pop_float,p1_mem;
I64 rsp_size=0,builtin2=0,
t1,r1,d1,t2,r2,d2;
if (lx->flags&LF_AOT_COMPILE)
buf2=lx->a->ip;
CmpSetFloatOpPushPop(lx,tempi,&dont_push_float,&dont_pop_float);
if (dont_pop_float)
throw('Compiler');
if (tempi->ic_flags & ICF_NOT_ADDR) {
p1_mem=FALSE;
if (dont_push_float) {
if (a1->type_pointed!=RT_F64) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a1->type&TY_MASK+a1->type_pointed,a1->reg,a1->disp,ip);
ICFCvt2(lx,tempi,REG_RAX,TY_REG+RT_I64,REG_RAX,0,FALSE,ip);
ICPush(tempi,TY_REG+RT_I64,REG_RAX,0,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else {
if (a1->type_pointed>=RT_I64 &&
(a1->type&TY_MASK==TY_DISP ||
a1->type&TY_MASK==TY_RIP_DISP32 ||
a1->type&TY_MASK==TY_SIB)) {
t1=a1->type_pointed+a1->type&TY_MASK;
r1=a1->reg;
d1=a1->disp;
p1_mem=TRUE;
} else {
ICPush(tempi,a1->type_pointed+a1->type&TY_MASK,a1->reg,a1->disp,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
}
}
} else if (tempi->ic_flags & ICF_A1_FIRST) {
if (a1->type_pointed!=RT_F64 || a2->type&TY_MASK==TY_STK) {
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
a1->type&TY_MASK+a1->type_pointed,a1->reg,a1->disp,ip);
if (a1->type_pointed!=RT_F64)
ICFCvt2(lx,tempi,REG_RDX,TY_REG+RT_I64,REG_RDX,0,FALSE,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
if (a1->type_pointed>=RT_I64 &&
(a1->type&TY_MASK==TY_DISP ||
a1->type&TY_MASK==TY_RIP_DISP32 ||
a1->type&TY_MASK==TY_SIB)) {
t1=a1->type_pointed+a1->type&TY_MASK;
r1=a1->reg;
d1=a1->disp;
p1_mem=TRUE;
} else {
ICPush(tempi,a1->type_pointed+a1->type&TY_MASK,a1->reg,a1->disp,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
}
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
if (r1==REG_RSP+REG_RSP<<8)
d1+=8;
}
}
}
} else {
if (a1->type_pointed!=RT_F64 || a1->type&TY_MASK==TY_STK) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
a1->type&TY_MASK+a1->type_pointed,a1->reg,a1->disp,ip);
if (a1->type_pointed!=RT_F64)
ICFCvt2(lx,tempi,REG_RDX,TY_REG+RT_I64,REG_RDX,0,FALSE,ip);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
if (a1->type_pointed>=RT_I64 &&
(a1->type&TY_MASK==TY_DISP ||
a1->type&TY_MASK==TY_RIP_DISP32 ||
a1->type&TY_MASK==TY_SIB)) {
t1=a1->type_pointed+a1->type&TY_MASK;
r1=a1->reg;
d1=a1->disp;
p1_mem=TRUE;
} else {
ICPush(tempi,a1->type_pointed+a1->type&TY_MASK,a1->reg,a1->disp,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
d2+=8;
}
}
}
if (!rsp_size && !(p1_mem && a1->type_pointed==RT_F64)) {
rsp_size=8;
ICAddRSP(tempi,-8);
}
if (!dont_push_float) {
if (builtin2)
ICU16(tempi,builtin2);
else
ICSlashOp(tempi,t2,r2,d2,SLASH_OP_FLD,ip);
}
switch (op.u8[0]) {
case 4: //FSUB
op=SLASH_OP_FSUBR;
break;
case 6: //FDIV
op=SLASH_OP_FDIVR;
break;
}
ICSlashOp(tempi,t1,r1,d1,op,ip);
CmpNoteFloatOp(lx,tempi,TRUE,FALSE,CN_MAIN);
if (p1_mem && a1->type_pointed==RT_F64) {
ICSlashOp(tempi,t1,r1,d1,SLASH_OP_FSTP,ip);
if (rsp_size)
ICAddRSP(tempi,rsp_size);
} else {
if (rsp_size==8)
ICSlashOp(tempi,TY_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,ip);
else if (rsp_size>8) {
ICSlashOp(tempi,TY_SIB+RT_I64,REG_RSP+REG_RSP<<8,rsp_size-8,SLASH_OP_FSTP,ip);
ICAddRSP(tempi,rsp_size-8);
}
if (a1->type_pointed!=RT_F64) {
ICPop(tempi,TY_REG+RT_I64,REG_RAX,0,ip);
ICFCvt2(lx,tempi,REG_RAX,TY_REG+RT_I64,REG_RAX,0,TRUE,ip);
ICMov(tempi,a1->type&TY_MASK+a1->type_pointed,a1->reg,a1->disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else
ICPop(tempi,a1->type_pointed+a1->type&TY_MASK,a1->reg,a1->disp,ip);
}
if (tempi->r.type&TY_MASK)
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
a1->type&TY_MASK+a1->type_pointed,a1->reg,a1->disp,ip);
} else {
if (a1->type_pointed>=RT_I64)
p1_mem=TRUE;
else
p1_mem=FALSE;
if (dont_push_float) {
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
if (a1->type_pointed!=RT_F64) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
TY_DISP+a1->type_pointed,REG_RCX,0,ip);
ICFCvt2(lx,tempi,REG_RAX,TY_REG+RT_I64,REG_RAX,0,FALSE,ip);
ICPush(tempi,TY_REG+RT_I64,REG_RAX,0,ip);
} else
ICPush(tempi,a1->type_pointed+TY_DISP,REG_RCX,0,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else if (tempi->ic_flags & ICF_A1_FIRST) {
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
if (a1->type_pointed!=RT_F64 || a2->type&TY_MASK==TY_STK) {
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
TY_DISP+a1->type_pointed,REG_RCX,0,ip);
if (a1->type_pointed!=RT_F64)
ICFCvt2(lx,tempi,REG_RDX,TY_REG+RT_I64,REG_RDX,0,FALSE,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
ICPush(tempi,TY_DISP+a1->type_pointed,REG_RCX,0,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
if (r1==REG_RSP+REG_RSP<<8)
d1+=8;
}
}
}
} else {
if (a1->type_pointed!=RT_F64 || a1->type&TY_MASK==TY_STK) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
TY_DISP+a1->type_pointed,REG_RCX,0,ip);
if (a1->type_pointed!=RT_F64)
ICFCvt2(lx,tempi,REG_RDX,TY_REG+RT_I64,REG_RDX,0,FALSE,ip);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
ICPush(tempi,TY_DISP+a1->type_pointed,REG_RCX,0,ip);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
d2+=8;
}
}
if (!rsp_size && !(p1_mem && a1->type_pointed==RT_F64)) {
rsp_size=8;
ICAddRSP(tempi,-8);
}
if (!dont_push_float) {
if (builtin2)
ICU16(tempi,builtin2);
else
ICSlashOp(tempi,t2,r2,d2,SLASH_OP_FLD,ip);
}
switch (op.u8[0]) {
case 4: //FSUB
op=SLASH_OP_FSUBR;
break;
case 6: //FDIV
op=SLASH_OP_FDIVR;
break;
}
ICSlashOp(tempi,t1,r1,d1,op,ip);
CmpNoteFloatOp(lx,tempi,TRUE,FALSE,CN_MAIN);
if (p1_mem && a1->type_pointed==RT_F64) {
ICSlashOp(tempi,TY_DISP+a1->type_pointed,REG_RCX,0,SLASH_OP_FSTP,ip);
if (rsp_size)
ICAddRSP(tempi,rsp_size);
} else {
if (rsp_size==8)
ICSlashOp(tempi,TY_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,ip);
else if (rsp_size>8) {
ICSlashOp(tempi,TY_SIB+RT_I64,REG_RSP+REG_RSP<<8,rsp_size-8,SLASH_OP_FSTP,ip);
ICAddRSP(tempi,rsp_size-8);
}
ICPop(tempi,TY_REG+RT_I64,REG_RAX,0,ip);
if (a1->type_pointed!=RT_F64)
ICFCvt2(lx,tempi,REG_RAX,TY_REG+RT_I64,REG_RAX,0,TRUE,ip);
ICMov(tempi,TY_DISP+a1->type_pointed,REG_RCX,0,TY_REG+RT_I64,REG_RAX,0,ip);
}
if (tempi->r.type&TY_MASK)
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
}
}
U0 ICFCmpAndBranch(CLex *lx,CIntermediateCode *tempi,I64 ip,
I64 us,I64 not_us,U8 *buf,I64 ip2)
{
CICArg *a1,*a2;
Bool dont_push_float,dont_pop_float,alt,short_jmp;
I64 i,rsp_size=0,builtin1=0,builtin2=0,
t1,r1,d1,t2,r2,d2;
CLexCodeMisc *lb;
U8 *buf2;
if (tempi->ic_flags&ICF_ALTERNATE_TEMPLATE) {
a1=&tempi->a2;
a2=&tempi->a1;
alt=TRUE;
} else {
a1=&tempi->a1;
a2=&tempi->a2;
alt=FALSE;
}
if (lx->flags&LF_AOT_COMPILE)
buf2=lx->a->ip;
else
buf2=buf;
CmpSetFloatOpPushPop(lx,tempi,&dont_push_float,&dont_pop_float);
if (dont_push_float) {
if (tempi->ic_flags&ICF_POP_CMP && alt) {
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
} else {
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
tempi->ic_flags&ICF_PUSH_CMP) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip2);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
}
} else {
if (tempi->ic_flags & ICF_A1_FIRST^^alt) {
if (a2->type&TY_MASK!=TY_STK) {
if (tempi->ic_flags&ICF_POP_CMP) {
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else {
if (a1->type&RT_MASK>=RT_I64 &&
(a1->type&TY_MASK==TY_DISP ||
a1->type&TY_MASK==TY_RIP_DISP32 ||
a1->type&TY_MASK==TY_SIB)) {
t1=a1->type;
r1=a1->reg;
d1=a1->disp;
} else {
if (a1->type&TY_MASK==TY_IMM) {
if (!(builtin1=ICBuiltInFloatConst(a1->disp(F64)))) {
t1=TY_RIP_DISP32+RT_I64;
r1=REG_RIP;
d1=LCCFloatConstFind(lx,a1->disp(F64))+buf2;
}
} else {
ICPush(tempi,a1->type,a1->reg,a1->disp,ip2);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
}
}
}
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
tempi->ic_flags&ICF_PUSH_CMP) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip2);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
if (r1==REG_RSP+REG_RSP<<8)
d1+=8;
}
}
} else {
if (tempi->ic_flags&ICF_POP_CMP)
ICPopRegs(tempi,1<<REG_RDX);
else
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
a1->type,a1->reg,a1->disp,ip2);
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip2);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
}
} else {
if (a1->type&TY_MASK!=TY_STK) {
if (a2->type&RT_MASK>=RT_I64 &&
(a2->type&TY_MASK==TY_DISP ||
a2->type&TY_MASK==TY_RIP_DISP32 ||
a2->type&TY_MASK==TY_SIB)) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
} else {
if (a2->type&TY_MASK==TY_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
tempi->ic_flags&ICF_PUSH_CMP) {
t2=TY_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=LCCFloatConstFind(lx,a2->disp(F64))+buf2;
}
} else {
ICPush(tempi,a2->type,a2->reg,a2->disp,ip2);
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
if (tempi->ic_flags&ICF_POP_CMP) {
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
d1+=8;
} else {
if (a1->type&RT_MASK>=RT_I64 &&
(a1->type&TY_MASK==TY_DISP ||
a1->type&TY_MASK==TY_RIP_DISP32 ||
a1->type&TY_MASK==TY_SIB)) {
t1=a1->type;
r1=a1->reg;
d1=a1->disp;
} else {
if (a1->type&TY_MASK==TY_IMM) {
if (!(builtin1=ICBuiltInFloatConst(a1->disp(F64)))) {
t1=TY_RIP_DISP32+RT_I64;
r1=REG_RIP;
d1=LCCFloatConstFind(lx,a1->disp(F64))+buf2;
}
} else {
ICPush(tempi,a1->type,a1->reg,a1->disp,ip2);
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
d2+=8;
}
}
}
} else {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
a2->type,a2->reg,a2->disp,ip2);
if (tempi->ic_flags&ICF_POP_CMP)
ICPopRegs(tempi,1<<REG_RDX);
else
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
a1->type,a1->reg,a1->disp,ip2);
ICU16(tempi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=TY_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
}
}
}
if (!dont_push_float) {
if (builtin1)
ICU16(tempi,builtin1);
else
ICSlashOp(tempi,t1,r1,d1,SLASH_OP_FLD,ip2);
}
if (!alt)
us=not_us;
if (builtin2)
ICU16(tempi,builtin2);
else
ICSlashOp(tempi,t2,r2,d2,SLASH_OP_FLD,ip2);
if (tempi->ic_flags&ICF_PUSH_CMP) {
t2=TY_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
if (!rsp_size) {
rsp_size=8;
ICAddRSP(tempi,-8);
} else if (rsp_size==16)
d2=8;
if (alt) {
ICU16(tempi,0xF1DF); //FCOMIP
ICSlashOp(tempi,t2,r2,d2,SLASH_OP_FSTP,ip2);
} else {
ICU16(tempi,0xF1DB); //FCOMI
ICSlashOp(tempi,t2,r2,d2,SLASH_OP_FSTP,ip2);
ICU32(tempi,0xF7D9C0DD); //FFREE,FINCSTP
}
} else {
ICU16(tempi,0xF1DF); //FCOMIP
ICU32(tempi,0xF7D9C0DD); //FFREE,FINCSTP
}
CmpNoteFloatOp(lx,tempi,TRUE,FALSE,CN_MAIN);
if (tempi->ic_flags&ICF_PUSH_CMP) {
if (r2.u8[0]==REG_RSP) {
while (d2 && rsp_size) {
ICU8(tempi,0x5B); //POP RBX (Dont change flags)
rsp_size-=8;
d2-=8;
}
} else {
while (rsp_size) {
ICU8(tempi,0x5B); //POP RBX (Dont change flags)
rsp_size-=8;
}
ICPush(tempi,t2,r2,d2,ip2);
}
} else {
while (rsp_size) {
ICU8(tempi,0x5B); //POP RBX (Dont change flags)
rsp_size-=8;
}
}
ip+=tempi->ic_cnt;
lb=OptLabelFwd(tempi->ic_data);
short_jmp=ToBool(tempi->ic_flags&ICF_SHORT_JMP);
if (!buf && lb->addr!=INVALID_PTR) {
i=lb->addr-(ip+2);
if (lb->flags&CMF_POP_CMP) {
if(tempi->ic_flags&ICF_PUSH_CMP)
i+=4;
else
i+=8;
}
if (MIN_I8<=i<=MAX_I8)
short_jmp=TRUE;
}
if (short_jmp) {
tempi->ic_flags|=ICF_SHORT_JMP;
i=lb->addr-(ip+2);
if (lb->flags&CMF_POP_CMP) {
if(tempi->ic_flags&ICF_PUSH_CMP)
i+=4;
else
i+=8;
}
ICU16(tempi,i<<8+us.u8[2]);
} else {
tempi->ic_flags&=~ICF_SHORT_JMP;
i=lb->addr-(ip+6);
if (lb->flags&CMF_POP_CMP) {
if(tempi->ic_flags&ICF_PUSH_CMP)
i+=4;
else
i+=8;
}
ICU16(tempi,us.u16[0]);
ICU32(tempi,i);
}
}
U0 ICFMul(CLex *lx,CIntermediateCode *tempi,U8 *buf,I64 ip)
{
if (tempi->a1.type&TY_MASK==TY_IMM &&
tempi->a1.type_pointed&RT_MASK==RT_F64 &&
tempi->a1.disp(F64)==1.0) {
CmpNoteFloatOp(lx,tempi,FALSE,FALSE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,ip);
} else if (tempi->a2.type&TY_MASK==TY_IMM &&
tempi->a2.type_pointed&RT_MASK==RT_F64 &&
tempi->a2.disp(F64)==1.0) {
CmpNoteFloatOp(lx,tempi,FALSE,FALSE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
} else
ICFOp(lx,tempi,SLASH_OP_FMUL,buf,ip);
}
U0 ICFDiv(CLex *lx,CIntermediateCode *tempi,U8 *buf,I64 ip)
{
if (tempi->a2.type&TY_MASK==TY_IMM &&
tempi->a2.type_pointed&RT_MASK==RT_F64 &&
tempi->a2.disp(F64)==1.0) {
CmpNoteFloatOp(lx,tempi,FALSE,FALSE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
} else
ICFOp(lx,tempi,SLASH_OP_FDIV,buf,ip);
}
U0 ICFAdd(CLex *lx,CIntermediateCode *tempi,U8 *buf,I64 ip)
{
Bool dont_push_float,dont_pop_float;
CmpSetFloatOpPushPop(lx,tempi,&dont_push_float,&dont_pop_float);
if (tempi->a1.type&TY_MASK==TY_IMM &&
!tempi->a1.disp) {
if (dont_push_float) {
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else if (dont_pop_float) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,ip);
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
} else {
CmpNoteFloatOp(lx,tempi,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,ip);
}
} else if (tempi->a2.type&TY_MASK==TY_IMM &&
!tempi->a2.disp) {
if (dont_push_float) {
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else if (dont_pop_float) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
} else {
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
CmpNoteFloatOp(lx,tempi,TRUE,TRUE,CN_MAIN);
}
} else
ICFOp(lx,tempi,SLASH_OP_FADD,buf,ip);
}
U0 ICFSub(CLex *lx,CIntermediateCode *tempi,U8 *buf,I64 ip)
{
Bool dont_push_float,dont_pop_float;
if (tempi->a2.type&TY_MASK==TY_IMM &&
!tempi->a2.disp) {
CmpSetFloatOpPushPop(lx,tempi,&dont_push_float,&dont_pop_float);
if (dont_push_float) {
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else if (dont_pop_float) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
ICCopyTemplate(lx,tempi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
} else {
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
CmpNoteFloatOp(lx,tempi,TRUE,TRUE,CN_MAIN);
}
} else
ICFOp(lx,tempi,SLASH_OP_FSUB,buf,ip);
}
U0 ICFPreIncDec(CLex *lx,CIntermediateCode *tempi,I64 op,I64 ip)
{
if (tempi->ic_flags & ICF_NOT_ADDR) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a1.type&TY_MASK+RT_I64,tempi->a1.reg,tempi->a1.disp,ip);
ICCopyTemplate(lx,tempi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else {
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
TY_DISP+RT_I64,REG_RCX,0,ip);
ICCopyTemplate(lx,tempi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,TY_DISP+RT_I64,REG_RCX,0,
TY_REG+RT_I64,REG_RAX,0,ip);
}
if (tempi->r.type&TY_MASK)
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
}
U0 ICFPostIncDec(CLex *lx,CIntermediateCode *tempi,I64 op,I64 ip)
{
if (tempi->ic_flags & ICF_NOT_ADDR) {
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a1.type&TY_MASK+RT_I64,tempi->a1.reg,tempi->a1.disp,ip);
if (tempi->r.type&TY_MASK)
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
TY_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(lx,tempi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
} else {
ICMov(tempi,TY_REG+RT_I64,REG_RCX,0,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
TY_DISP+RT_I64,REG_RCX,0,ip);
if (tempi->r.type&TY_MASK)
ICMov(tempi,TY_REG+RT_I64,REG_RDX,0,
TY_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(lx,tempi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tempi,TY_DISP+RT_I64,REG_RCX,0,
TY_REG+RT_I64,REG_RAX,0,ip);
}
if (tempi->r.type&TY_MASK)
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RDX,0,ip);
}
U0 ICFTemplateFun(CLex *lx,CIntermediateCode *tempi,I64 op,I64 ip)
{
Bool dont_push_float,dont_pop_float;
CmpSetFloatOpPushPop(lx,tempi,&dont_push_float,&dont_pop_float);
if (!dont_push_float)
ICMov(tempi,TY_REG+RT_I64,REG_RAX,0,
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,ip);
ICCopyTemplate(lx,tempi,op,FALSE,TRUE,TRUE,CN_MAIN);
if (tempi->r.type&TY_MASK && !(tempi->ic_flags & ICF_R_TO_F64) &&
!(tempi->ic_flags & ICF_R_TO_INT))
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,
TY_REG+RT_I64,REG_RAX,0,ip);
}
Reference in New Issue View Git Blame Copy Permalink