Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSCDV5.00.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:48:09 +02:00
1 parent 122df6338e
commit f6eacf7744
374 files changed
+11078 -11204
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Compiler/BackFB.HC
+251 -240
View File
@@ -1,13 +1,13 @@
U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 ip)
U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 rip)
{//for ADD,SUB,DIV,MUL
CICArg *a1=&tmpi->a1,
*a2=&tmpi->a2;
CICArg *arg1=&tmpi->arg1,
*arg2=&tmpi->arg2;
Bool dont_push_float,dont_pop_float,p1_mem;
I64 rsp_size=0,builtin2=0,
t1,r1,d1,t2,r2,d2;
if (cc->flags&CCF_AOT_COMPILE)
buf2=cc->aotc->ip;
buf2=cc->aotc->rip;
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float);
if (dont_pop_float)
@@ -16,63 +16,66 @@ U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 ip)
if (tmpi->ic_flags & ICF_BY_VAL) {
p1_mem=FALSE;
if (dont_push_float) {
if (tmpi->a1_type_pointed_to!=RT_F64) {
if (tmpi->arg1_type_pointed_to!=RT_F64) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
a1->type&MDG_MASK+tmpi->a1_type_pointed_to,a1->reg,a1->disp,ip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,ip);
ICPush(tmpi,MDF_REG+RT_I64,REG_RAX,0,ip);
arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,rip);
ICPush(tmpi,MDF_REG+RT_I64,REG_RAX,0,rip);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else {
if (tmpi->a1_type_pointed_to>=RT_I64 && a1->type&MDG_DISP_SIB_RIP) {
t1=a1->type&MDG_MASK+tmpi->a1_type_pointed_to;
r1=a1->reg;
d1=a1->disp;
if (tmpi->arg1_type_pointed_to>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) {
t1=arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to;
r1=arg1->reg;
d1=arg1->disp;
p1_mem=TRUE;
} else {
ICPush(tmpi,a1->type&MDG_MASK+tmpi->a1_type_pointed_to,
a1->reg,a1->disp,ip);
ICPush(tmpi,arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
}
}
} else {
if (tmpi->a1_type_pointed_to!=RT_F64 || a1->type&MDF_STK) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,a2->type,a2->reg,a2->disp,ip);
if (tmpi->arg1_type_pointed_to!=RT_F64 || arg1->type&MDF_STK) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,arg2->type,
arg2->reg,arg2->disp,rip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,
a1->type&MDG_MASK+tmpi->a1_type_pointed_to,a1->reg,a1->disp,ip);
if (tmpi->a1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RDX,MDF_REG+RT_I64,REG_RDX,0,FALSE,ip);
arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
if (tmpi->arg1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RDX,MDF_REG+RT_I64,REG_RDX,0,FALSE,rip);
ICU16(tmpi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
if (a2->type.raw_type>=RT_I64 && a2->type&MDG_DISP_SIB_RIP) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) {
t2=arg2->type;
r2=arg2->reg;
d2=arg2->disp;
} else {
if (a2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
if (arg2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64)))) {
t2=MDF_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=COCFloatConstFind(cc,a2->disp(F64))+buf2;
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a2->type,a2->reg,a2->disp,ip);
ICPush(tmpi,arg2->type,arg2->reg,arg2->disp,rip);
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
if (tmpi->a1_type_pointed_to>=RT_I64 && a1->type&MDG_DISP_SIB_RIP) {
t1=a1->type&MDG_MASK+tmpi->a1_type_pointed_to;
r1=a1->reg;
d1=a1->disp;
if (tmpi->arg1_type_pointed_to>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) {
t1=arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to;
r1=arg1->reg;
d1=arg1->disp;
p1_mem=TRUE;
} else {
ICPush(tmpi,a1->type&MDG_MASK+tmpi->a1_type_pointed_to,
a1->reg,a1->disp,ip);
ICPush(tmpi,arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
@@ -80,7 +83,7 @@ U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 ip)
}
}
}
if (!rsp_size && !(p1_mem && tmpi->a1_type_pointed_to==RT_F64)) {
if (!rsp_size && !(p1_mem && tmpi->arg1_type_pointed_to==RT_F64)) {
rsp_size=8;
ICAddRSP(tmpi,-8);
}
@@ -88,93 +91,97 @@ U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 ip)
if (builtin2)
ICU16(tmpi,builtin2);
else
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,ip);
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,rip);
}
switch (op.u8[0]) {
case 4: op=SLASH_OP_FSUBR; break;
case 6: op=SLASH_OP_FDIVR; break;
}
ICSlashOp(tmpi,t1,r1,d1,op,ip);
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_MAIN);
if (p1_mem && tmpi->a1_type_pointed_to==RT_F64) {
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FSTP,ip);
ICSlashOp(tmpi,t1,r1,d1,op,rip);
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_INST);
if (p1_mem && tmpi->arg1_type_pointed_to==RT_F64) {
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FSTP,rip);
if (rsp_size)
ICAddRSP(tmpi,rsp_size);
} else {
if (rsp_size==8)
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,ip);
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,rip);
else if (rsp_size>8) {
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,rsp_size-8,
SLASH_OP_FSTP,ip);
SLASH_OP_FSTP,rip);
ICAddRSP(tmpi,rsp_size-8);
}
if (tmpi->a1_type_pointed_to!=RT_F64) {
ICPop(tmpi,MDF_REG+RT_I64,REG_RAX,0,ip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,TRUE,ip);
ICMov(tmpi,a1->type&MDG_MASK+tmpi->a1_type_pointed_to,a1->reg,
a1->disp,MDF_REG+RT_I64,REG_RAX,0,ip);
if (tmpi->arg1_type_pointed_to!=RT_F64) {
ICPop(tmpi,MDF_REG+RT_I64,REG_RAX,0,rip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,TRUE,rip);
ICMov(tmpi,arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,arg1->reg,
arg1->disp,MDF_REG+RT_I64,REG_RAX,0,rip);
} else
ICPop(tmpi,a1->type&MDG_MASK+tmpi->a1_type_pointed_to,
a1->reg,a1->disp,ip);
ICPop(tmpi,arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
}
if (tmpi->r.type.mode)
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
a1->type&MDG_MASK+tmpi->a1_type_pointed_to,a1->reg,a1->disp,ip);
if (tmpi->res.type.mode)
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
arg1->type&MDG_MASK+tmpi->arg1_type_pointed_to,
arg1->reg,arg1->disp,rip);
} else {
if (tmpi->a1_type_pointed_to>=RT_I64)
if (tmpi->arg1_type_pointed_to>=RT_I64)
p1_mem=TRUE;
else
p1_mem=FALSE;
if (dont_push_float) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
if (tmpi->a1_type_pointed_to!=RT_F64) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,arg1->type,arg1->reg,arg1->disp,rip);
if (tmpi->arg1_type_pointed_to!=RT_F64) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
MDF_DISP+tmpi->a1_type_pointed_to,REG_RCX,0,ip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,ip);
ICPush(tmpi,MDF_REG+RT_I64,REG_RAX,0,ip);
MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,rip);
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,rip);
ICPush(tmpi,MDF_REG+RT_I64,REG_RAX,0,rip);
} else
ICPush(tmpi,MDF_DISP+tmpi->a1_type_pointed_to,REG_RCX,0,ip);
ICPush(tmpi,MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,rip);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else {
if (tmpi->a1_type_pointed_to!=RT_F64 || a1->type&MDF_STK) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,a2->type,a2->reg,a2->disp,ip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
if (tmpi->arg1_type_pointed_to!=RT_F64 || arg1->type&MDF_STK) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,arg2->type,
arg2->reg,arg2->disp,rip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,arg1->type,
arg1->reg,arg1->disp,rip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,
MDF_DISP+tmpi->a1_type_pointed_to,REG_RCX,0,ip);
if (tmpi->a1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RDX,MDF_REG+RT_I64,REG_RDX,0,FALSE,ip);
MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,rip);
if (tmpi->arg1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RDX,MDF_REG+RT_I64,REG_RDX,0,FALSE,rip);
ICU16(tmpi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
} else {
if (a2->type.raw_type>=RT_I64 && a2->type&MDG_DISP_SIB_RIP) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) {
t2=arg2->type;
r2=arg2->reg;
d2=arg2->disp;
} else {
if (a2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64)))) {
if (arg2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64)))) {
t2=MDF_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=COCFloatConstFind(cc,a2->disp(F64))+buf2;
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a2->type,a2->reg,a2->disp,ip);
ICPush(tmpi,arg2->type,arg2->reg,arg2->disp,rip);
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
}
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,a1->type,a1->reg,a1->disp,ip);
ICPush(tmpi,MDF_DISP+tmpi->a1_type_pointed_to,REG_RCX,0,ip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,arg1->type,
arg1->reg,arg1->disp,rip);
ICPush(tmpi,MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,rip);
t1=MDF_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 && tmpi->a1_type_pointed_to==RT_F64)) {
if (!rsp_size && !(p1_mem && tmpi->arg1_type_pointed_to==RT_F64)) {
rsp_size=8;
ICAddRSP(tmpi,-8);
}
@@ -182,61 +189,61 @@ U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 ip)
if (builtin2)
ICU16(tmpi,builtin2);
else
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,ip);
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,rip);
}
switch (op.u8[0]) {
case 4: op=SLASH_OP_FSUBR; break;
case 6: op=SLASH_OP_FDIVR; break;
}
ICSlashOp(tmpi,t1,r1,d1,op,ip);
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_MAIN);
if (p1_mem && tmpi->a1_type_pointed_to==RT_F64) {
ICSlashOp(tmpi,MDF_DISP+tmpi->a1_type_pointed_to,
REG_RCX,0,SLASH_OP_FSTP,ip);
ICSlashOp(tmpi,t1,r1,d1,op,rip);
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_INST);
if (p1_mem && tmpi->arg1_type_pointed_to==RT_F64) {
ICSlashOp(tmpi,MDF_DISP+tmpi->arg1_type_pointed_to,
REG_RCX,0,SLASH_OP_FSTP,rip);
if (rsp_size)
ICAddRSP(tmpi,rsp_size);
} else {
if (rsp_size==8)
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,ip);
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,rip);
else if (rsp_size>8) {
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,rsp_size-8,
SLASH_OP_FSTP,ip);
SLASH_OP_FSTP,rip);
ICAddRSP(tmpi,rsp_size-8);
}
ICPop(tmpi,MDF_REG+RT_I64,REG_RAX,0,ip);
if (tmpi->a1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,TRUE,ip);
ICMov(tmpi,MDF_DISP+tmpi->a1_type_pointed_to,REG_RCX,0,
MDF_REG+RT_I64,REG_RAX,0,ip);
ICPop(tmpi,MDF_REG+RT_I64,REG_RAX,0,rip);
if (tmpi->arg1_type_pointed_to!=RT_F64)
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,TRUE,rip);
ICMov(tmpi,MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,
MDF_REG+RT_I64,REG_RAX,0,rip);
}
if (tmpi->r.type.mode)
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
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 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
I64 us,I64 not_us,U8 *buf,I64 ip2)
U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 rip,
I64 us,I64 not_us,U8 *buf,I64 rip2)
{
CICArg *a1,*a2;
CICArg *arg1,*arg2;
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;
CCodeMisc *lb;
U8 *buf2;
if (tmpi->ic_flags&ICF_ALT_TEMPLATE) {
a1=&tmpi->a2;
a2=&tmpi->a1;
arg1=&tmpi->arg2;
arg2=&tmpi->arg1;
alt=TRUE;
} else {
a1=&tmpi->a1;
a2=&tmpi->a2;
arg1=&tmpi->arg1;
arg2=&tmpi->arg2;
alt=FALSE;
}
if (cc->flags&CCF_AOT_COMPILE)
buf2=cc->aotc->ip;
buf2=cc->aotc->rip;
else
buf2=buf;
@@ -246,20 +253,20 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
} else {
if (a2->type.raw_type>=RT_I64 && a2->type&MDG_DISP_SIB_RIP) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) {
t2=arg2->type;
r2=arg2->reg;
d2=arg2->disp;
} else {
if (a2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
if (arg2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64))) ||
tmpi->ic_flags&ICF_PUSH_CMP) {
t2=MDF_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=COCFloatConstFind(cc,a2->disp(F64))+buf2;
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a2->type,a2->reg,a2->disp,ip2);
ICPush(tmpi,arg2->type,arg2->reg,arg2->disp,rip2);
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
@@ -267,43 +274,43 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
}
} else {
if (alt) {
if (!(a2->type&MDF_STK)) {
if (!(arg2->type&MDF_STK)) {
if (tmpi->ic_flags&ICF_POP_CMP) {
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
} else {
if (a1->type.raw_type>=RT_I64 && a1->type&MDG_DISP_SIB_RIP) {
t1=a1->type;
r1=a1->reg;
d1=a1->disp;
if (arg1->type.raw_type>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) {
t1=arg1->type;
r1=arg1->reg;
d1=arg1->disp;
} else {
if (a1->type&MDF_IMM) {
if (!(builtin1=ICBuiltInFloatConst(a1->disp(F64)))) {
if (arg1->type&MDF_IMM) {
if (!(builtin1=ICBuiltInFloatConst(arg1->disp(F64)))) {
t1=MDF_RIP_DISP32+RT_I64;
r1=REG_RIP;
d1=COCFloatConstFind(cc,a1->disp(F64))+buf2;
d1=COCFloatConstFind(cc,arg1->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a1->type,a1->reg,a1->disp,ip2);
ICPush(tmpi,arg1->type,arg1->reg,arg1->disp,rip2);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
}
}
}
if (a2->type.raw_type>=RT_I64 && a2->type&MDG_DISP_SIB_RIP) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) {
t2=arg2->type;
r2=arg2->reg;
d2=arg2->disp;
} else {
if (a2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
if (arg2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64))) ||
tmpi->ic_flags&ICF_PUSH_CMP) {
t2=MDF_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=COCFloatConstFind(cc,a2->disp(F64))+buf2;
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a2->type,a2->reg,a2->disp,ip2);
ICPush(tmpi,arg2->type,arg2->reg,arg2->disp,rip2);
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
if (r1==REG_RSP+REG_RSP<<8)
@@ -314,29 +321,31 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
if (tmpi->ic_flags&ICF_POP_CMP)
ICPopRegs(tmpi,1<<REG_RDX);
else
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,a1->type,a1->reg,a1->disp,ip2);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,a2->type,a2->reg,a2->disp,ip2);
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,arg1->type,
arg1->reg,arg1->disp,rip2);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,arg2->type,
arg2->reg,arg2->disp,rip2);
ICU16(tmpi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
}
} else {
if (!(a1->type&MDF_STK)) {
if (a2->type.raw_type>=RT_I64 && a2->type&MDG_DISP_SIB_RIP) {
t2=a2->type;
r2=a2->reg;
d2=a2->disp;
if (!(arg1->type&MDF_STK)) {
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) {
t2=arg2->type;
r2=arg2->reg;
d2=arg2->disp;
} else {
if (a2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(a2->disp(F64))) ||
if (arg2->type&MDF_IMM) {
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64))) ||
tmpi->ic_flags&ICF_PUSH_CMP) {
t2=MDF_RIP_DISP32+RT_I64;
r2=REG_RIP;
d2=COCFloatConstFind(cc,a2->disp(F64))+buf2;
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a2->type,a2->reg,a2->disp,ip2);
ICPush(tmpi,arg2->type,arg2->reg,arg2->disp,rip2);
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
rsp_size+=8;
}
@@ -347,19 +356,19 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
if (r2==REG_RSP+REG_RSP<<8)
d1+=8;
} else {
if (a1->type.raw_type>=RT_I64 && a1->type&MDG_DISP_SIB_RIP) {
t1=a1->type;
r1=a1->reg;
d1=a1->disp;
if (arg1->type.raw_type>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) {
t1=arg1->type;
r1=arg1->reg;
d1=arg1->disp;
} else {
if (a1->type&MDF_IMM) {
if (!(builtin1=ICBuiltInFloatConst(a1->disp(F64)))) {
if (arg1->type&MDF_IMM) {
if (!(builtin1=ICBuiltInFloatConst(arg1->disp(F64)))) {
t1=MDF_RIP_DISP32+RT_I64;
r1=REG_RIP;
d1=COCFloatConstFind(cc,a1->disp(F64))+buf2;
d1=COCFloatConstFind(cc,arg1->disp(F64))+buf2;
}
} else {
ICPush(tmpi,a1->type,a1->reg,a1->disp,ip2);
ICPush(tmpi,arg1->type,arg1->reg,arg1->disp,rip2);
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0;
rsp_size+=8;
if (r2==REG_RSP+REG_RSP<<8)
@@ -368,11 +377,13 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
}
}
} else {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,a2->type,a2->reg,a2->disp,ip2);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,arg2->type,
arg2->reg,arg2->disp,rip2);
if (tmpi->ic_flags&ICF_POP_CMP)
ICPopRegs(tmpi,1<<REG_RDX);
else
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,a1->type,a1->reg,a1->disp,ip2);
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,arg1->type,
arg1->reg,arg1->disp,rip2);
ICU16(tmpi,0x5052); //PUSH EDX PUSH EAX
rsp_size=16;
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=8;
@@ -384,14 +395,14 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
if (builtin1)
ICU16(tmpi,builtin1);
else
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FLD,ip2);
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FLD,rip2);
}
if (!alt)
us=not_us;
if (builtin2)
ICU16(tmpi,builtin2);
else
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,ip2);
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FLD,rip2);
if (tmpi->ic_flags&ICF_PUSH_CMP) {
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0;
if (!rsp_size) {
@@ -402,17 +413,17 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
if (alt) {
ICU16(tmpi,0xF1DF); //FCOMIP
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FSTP,ip2);
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FSTP,rip2);
} else {
ICU16(tmpi,0xF1DB); //FCOMI
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FSTP,ip2);
ICSlashOp(tmpi,t2,r2,d2,SLASH_OP_FSTP,rip2);
ICU32(tmpi,0xF7D9C0DD); //FFREE,FINCSTP
}
} else {
ICU16(tmpi,0xF1DF); //FCOMIP
ICU32(tmpi,0xF7D9C0DD); //FFREE,FINCSTP
}
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_MAIN);
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,CN_INST);
if (tmpi->ic_flags&ICF_PUSH_CMP) {
if (r2.u8[0]==REG_RSP) {
@@ -426,7 +437,7 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
ICU8(tmpi,0x5B); //POP RBX (Dont change flags)
rsp_size-=8;
}
ICPush(tmpi,t2,r2,d2,ip2);
ICPush(tmpi,t2,r2,d2,rip2);
}
} else {
while (rsp_size) {
@@ -435,11 +446,11 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
}
}
ip+=tmpi->ic_cnt;
rip+=tmpi->ic_cnt;
lb=OptLabelFwd(tmpi->ic_data);
short_jmp=ToBool(tmpi->ic_flags&ICF_SHORT_JMP);
if (!buf && lb->addr!=INVALID_PTR) {
i=lb->addr-(ip+2);
i=lb->addr-(rip+2);
if (lb->flags&CMF_POP_CMP) {
if(tmpi->ic_flags&ICF_PUSH_CMP)
i+=4;
@@ -452,7 +463,7 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
if (short_jmp) {
tmpi->ic_flags|=ICF_SHORT_JMP;
i=lb->addr-(ip+2);
i=lb->addr-(rip+2);
if (lb->flags&CMF_POP_CMP) {
if(tmpi->ic_flags&ICF_PUSH_CMP)
i+=4;
@@ -462,7 +473,7 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
ICU16(tmpi,i<<8+us.u8[2]);
} else {
tmpi->ic_flags&=~ICF_SHORT_JMP;
i=lb->addr-(ip+6);
i=lb->addr-(rip+6);
if (lb->flags&CMF_POP_CMP) {
if(tmpi->ic_flags&ICF_PUSH_CMP)
i+=4;
@@ -474,147 +485,147 @@ U0 ICFCmpAndBranch(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 ip,
}
}
U0 ICFMul(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 ip)
U0 ICFMul(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 rip)
{
if (tmpi->a1.type&MDF_IMM && tmpi->a1.type&RTG_MASK==RT_F64 &&
tmpi->a1.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a2.type,tmpi->a2.reg,tmpi->a2.disp,ip);
} else if (tmpi->a2.type&MDF_IMM &&
tmpi->a2.type&RTG_MASK==RT_F64&& tmpi->a2.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
if (tmpi->arg1.type&MDF_IMM && tmpi->arg1.type&RTG_MASK==RT_F64 &&
tmpi->arg1.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip);
} else if (tmpi->arg2.type&MDF_IMM &&
tmpi->arg2.type&RTG_MASK==RT_F64&& tmpi->arg2.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
} else
ICFOp(cc,tmpi,SLASH_OP_FMUL,buf,ip);
ICFOp(cc,tmpi,SLASH_OP_FMUL,buf,rip);
}
U0 ICFDiv(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 ip)
U0 ICFDiv(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 rip)
{
if (tmpi->a2.type&MDF_IMM && tmpi->a2.type&RTG_MASK==RT_F64 &&
tmpi->a2.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
if (tmpi->arg2.type&MDF_IMM && tmpi->arg2.type&RTG_MASK==RT_F64 &&
tmpi->arg2.disp(F64)==1.0) {
CmpNoteFloatOp(cc,tmpi,FALSE,FALSE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
} else
ICFOp(cc,tmpi,SLASH_OP_FDIV,buf,ip);
ICFOp(cc,tmpi,SLASH_OP_FDIV,buf,rip);
}
U0 ICFAdd(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 ip)
U0 ICFAdd(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 rip)
{
Bool dont_push_float,dont_pop_float;
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float);
if (tmpi->a1.type&MDF_IMM && !tmpi->a1.disp) {
if (tmpi->arg1.type&MDF_IMM && !tmpi->arg1.disp) {
if (dont_push_float) {
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
} else if (dont_pop_float) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a2.type,tmpi->a2.reg,tmpi->a2.disp,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_INST);
} else {
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a2.type,tmpi->a2.reg,tmpi->a2.disp,ip);
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip);
}
} else if (tmpi->a2.type&MDF_IMM && !tmpi->a2.disp) {
} else if (tmpi->arg2.type&MDF_IMM && !tmpi->arg2.disp) {
if (dont_push_float) {
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
} else if (dont_pop_float) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_INST);
} else {
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_INST);
}
} else
ICFOp(cc,tmpi,SLASH_OP_FADD,buf,ip);
ICFOp(cc,tmpi,SLASH_OP_FADD,buf,rip);
}
U0 ICFSub(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 ip)
U0 ICFSub(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 rip)
{
Bool dont_push_float,dont_pop_float;
if (tmpi->a2.type&MDF_IMM && !tmpi->a2.disp) {
if (tmpi->arg2.type&MDF_IMM && !tmpi->arg2.disp) {
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float);
if (dont_push_float) {
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FSTP,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
} else if (dont_pop_float) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_MAIN);
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_FLD,FALSE,TRUE,TRUE,CN_INST);
} else {
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_INST);
}
} else
ICFOp(cc,tmpi,SLASH_OP_FSUB,buf,ip);
ICFOp(cc,tmpi,SLASH_OP_FSUB,buf,rip);
}
U0 ICFPreIncDec(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 ip)
U0 ICFPreIncDec(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 rip)
{
if (tmpi->ic_flags & ICF_BY_VAL) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a1.type&MDG_MASK+RT_I64,tmpi->a1.reg,tmpi->a1.disp,ip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
tmpi->arg1.type&MDG_MASK+RT_I64,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
} else {
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,MDF_DISP+RT_I64,REG_RCX,0,ip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,MDF_DISP+RT_I64,REG_RCX,0,MDF_REG+RT_I64,REG_RAX,0,ip);
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,MDF_DISP+RT_I64,REG_RCX,0,rip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,MDF_DISP+RT_I64,REG_RCX,0,MDF_REG+RT_I64,REG_RAX,0,rip);
}
if (tmpi->r.type.mode)
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
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 ICFPostIncDec(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 ip)
U0 ICFPostIncDec(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 rip)
{
if (tmpi->ic_flags & ICF_BY_VAL) {
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a1.type&MDG_MASK+RT_I64,tmpi->a1.reg,tmpi->a1.disp,ip);
if (tmpi->r.type.mode)
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
tmpi->arg1.type&MDG_MASK+RT_I64,tmpi->arg1.reg,tmpi->arg1.disp,rip);
if (tmpi->res.type.mode)
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,MDF_REG+RT_I64,REG_RAX,0,rip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
} else {
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,MDF_DISP+RT_I64,REG_RCX,0,ip);
if (tmpi->r.type.mode)
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_MAIN);
ICMov(tmpi,MDF_DISP+RT_I64,REG_RCX,0,MDF_REG+RT_I64,REG_RAX,0,ip);
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,MDF_DISP+RT_I64,REG_RCX,0,rip);
if (tmpi->res.type.mode)
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,MDF_REG+RT_I64,REG_RAX,0,rip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_INST);
ICMov(tmpi,MDF_DISP+RT_I64,REG_RCX,0,MDF_REG+RT_I64,REG_RAX,0,rip);
}
if (tmpi->r.type.mode)
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RDX,0,ip);
if (tmpi->res.type.mode)
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
MDF_REG+RT_I64,REG_RDX,0,rip);
}
U0 ICFTemplateFun(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 ip)
U0 ICFTemplateFun(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,I64 rip)
{
Bool dont_push_float,dont_pop_float;
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float);
if (!dont_push_float)
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,
tmpi->a1.type,tmpi->a1.reg,tmpi->a1.disp,ip);
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_MAIN);
if (tmpi->r.type.mode && !(tmpi->ic_flags & ICF_R_TO_F64) &&
!(tmpi->ic_flags & ICF_R_TO_INT))
ICMov(tmpi,tmpi->r.type,tmpi->r.reg,tmpi->r.disp,
MDF_REG+RT_I64,REG_RAX,0,ip);
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,TRUE,CN_INST);
if (tmpi->res.type.mode && !(tmpi->ic_flags & ICF_RES_TO_F64) &&
!(tmpi->ic_flags & ICF_RES_TO_INT))
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,
MDF_REG+RT_I64,REG_RAX,0,rip);
}