mirror of https://github.com/minexew/Shrine.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
607 lines
17 KiB
607 lines
17 KiB
#define CN_A2 0 |
|
#define CN_A1 1 |
|
#define CN_INST 2 |
|
#define CN_RES 3 |
|
|
|
U0 CmpNoteFloatOp(CCmpCtrl *cc,CIntermediateCode *tmpi, |
|
Bool dont_pushable,Bool dont_popable,I64 pos) |
|
{ |
|
Bool link=FALSE; |
|
if (cc->pass==7 && cc->last_float_op_ic && |
|
cc->last_dont_popable && dont_pushable) { |
|
switch [pos] { |
|
case CN_A2: |
|
if (cc->last_float_op_ic!=tmpi && cc->dont_push_float) |
|
link=TRUE; |
|
break; |
|
case CN_A1: |
|
if (cc->last_float_op_ic!=tmpi && cc->dont_push_float) |
|
link=TRUE; |
|
break; |
|
case CN_INST: |
|
if (cc->last_float_op_ic!=tmpi) { |
|
if (cc->dont_push_float) { |
|
if (intermediate_code_table[tmpi->ic_code].arg_cnt==IS_2_ARG && |
|
cc->last_float_op_ic->res.reg!=REG_R8) |
|
tmpi->ic_flags|=ICF_ALT_TEMPLATE; |
|
else |
|
tmpi->ic_flags&=~ICF_ALT_TEMPLATE; |
|
link=TRUE; |
|
} |
|
} else { |
|
if (intermediate_code_table[tmpi->ic_code].arg_cnt==IS_2_ARG && |
|
cc->last_float_op_pos!=CN_A1) |
|
tmpi->ic_flags|=ICF_ALT_TEMPLATE; |
|
else |
|
tmpi->ic_flags&=~ICF_ALT_TEMPLATE; |
|
link=TRUE; |
|
} |
|
break; |
|
case CN_RES: |
|
if (cc->last_float_op_ic==tmpi && cc->last_float_op_pos==CN_INST) |
|
link=TRUE; |
|
break; |
|
} |
|
if (link) { |
|
if (!Bts(&cc->last_float_op_ic->ic_flags, |
|
ICf_DONT_POP_FLOAT0+cc->last_ic_float_op_num)) |
|
cc->last_float_op_ic->ic_flags&=~ICF_CODE_FINAL; |
|
if (!Bts(&tmpi->ic_flags,ICf_DONT_PUSH_FLOAT0+cc->cur_ic_float_op_num)) |
|
tmpi->ic_flags&=~ICF_CODE_FINAL; |
|
} |
|
} |
|
cc->last_float_op_ic=tmpi; |
|
cc->last_dont_pushable=dont_pushable; |
|
cc->last_dont_popable=dont_popable; |
|
cc->last_ic_float_op_num=cc->cur_ic_float_op_num++; |
|
cc->last_float_op_pos=pos; |
|
if (cc->cur_ic_float_op_num>4) |
|
throw('Compiler'); |
|
} |
|
|
|
U0 CmpSetFloatOpPushPop(CCmpCtrl *cc,CIntermediateCode *tmpi, |
|
Bool *dont_push_float,Bool *dont_pop_float) |
|
{ |
|
if (cc->pass==7) { |
|
*dont_push_float=FALSE; |
|
*dont_pop_float =FALSE; |
|
tmpi->ic_flags&=~ICF_CODE_FINAL; |
|
} else { |
|
*dont_push_float=Bt(&tmpi->ic_flags, |
|
ICf_DONT_PUSH_FLOAT0+cc->cur_ic_float_op_num); |
|
*dont_pop_float=Bt(&tmpi->ic_flags, |
|
ICf_DONT_POP_FLOAT0+cc->cur_ic_float_op_num); |
|
} |
|
} |
|
|
|
U0 ICCopyTemplate(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op, |
|
Bool off_the_record,Bool dont_pushable,Bool dont_popable,I64 pos) |
|
{ |
|
Bool dont_push_float,dont_pop_float,alt; |
|
U8 *ptr; |
|
I64 i=0; |
|
if (!off_the_record) { |
|
if (tmpi->ic_flags&ICF_ALT_TEMPLATE) |
|
alt=TRUE; |
|
else |
|
alt=FALSE; |
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
} else { |
|
dont_push_float=FALSE; |
|
dont_pop_float=FALSE; |
|
alt=FALSE; |
|
} |
|
if (alt && dont_push_float && !dont_pop_float) { |
|
ptr=cmp_templates_dont_push2[op]; |
|
i=cmp_templates_dont_push2[op+1]-ptr; |
|
} |
|
if (!i) { |
|
if (dont_push_float) { |
|
if (dont_pop_float) { |
|
ptr=cmp_templates_dont_push_pop[op]; |
|
i=cmp_templates_dont_push_pop[op+1]-ptr; |
|
} else { |
|
ptr=cmp_templates_dont_push[op]; |
|
i=cmp_templates_dont_push[op+1]-ptr; |
|
} |
|
} else { |
|
if (dont_pop_float) { |
|
ptr=cmp_templates_dont_pop[op]; |
|
i=cmp_templates_dont_pop[op+1]-ptr; |
|
} else { |
|
ptr=cmp_templates[op]; |
|
i=cmp_templates[op+1]-ptr; |
|
} |
|
} |
|
} |
|
MemCpy(&tmpi->ic_body[tmpi->ic_cnt],ptr,i); |
|
if (!off_the_record) |
|
CmpNoteFloatOp(cc,tmpi,dont_pushable,dont_popable,pos); |
|
tmpi->ic_cnt+=i; |
|
} |
|
|
|
U0 ICFCvt(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 r1, |
|
CICType t2,I64 r2,I64 d2,Bool to_int,I64 pos,I64 rip) |
|
{ |
|
I64 rsp_size=0,op1,op2; |
|
Bool dont_push_float,dont_pop_float; |
|
|
|
if (to_int) { |
|
op1=SLASH_OP_FLD; |
|
op2=SLASH_OP_FISTTP; |
|
} else { |
|
op1=SLASH_OP_FILD; |
|
op2=SLASH_OP_FSTP; |
|
} |
|
|
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
if (!dont_push_float) { |
|
if (!(t2.raw_type>=RT_I64 && t2&MDG_DISP_SIB_RIP)) { |
|
ICPush(tmpi,t2,r2,d2,rip); |
|
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0; |
|
rsp_size=8; |
|
} else { |
|
if (!dont_pop_float) { |
|
rsp_size=8; |
|
ICAddRSP(tmpi,-8); |
|
} |
|
} |
|
ICSlashOp(tmpi,t2,r2,d2,op1,rip); |
|
} else { |
|
if (!dont_pop_float) { |
|
rsp_size=8; |
|
ICAddRSP(tmpi,-8); |
|
} |
|
} |
|
if (to_int) |
|
CmpNoteFloatOp(cc,tmpi,TRUE,FALSE,pos); |
|
else |
|
CmpNoteFloatOp(cc,tmpi,FALSE,TRUE,pos); |
|
if (dont_pop_float) { |
|
if (rsp_size) |
|
ICAddRSP(tmpi,rsp_size); |
|
} else { |
|
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,op2,rip); |
|
ICPop(tmpi,MDF_REG+RT_I64,r1,0,rip); |
|
} |
|
} |
|
|
|
U0 ICFCvt2(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 r1, |
|
CICType t2,I64 r2,I64 d2,Bool to_int,I64 rip) |
|
{ |
|
I64 rsp_size=0,op1,op2; |
|
if (to_int) { |
|
op1=SLASH_OP_FLD; |
|
op2=SLASH_OP_FISTTP; |
|
} else { |
|
op1=SLASH_OP_FILD; |
|
op2=SLASH_OP_FSTP; |
|
} |
|
if (!(t2.raw_type>=RT_I64 && t2&MDG_DISP_SIB_RIP)) { |
|
ICPush(tmpi,t2,r2,d2,rip); |
|
t2=MDF_SIB+RT_I64; r2=REG_RSP+REG_RSP<<8; d2=0; |
|
rsp_size=8; |
|
} else { |
|
rsp_size=8; |
|
ICAddRSP(tmpi,-8); |
|
} |
|
ICSlashOp(tmpi,t2,r2,d2,op1,rip); |
|
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,op2,rip); |
|
ICPop(tmpi,MDF_REG+RT_I64,r1,0,rip); |
|
cc->last_dont_pushable=cc->last_dont_popable=FALSE; //TODO: improve this |
|
} |
|
|
|
U0 ICFUnaryMinus(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf2,I64 rip) |
|
{ |
|
CICArg *arg1=&tmpi->arg1; |
|
I64 rsp_size=0,builtin1=0,t1,r1,d1; |
|
Bool dont_push_float,dont_pop_float; |
|
|
|
if (cc->flags&CCF_AOT_COMPILE) |
|
buf2=cc->aotc->rip; |
|
|
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
if (!dont_push_float) { |
|
if (arg1->type.raw_type>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) { |
|
t1=arg1->type; |
|
r1=arg1->reg; |
|
d1=arg1->disp; |
|
} else { |
|
if (arg1->type&MDF_IMM) { |
|
if (!(builtin1=ICBuiltInFloatConst(arg1->disp(F64)))) { |
|
t1=MDF_RIP_DISP32+RT_I64; |
|
r1=REG_RIP; |
|
d1=COCFloatConstFind(cc,arg1->disp(F64))+buf2; |
|
} |
|
} else { |
|
ICPush(tmpi,arg1->type,arg1->reg,arg1->disp,rip); |
|
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0; |
|
rsp_size+=8; |
|
} |
|
} |
|
if (builtin1) |
|
ICU16(tmpi,builtin1); |
|
else |
|
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FLD,rip); |
|
} |
|
if (!dont_pop_float && !rsp_size) { |
|
rsp_size=8; |
|
ICAddRSP(tmpi,-8); |
|
} |
|
ICU16(tmpi,0xE0D9); //FCHS |
|
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_INST); |
|
if (dont_pop_float) { |
|
if (rsp_size) |
|
ICAddRSP(tmpi,rsp_size); |
|
} else { |
|
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,0,SLASH_OP_FSTP,rip); |
|
ICPop(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,rip); |
|
} |
|
} |
|
|
|
U0 ICFMod(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 rip) |
|
{//for MOD |
|
Bool dont_push_float,dont_pop_float; |
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
if (dont_push_float) { |
|
if (tmpi->ic_flags&ICF_ALT_TEMPLATE) |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
else |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
} else { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0, |
|
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
} |
|
//TODO: unpushable,unpop? Not sure |
|
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_MOD,FALSE,FALSE,FALSE,CN_INST); |
|
if (!dont_pop_float) |
|
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp, |
|
MDF_REG+RT_I64,REG_RAX,0,rip); |
|
} |
|
|
|
U0 ICFPow(CCmpCtrl *cc,CIntermediateCode *tmpi,U8 *buf,I64 rip) |
|
{//for POW |
|
I64 i; |
|
CAOTImportExport *tmpie; |
|
CHashExport *tmpex=HashFind("SYS_POW", |
|
cc->htc.hash_table_lst,HTT_EXPORT_SYS_SYM); |
|
|
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0, |
|
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
if (cc->flags&CCF_AOT_COMPILE) { |
|
if (!tmpex) { |
|
tmpex=CAlloc(sizeof(CHashExport)); |
|
tmpex->str=StrNew("SYS_POW"); |
|
tmpex->type=HTT_EXPORT_SYS_SYM|HTF_UNRESOLVED|HTF_IMPORT; |
|
HashAdd(tmpex,cc->htc.glbl_hash_table); |
|
} |
|
if (tmpex->type&HTF_IMPORT) { |
|
if (GetOption(OPTf_USE_IMM64)) { |
|
ICU16(tmpi,0xBB48); |
|
ICU64(tmpi,0); |
|
if (buf) { |
|
tmpie=CAlloc(sizeof(CAOTImportExport)); |
|
tmpie->type=IET_IMM_I64; |
|
tmpie->rip=rip+tmpi->ic_cnt-8; |
|
tmpie->next=tmpex->ie_lst; |
|
tmpex->ie_lst=tmpie; |
|
} |
|
ICU16(tmpi,0xD3FF); |
|
} else { |
|
ICU8(tmpi,0xE8); |
|
ICU32(tmpi,-(rip+tmpi->ic_cnt+4)); |
|
if (buf) { |
|
tmpie=CAlloc(sizeof(CAOTImportExport)); |
|
tmpie->type=IET_REL_I32; |
|
tmpie->rip=rip+tmpi->ic_cnt-4; |
|
tmpie->next=tmpex->ie_lst; |
|
tmpex->ie_lst=tmpie; |
|
} |
|
} |
|
} else {//Kernel |
|
if (tmpex->type&HTF_UNRESOLVED) |
|
throw('Compiler'); |
|
else { |
|
i=tmpex->val-(rip+tmpi->ic_cnt+5); |
|
if (!(I32_MIN<=i<=I32_MAX)) { |
|
throw('Compiler'); |
|
// ICU16(tmpi,0xBB48); |
|
// ICU64(tmpi,tmpex->val); |
|
// ICU16(tmpi,0xD3FF); |
|
} else { |
|
ICU8(tmpi,0xE8); |
|
ICU32(tmpi,i); |
|
} |
|
} |
|
} |
|
} else { |
|
i=tmpex->val-(rip+tmpi->ic_cnt+5); |
|
if (!(I32_MIN<=i<=I32_MAX)) { |
|
ICU16(tmpi,0xBB48); |
|
ICU64(tmpi,tmpex->val); |
|
ICU16(tmpi,0xD3FF); |
|
} else { |
|
ICU8(tmpi,0xE8); |
|
ICU32(tmpi,i); |
|
} |
|
} |
|
tmpi->ic_flags&=~ICF_CODE_FINAL; |
|
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp, |
|
MDF_REG+RT_I64,REG_RAX,0,rip); |
|
} |
|
|
|
U0 ICFOp(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 op,U8 *buf2,I64 rip) |
|
{//for ADD,SUB,DIV,MUL |
|
CICArg *arg1,*arg2; |
|
Bool dont_push_float,dont_pop_float,alt; |
|
I64 rsp_size=0,builtin1=0,builtin2=0,t1,r1,d1,t2,r2,d2; |
|
|
|
if (tmpi->ic_flags&ICF_ALT_TEMPLATE) { |
|
arg1=&tmpi->arg2; |
|
arg2=&tmpi->arg1; |
|
alt=TRUE; |
|
} else { |
|
arg1=&tmpi->arg1; |
|
arg2=&tmpi->arg2; |
|
alt=FALSE; |
|
} |
|
|
|
if (cc->flags&CCF_AOT_COMPILE) |
|
buf2=cc->aotc->rip; |
|
|
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
if (dont_push_float) { |
|
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) { |
|
t2=arg2->type; |
|
r2=arg2->reg; |
|
d2=arg2->disp; |
|
} else { |
|
if (arg2->type&MDF_IMM) { |
|
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64)))) { |
|
t2=MDF_RIP_DISP32+RT_I64; |
|
r2=REG_RIP; |
|
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2; |
|
} |
|
} else { |
|
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; |
|
} |
|
} |
|
} else { |
|
if (alt) { |
|
if (!(arg2->type&MDF_STK)) { |
|
if (arg1->type.raw_type>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) { |
|
t1=arg1->type; |
|
r1=arg1->reg; |
|
d1=arg1->disp; |
|
} else { |
|
if (arg1->type&MDF_IMM) { |
|
if (!(builtin1=ICBuiltInFloatConst(arg1->disp(F64)))) { |
|
t1=MDF_RIP_DISP32+RT_I64; |
|
r1=REG_RIP; |
|
d1=COCFloatConstFind(cc,arg1->disp(F64))+buf2; |
|
} |
|
} else { |
|
ICPush(tmpi,arg1->type,arg1->reg,arg1->disp,rip); |
|
t1=MDF_SIB+RT_I64; r1=REG_RSP+REG_RSP<<8; d1=0; |
|
rsp_size+=8; |
|
} |
|
} |
|
if (arg2->type.raw_type>=RT_I64 && arg2->type&MDG_DISP_SIB_RIP) { |
|
t2=arg2->type; |
|
r2=arg2->reg; |
|
d2=arg2->disp; |
|
} else { |
|
if (arg2->type&MDF_IMM) { |
|
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64)))) { |
|
t2=MDF_RIP_DISP32+RT_I64; |
|
r2=REG_RIP; |
|
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2; |
|
} |
|
} else { |
|
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 (r1==REG_RSP+REG_RSP<<8) |
|
d1+=8; |
|
} |
|
} |
|
} else { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0,arg1->type, |
|
arg1->reg,arg1->disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0,arg2->type, |
|
arg2->reg,arg2->disp,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 (!(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 (arg2->type&MDF_IMM) { |
|
if (!(builtin2=ICBuiltInFloatConst(arg2->disp(F64)))) { |
|
t2=MDF_RIP_DISP32+RT_I64; |
|
r2=REG_RIP; |
|
d2=COCFloatConstFind(cc,arg2->disp(F64))+buf2; |
|
} |
|
} else { |
|
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 (arg1->type.raw_type>=RT_I64 && arg1->type&MDG_DISP_SIB_RIP) { |
|
t1=arg1->type; |
|
r1=arg1->reg; |
|
d1=arg1->disp; |
|
} else { |
|
if (arg1->type&MDF_IMM) { |
|
if (!(builtin1=ICBuiltInFloatConst(arg1->disp(F64)))) { |
|
t1=MDF_RIP_DISP32+RT_I64; |
|
r1=REG_RIP; |
|
d1=COCFloatConstFind(cc,arg1->disp(F64))+buf2; |
|
} |
|
} else { |
|
ICPush(tmpi,arg1->type,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) |
|
d2+=8; |
|
} |
|
} |
|
} else { |
|
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,arg1->type, |
|
arg1->reg,arg1->disp,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; |
|
} |
|
} |
|
} |
|
if (!dont_pop_float && !rsp_size) { |
|
rsp_size=8; |
|
ICAddRSP(tmpi,-8); |
|
} |
|
if (!dont_push_float) { |
|
if (builtin2 && !builtin1) { |
|
alt=!alt; |
|
SwapI64(&t1,&t2); |
|
SwapI64(&r1,&r2); |
|
SwapI64(&d1,&d2); |
|
SwapI64(&builtin1,&builtin2); |
|
} |
|
if (builtin1) |
|
ICU16(tmpi,builtin1); |
|
else |
|
ICSlashOp(tmpi,t1,r1,d1,SLASH_OP_FLD,rip); |
|
} |
|
if (alt) |
|
switch (op.u8[0]) { |
|
case 4: op=SLASH_OP_FSUBR; break; |
|
case 6: op=SLASH_OP_FDIVR; break; |
|
} |
|
if (builtin2) { |
|
ICU16(tmpi,builtin2); |
|
ICU16(tmpi,op.u16[2]); |
|
} else |
|
ICSlashOp(tmpi,t2,r2,d2,op,rip); |
|
CmpNoteFloatOp(cc,tmpi,TRUE,TRUE,CN_INST); |
|
if (dont_pop_float) { |
|
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,rip); |
|
else if (rsp_size>8) { |
|
ICSlashOp(tmpi,MDF_SIB+RT_I64,REG_RSP+REG_RSP<<8,rsp_size-8, |
|
SLASH_OP_FSTP,rip); |
|
ICAddRSP(tmpi,rsp_size-8); |
|
} |
|
ICPop(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp,rip); |
|
} |
|
} |
|
|
|
U0 ICFCmp(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) { |
|
if (tmpi->ic_flags&ICF_ALT_TEMPLATE) { |
|
if (tmpi->ic_flags&ICF_POP_CMP) |
|
ICPopRegs(tmpi,1<<REG_RAX); |
|
else |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
} else |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
} else { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
if (tmpi->ic_flags&ICF_POP_CMP) |
|
ICPopRegs(tmpi,1<<REG_RDX); |
|
else |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0, |
|
tmpi->arg1.type,tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
} |
|
if (tmpi->ic_flags&ICF_PUSH_CMP) |
|
ICPushRegs(tmpi,1<<REG_RAX); |
|
ICCopyTemplate(cc,tmpi,op,FALSE,TRUE,FALSE,CN_INST); |
|
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp, |
|
MDF_REG+RT_I64,REG_RAX,0,rip); |
|
} |
|
|
|
U0 ICFModEqu(CCmpCtrl *cc,CIntermediateCode *tmpi,I64 rip) |
|
{ |
|
Bool dont_push_float,dont_pop_float; |
|
CmpSetFloatOpPushPop(cc,tmpi,&dont_push_float,&dont_pop_float); |
|
if (tmpi->ic_flags & ICF_BY_VAL) { |
|
if (dont_push_float) { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg1.type&MDG_MASK+tmpi->arg1_type_pointed_to, |
|
tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
if (tmpi->arg1_type_pointed_to!=RT_F64) |
|
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,rip); |
|
} else { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0, |
|
tmpi->arg1.type&MDG_MASK+tmpi->arg1_type_pointed_to, |
|
tmpi->arg1.reg,tmpi->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); |
|
} |
|
//TODO: unpushable,unpop? Not sure |
|
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_MOD,FALSE,FALSE,FALSE,CN_INST); |
|
if (tmpi->arg1_type_pointed_to!=RT_F64) |
|
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,TRUE,rip); |
|
ICMov(tmpi,tmpi->arg1.type&MDG_MASK+tmpi->arg1_type_pointed_to, |
|
tmpi->arg1.reg,tmpi->arg1.disp,MDF_REG+RT_I64,REG_RAX,0,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 (dont_push_float) { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,tmpi->arg1.type, |
|
tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
MDF_DISP+tmpi->arg1_type_pointed_to,REG_RCX,0,rip); |
|
if (tmpi->arg1_type_pointed_to!=RT_F64) |
|
ICFCvt2(cc,tmpi,REG_RAX,MDF_REG+RT_I64,REG_RAX,0,FALSE,rip); |
|
} else { |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RAX,0, |
|
tmpi->arg2.type,tmpi->arg2.reg,tmpi->arg2.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RCX,0,tmpi->arg1.type, |
|
tmpi->arg1.reg,tmpi->arg1.disp,rip); |
|
ICMov(tmpi,MDF_REG+RT_I64,REG_RDX,0, |
|
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); |
|
} |
|
//TODO: unpushable,unpop? Not sure |
|
ICCopyTemplate(cc,tmpi,CMP_TEMPLATE_MOD,FALSE,FALSE,FALSE,CN_INST); |
|
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->res.type.mode) |
|
ICMov(tmpi,tmpi->res.type,tmpi->res.reg,tmpi->res.disp, |
|
MDF_REG+RT_I64,REG_RAX,0,rip); |
|
} |
|
}
|
|
|