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.
689 lines
18 KiB
689 lines
18 KiB
Bool OptIC4(CIntermediateCode *tmpi) |
|
{ |
|
I64 i; |
|
CIntermediateCode *tmpil1,*tmpil2; |
|
|
|
if (tmpi->ic_code<IC_IMM_I64) return FALSE; |
|
|
|
tmpil1=tmpi; |
|
if (!(tmpil2=OptLag1(tmpil1))) |
|
return FALSE; |
|
|
|
if (tmpil2->res.type&MDF_STK && !(tmpil2->ic_flags&ICF_PUSH_RES)) { |
|
if (tmpil1->ic_code==IC_ADD_CONST && tmpil1->arg1.type&MDF_STK) { |
|
if ((tmpil2->ic_code==IC_REG || tmpil2->ic_code==IC_MOV) && |
|
tmpil2->arg1.type&MDF_REG) { |
|
i=tmpil1->ic_data; |
|
if (I32_MIN<=i<=I32_MAX && |
|
!Bt(&cmp.non_ptr_vars_mask,tmpil2->arg1.reg)) { |
|
tmpil1->ic_flags|=tmpil2->ic_flags&ICG_NO_CVT_MASK; |
|
tmpil1->ic_code=IC_LEA; |
|
tmpil1->arg1.type=MDF_DISP+tmpil1->arg1.type.raw_type; |
|
tmpil1->arg1.reg=tmpil2->arg1.reg; |
|
tmpil1->arg1.disp=i; |
|
OptFree(tmpil2); |
|
return TRUE; |
|
} |
|
} else if (tmpil2->ic_code==IC_SHL_CONST && tmpil2->arg1.type&MDF_REG) { |
|
i=tmpil1->ic_data; |
|
if (I32_MIN<=i<=I32_MAX && tmpil2->arg1.reg!=REG_RSP && |
|
1<=tmpil2->ic_data<=3) { |
|
tmpil1->ic_flags|=tmpil2->ic_flags&ICG_NO_CVT_MASK; |
|
tmpil1->ic_code=IC_LEA; |
|
tmpil1->arg1.type=MDF_SIB+tmpil1->arg1.type.raw_type; |
|
tmpil1->arg1.reg=tmpil2->arg1.reg<<8+REG_NONE; |
|
if (tmpil2->ic_data==1) |
|
tmpil1->arg1.reg|=0x4000; |
|
else if (tmpil2->ic_data==2) |
|
tmpil1->arg1.reg|=0x8000; |
|
else |
|
tmpil1->arg1.reg|=0xC000; |
|
tmpil1->arg1.disp=i; |
|
OptFree(tmpil2); |
|
return TRUE; |
|
} |
|
} |
|
} |
|
if (tmpil2->ic_code==IC_MOV || tmpil2->ic_code==IC_REG) { |
|
if (tmpil1->arg2.type&MDF_STK) { |
|
if (tmpil2->ic_flags & ICF_RES_TO_INT) { |
|
if (tmpil2->arg1.type&MDF_IMM) |
|
tmpil2->arg1.disp=tmpil2->arg1.disp(F64); |
|
else |
|
tmpil1->ic_flags|=ICF_ARG2_TO_INT; |
|
} else if (tmpil2->ic_flags&ICF_RES_TO_F64) { |
|
if (tmpil2->arg1.type&MDF_IMM) |
|
tmpil2->arg1.disp(F64)=tmpil2->arg1.disp; |
|
else |
|
tmpil1->ic_flags|=ICF_ARG2_TO_F64; |
|
} |
|
tmpil1->arg2.type=tmpil2->arg1.type&MDG_MASK+ |
|
MinI64(tmpil1->arg2.type.raw_type, |
|
MinI64(tmpil2->res.type.raw_type,tmpil2->arg1.type.raw_type)); |
|
tmpil1->arg2.reg=tmpil2->arg1.reg; |
|
tmpil1->arg2.disp=tmpil2->arg1.disp; |
|
tmpil1->ic_flags|=tmpil2->ic_flags&ICG_NO_CVT_MASK; |
|
OptSetNOP2(tmpil2); |
|
return TRUE; |
|
} |
|
if (tmpil1->arg1.type&MDF_STK) { |
|
if (tmpil2->ic_flags & ICF_RES_TO_INT) { |
|
if (tmpil2->arg1.type&MDF_IMM) |
|
tmpil2->arg1.disp=tmpil2->arg1.disp(F64); |
|
else |
|
tmpil1->ic_flags|=ICF_ARG1_TO_INT; |
|
} else if (tmpil2->ic_flags&ICF_RES_TO_F64) { |
|
if (tmpil2->arg1.type&MDF_IMM) { |
|
if (tmpil2->arg1.type&RTF_UNSIGNED) |
|
tmpil2->arg1.disp(F64)=tmpil2->arg1.disp(U64); |
|
else |
|
tmpil2->arg1.disp(F64)=tmpil2->arg1.disp(I64); |
|
} else |
|
tmpil1->ic_flags|=ICF_ARG1_TO_F64; |
|
} |
|
tmpil1->arg1.type=tmpil2->arg1.type&MDG_MASK+ |
|
MinI64(tmpil1->arg1.type.raw_type, |
|
MinI64(tmpil2->res.type.raw_type,tmpil2->arg1.type.raw_type)); |
|
CmpMinTypePointed(tmpil1,tmpil2->arg1_type_pointed_to); |
|
tmpil1->arg1.reg=tmpil2->arg1.reg; |
|
tmpil1->arg1.disp=tmpil2->arg1.disp; |
|
tmpil1->ic_flags|=tmpil2->ic_flags&ICG_NO_CVT_MASK; |
|
OptSetNOP2(tmpil2); |
|
return TRUE; |
|
} |
|
} |
|
if (tmpil1->ic_code==IC_DEREF) { |
|
if (tmpil2->ic_code==IC_ADD_CONST && tmpil2->arg1.type&MDF_REG && |
|
tmpil1->arg1.type&MDF_STK) { |
|
i=tmpil2->ic_data; |
|
if (I32_MIN<=i<=I32_MAX && |
|
!Bt(&cmp.non_ptr_vars_mask,tmpil2->arg1.reg)) { |
|
tmpil1->ic_flags|=tmpil2->ic_flags; |
|
tmpil1->ic_code=IC_MOV; |
|
tmpil1->arg1.type=MDF_DISP+tmpil1->arg1_type_pointed_to; |
|
tmpil1->arg1.reg=tmpil2->arg1.reg; |
|
tmpil1->arg1.disp=i; |
|
OptSetNOP2(tmpil2,-1); |
|
return TRUE; |
|
} |
|
} |
|
if (tmpil2->ic_code==IC_LEA && tmpil1->arg1.type&MDF_STK) { |
|
tmpil1->ic_flags|=tmpil2->ic_flags; |
|
tmpil1->ic_code=IC_MOV; |
|
tmpil1->arg1.type=tmpil2->arg1.type&MDG_MASK+ |
|
tmpil1->arg1_type_pointed_to; |
|
tmpil1->arg1.reg=tmpil2->arg1.reg; |
|
tmpil1->arg1.disp=tmpil2->arg1.disp; |
|
OptFree(tmpil2); |
|
return TRUE; |
|
} |
|
} |
|
} |
|
if (tmpil1->ic_code==IC_DEREF) { |
|
if (tmpil1->arg1.type&MDF_REG) { |
|
tmpil1->arg1.type=MDF_DISP+tmpil1->arg1_type_pointed_to; |
|
tmpil1->arg1.disp=0; |
|
tmpil1->ic_code=IC_MOV; |
|
return TRUE; |
|
} |
|
} |
|
return FALSE; |
|
} |
|
|
|
U0 OptPass4(CCmpCtrl *cc,COptReg *reg_offsets,I64 *_type) |
|
{ |
|
CHashClass *tmpc,*tmpc1,*tmpc2; |
|
CIntermediateCode *tmpi,*tmpi1,*tmpi2,*tmpil1,*tmpil2,*tmpil3, |
|
*tmpi_next; |
|
I64 code,i; |
|
Bool dead_code=FALSE; |
|
CCodeMisc *lb; |
|
CPrsStk *ps=cc->ps; |
|
ps->ptr=0; |
|
ps->ptr2=0; |
|
|
|
if (_type) |
|
*_type=RT_I64; |
|
|
|
tmpi=cc->coc.coc_head.next; |
|
while (code=tmpi->ic_code) { |
|
tmpi_next=tmpi->next; |
|
if (dead_code&&code!=IC_LABEL) { |
|
if (code==IC_JMP||code==IC_SUB_CALL) { |
|
lb=OptLabelFwd(tmpi->ic_data); |
|
if (lb->use_cnt>0) |
|
lb->use_cnt--; |
|
} |
|
tmpi=OptFree(tmpi); |
|
} else { |
|
tmpc=tmpi->ic_class; |
|
tmpi1=tmpi2=&cmp.ic_nop; |
|
if (tmpil1=OptLag2(tmpi)) { |
|
if (tmpil2=OptLag2(tmpil1)) { |
|
if (!(tmpil3=OptLag2(tmpil2))) |
|
tmpil3=&cmp.ic_nop; |
|
} else |
|
tmpil2=tmpil3=&cmp.ic_nop; |
|
} else |
|
tmpil1=tmpil2=tmpil3=&cmp.ic_nop; |
|
switch [intermediate_code_table[code].arg_cnt] { |
|
case IS_V_ARG: |
|
ps->ptr-=tmpi->ic_data>>3; |
|
break; |
|
case IS_2_ARG: |
|
tmpi2=PrsPop(ps); |
|
tmpc2=tmpi2->ic_class; |
|
case IS_1_ARG: |
|
tmpi1=PrsPop(ps); |
|
tmpc1=tmpi1->ic_class; |
|
break; |
|
case IS_0_ARG: //nobound switch |
|
break; |
|
} |
|
switch [code] { |
|
case IC_IMM_I64: |
|
case IC_TYPE: |
|
tmpi->arg1.type=MDF_IMM+RT_I64; |
|
tmpi->arg1.disp=tmpi->ic_data; |
|
tmpi->ic_code=IC_MOV; |
|
break; |
|
case IC_IMM_F64: |
|
tmpi->arg1.type=MDF_IMM+RT_I64; |
|
tmpi->arg1.disp=tmpi->ic_data; |
|
tmpi->arg1_type_pointed_to=RT_F64; |
|
tmpi->ic_code=IC_MOV; |
|
break; |
|
case IC_MOV: |
|
if (tmpi->arg1.type&MDF_DISP && tmpi->arg1.reg==REG_RBP) { |
|
i=CmpOffset2Reg(tmpi->arg1.disp,reg_offsets); |
|
if (i>=0) { |
|
tmpi->arg1.type=MDF_REG+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=i; |
|
tmpi->arg1.disp=0; |
|
} |
|
} |
|
break; |
|
case IC_DEREF: |
|
if (tmpi1->ic_code==IC_LEA) { |
|
if (tmpi1->arg1.type&MDF_DISP && tmpi1->arg1.reg==REG_RBP) { |
|
i=CmpOffset2Reg(tmpi1->arg1.disp,reg_offsets); |
|
if (i>=0) { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->ic_code=IC_REG; |
|
tmpi->arg1.type=MDF_REG+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=i; |
|
tmpi->arg1.disp=0; |
|
OptFree(tmpi1); |
|
} |
|
} |
|
} else if ((tmpi1->ic_code==IC_ABS_ADDR || |
|
tmpi1->ic_code==IC_MOV && |
|
tmpi1->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpi1->arg1.disp<=I32_MAX)&& !(tmpi1->ic_flags&ICF_NO_RIP)) { |
|
if (tmpi1->ic_code==IC_ABS_ADDR) |
|
tmpi->arg1.disp=tmpi1->ic_data; |
|
else |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->ic_code=IC_MOV; |
|
tmpi->arg1.type=MDF_RIP_DISP32+tmpi->arg1_type_pointed_to; |
|
tmpi->arg1.reg=REG_RIP; |
|
OptFree(tmpi1); |
|
} |
|
break; |
|
case IC_BR_MM_ZERO: |
|
case IC_BR_MM_NOT_ZERO: |
|
//(branch ++ to zero is unlikely) |
|
case IC_DEREF_PP: |
|
case IC_DEREF_MM: |
|
case IC__PP: |
|
case IC__MM: |
|
case IC_PP_: |
|
case IC_MM_: |
|
if (tmpi1->ic_code==IC_LEA) { |
|
if (tmpi1->arg1.type&MDF_DISP && tmpi1->arg1.reg==REG_RBP) { |
|
i=CmpOffset2Reg(tmpi1->arg1.disp,reg_offsets); |
|
if (i>=0) { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->arg1.type=MDF_REG+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=i; |
|
tmpi->arg1.disp=0; |
|
tmpi->ic_flags|=ICF_BY_VAL; |
|
OptSetNOP2(tmpi1); |
|
} else |
|
goto p4_lea_gone; |
|
} else { |
|
p4_lea_gone: |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->arg1.type=tmpi1->arg1.type; |
|
tmpi->arg1.reg=tmpi1->arg1.reg; |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->ic_flags|=ICF_BY_VAL; |
|
OptSetNOP2(tmpi1); |
|
} |
|
} else if ((tmpi1->ic_code==IC_ABS_ADDR || tmpi1->ic_code==IC_MOV && |
|
tmpi1->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpi1->arg1.disp<=I32_MAX)&& !(tmpi1->ic_flags&ICF_NO_RIP)) { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
if (tmpi1->ic_code==IC_ABS_ADDR) |
|
tmpi->arg1.disp=tmpi1->ic_data; |
|
else |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->arg1.type=MDF_RIP_DISP32+tmpi->arg1_type_pointed_to; |
|
tmpi->arg1.reg=REG_RIP; |
|
tmpi->ic_flags|=ICF_BY_VAL; |
|
OptFree(tmpi1); |
|
} |
|
break; |
|
case IC_ADD: |
|
if (tmpi1->ic_code==IC_MOV && tmpi1->arg1.type==MDF_REG+RT_I64 || |
|
tmpi1->ic_code==IC_REG) { |
|
if (tmpi2->ic_code==IC_MOV && tmpi2->arg1.type==MDF_REG+RT_I64 || |
|
tmpi2->ic_code==IC_REG) { |
|
if (tmpi2->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=0; |
|
tmpi->arg1.reg=tmpi1->arg1.reg+tmpi2->arg1.reg<<8; |
|
goto p4_sib; |
|
} else if (tmpi1->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=0; |
|
tmpi->arg1.reg=tmpi2->arg1.reg+tmpi1->arg1.reg<<8; |
|
p4_sib: |
|
tmpi->ic_flags|=(tmpi1->ic_flags|tmpi2->ic_flags) |
|
&ICG_NO_CVT_MASK; |
|
OptSetNOP2(tmpi1); |
|
OptFree(tmpi2); |
|
|
|
tmpi->ic_code=IC_LEA; |
|
tmpi->arg1.type=MDF_SIB+RT_I64; |
|
tmpi->arg1_type_pointed_to=RT_I64; |
|
|
|
tmpi->arg2.type=MDF_NULL+tmpi->arg2.type.raw_type; |
|
} |
|
} else if (tmpi2->ic_code==IC_SHL_CONST && |
|
tmpi2->arg1.type==MDF_REG+RT_I64 && tmpi2->ic_data<=3) { |
|
if (tmpi2->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=0; |
|
tmpi->arg1.reg=tmpi1->arg1.reg+tmpi2->arg1.reg<<8; |
|
if (tmpi2->ic_data==1) |
|
tmpi->arg1.reg|=0x4000; |
|
else if (tmpi2->ic_data==2) |
|
tmpi->arg1.reg|=0x8000; |
|
else |
|
tmpi->arg1.reg|=0xC000; |
|
goto p4_sib; |
|
} |
|
} |
|
} else if (tmpi1->ic_code==IC_LEA && |
|
tmpi1->arg1.type&MDF_DISP) { |
|
if (tmpi1->arg1.reg==REG_RBP && |
|
CmpOffset2Reg(tmpi1->arg1.disp,reg_offsets)>=0) |
|
break; |
|
if (tmpi2->ic_code==IC_MOV && tmpi2->arg1.type==MDF_REG+RT_I64 || |
|
tmpi2->ic_code==IC_REG) { |
|
if (tmpi2->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->arg1.reg=tmpi1->arg1.reg+tmpi2->arg1.reg<<8; |
|
goto p4_sib; |
|
} else if (tmpi1->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->arg1.reg=tmpi2->arg1.reg+tmpi1->arg1.reg<<8; |
|
goto p4_sib; |
|
} |
|
} else if (tmpi2->ic_code==IC_SHL_CONST && |
|
tmpi2->arg1.type==MDF_REG+RT_I64 && tmpi2->ic_data<=3) { |
|
if (tmpi2->arg1.reg!=REG_RSP) { |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->arg1.reg=tmpi1->arg1.reg+tmpi2->arg1.reg<<8; |
|
if (tmpi2->ic_data==1) |
|
tmpi->arg1.reg|=0x4000; |
|
else if (tmpi2->ic_data==2) |
|
tmpi->arg1.reg|=0x8000; |
|
else |
|
tmpi->arg1.reg|=0xC000; |
|
goto p4_sib; |
|
} |
|
} |
|
} |
|
break; |
|
case IC_ASSIGN_PP: |
|
case IC_ASSIGN_MM: |
|
//this val was stashed during pass012 for pointer arithmetic |
|
tmpi->ic_class2=tmpi->t.class2; //See $LK,"ic_class2",A="FF:::/Compiler/BackB.HC,ic_class2"$ |
|
case IC_ASSIGN: |
|
case IC_SHL_EQU: |
|
case IC_SHR_EQU: |
|
case IC_MUL_EQU: |
|
case IC_DIV_EQU: |
|
case IC_MOD_EQU: |
|
case IC_AND_EQU: |
|
case IC_OR_EQU: |
|
case IC_XOR_EQU: |
|
case IC_ADD_EQU: |
|
case IC_SUB_EQU: |
|
if (tmpi1->ic_code==IC_LEA) { |
|
if (tmpi1->arg1.type&(MDF_DISP|MDF_SIB)) { |
|
tmpi2=tmpi->next; |
|
if (tmpi1->arg1.type&MDF_DISP && tmpi1->arg1.reg==REG_RBP) { |
|
i=CmpOffset2Reg(tmpi1->arg1.disp,reg_offsets); |
|
if (i>=0) { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->arg1.type=MDF_REG+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=i; |
|
tmpi->arg1.disp=0; |
|
OptSetNOP2(tmpi1); |
|
} else { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->arg1.type=MDF_DISP+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=REG_RBP; |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
OptSetNOP2(tmpi1); |
|
} |
|
} else { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
tmpi->arg1.type=tmpi1->arg1.type&MDG_MASK+ |
|
tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=tmpi1->arg1.reg; |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
OptSetNOP2(tmpi1); |
|
} |
|
if (tmpi->res.type&MDF_STK && tmpi2->arg2.type&MDF_STK && |
|
code!=IC_ASSIGN_PP && code!=IC_ASSIGN_MM) { |
|
tmpi->res.type=tmpi->arg1.type; |
|
tmpi->res.reg=tmpi->arg1.reg; |
|
tmpi->res.disp=tmpi->arg1.disp; |
|
tmpi2->arg2.type=tmpi->arg1.type; |
|
tmpi2->arg2.reg=tmpi->arg1.reg; |
|
tmpi2->arg2.disp=tmpi->arg1.disp; |
|
CmpMinTypePointed(tmpi2,tmpi->arg1_type_pointed_to); |
|
} |
|
tmpi->ic_flags|=ICF_BY_VAL; |
|
} |
|
} else if ((tmpi1->ic_code==IC_ABS_ADDR || |
|
tmpi1->ic_code==IC_MOV && tmpi1->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpi1->arg1.disp<=I32_MAX)&& !(tmpi1->ic_flags&ICF_NO_RIP)) { |
|
tmpi->ic_flags|=tmpi1->ic_flags; |
|
if (tmpi1->ic_code==IC_ABS_ADDR) |
|
tmpi->arg1.disp=tmpi1->ic_data; |
|
else |
|
tmpi->arg1.disp=tmpi1->arg1.disp; |
|
tmpi->arg1.type=MDF_RIP_DISP32+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.reg=REG_RIP; |
|
tmpi->ic_flags|=ICF_BY_VAL; |
|
OptSetNOP2(tmpi1); |
|
} |
|
break; |
|
case IC_RETURN_VAL: |
|
case IC_RETURN_VAL2: |
|
if (!tmpi->ic_class) { |
|
if (_type) { |
|
tmpil1=tmpi; |
|
while (tmpil1=OptLag1(tmpil1)) |
|
if (tmpil1->ic_class) { |
|
if (tmpil1->ic_flags & ICF_RES_TO_F64) |
|
*_type=RT_F64; |
|
else if (tmpil1->ic_flags & ICF_RES_TO_INT) |
|
*_type=RT_I64; |
|
else |
|
*_type=tmpil1->ic_class->raw_type; |
|
break; |
|
} |
|
} |
|
tmpi->ic_class=cmp.internal_types[RT_I64]; |
|
} else if (_type) |
|
*_type=tmpi->ic_class->raw_type; |
|
break; |
|
case IC_NOP1: |
|
tmpi=OptFree(tmpi); |
|
break; |
|
case IC_BR_BT: |
|
case IC_BR_BTS: |
|
case IC_BR_BTR: |
|
case IC_BR_BTC: |
|
case IC_BR_NOT_BT: |
|
case IC_BR_NOT_BTS: |
|
case IC_BR_NOT_BTR: |
|
case IC_BR_NOT_BTC: |
|
case IC_BT: |
|
case IC_BTS: |
|
case IC_BTR: |
|
case IC_BTC: |
|
case IC_LBTS: |
|
case IC_LBTR: |
|
case IC_LBTC: |
|
if (!(tmpi->ic_flags&ICF_BY_VAL)) { |
|
if (tmpi2->ic_code==IC_ADDR) { |
|
if (tmpi2->arg1.type&MDF_STK && |
|
tmpi2->res.type&MDF_STK) { |
|
if (tmpil2=OptLag1(tmpi2)) { |
|
if (tmpil2->ic_code==IC_LEA) { |
|
if (tmpil2->arg1.type&(MDF_IMM|MDG_REG_DISP_SIB_RIP)) { |
|
if (tmpi2) { |
|
tmpi->ic_flags|=tmpi2->ic_flags; |
|
OptFree(tmpi2); |
|
} |
|
tmpi->ic_flags|=tmpil2->ic_flags|ICF_BY_VAL; |
|
tmpi->arg2.type=tmpil2->arg1.type; |
|
tmpi->arg2.reg =tmpil2->arg1.reg; |
|
tmpi->arg2.disp=tmpil2->arg1.disp; |
|
OptFree(tmpil2); |
|
} |
|
break; |
|
} else if (tmpil2->ic_code!=IC_ABS_ADDR && |
|
!(tmpil2->ic_code==IC_MOV && |
|
tmpil2->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpil2->arg1.disp<=I32_MAX) || |
|
tmpil2->ic_flags&ICF_NO_RIP) |
|
tmpil2=NULL; |
|
else { |
|
if (tmpil2->ic_code==IC_ABS_ADDR) |
|
tmpi->arg2.disp=tmpil2->ic_data; |
|
else |
|
tmpi->arg2.disp=tmpil2->arg1.disp; |
|
} |
|
} |
|
} else { |
|
if (tmpi2->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpi2->arg1.disp<=I32_MAX && |
|
!(tmpi2->ic_flags&ICF_NO_RIP)) { |
|
tmpil2=tmpi2; |
|
tmpi2=NULL; |
|
tmpi->arg2.disp=tmpil2->arg1.disp; |
|
} else |
|
tmpil2=NULL; |
|
} |
|
if (tmpil2) { |
|
if (tmpi2) { |
|
tmpi->ic_flags|=tmpi2->ic_flags; |
|
OptFree(tmpi2); |
|
} |
|
tmpi->ic_flags|=tmpil2->ic_flags|ICF_BY_VAL; |
|
tmpi->arg2.type=MDF_RIP_DISP32+tmpi->arg2.type.raw_type; |
|
tmpi->arg2.reg=REG_RIP; |
|
OptFree(tmpil2); |
|
} |
|
} else if (tmpi2->ic_code==IC_MOV && tmpi2->res.type&MDF_STK && |
|
tmpi2->arg1.type==MDF_IMM+RT_I64 && |
|
0<=tmpi2->arg1.disp<=I32_MAX && |
|
!(tmpi2->ic_flags&ICF_NO_RIP)) { |
|
tmpi->arg2.disp=tmpi2->arg1.disp; |
|
tmpi->ic_flags|=tmpi2->ic_flags|ICF_BY_VAL; |
|
tmpi->arg2.type=MDF_RIP_DISP32+tmpi->arg2.type.raw_type; |
|
tmpi->arg2.reg=REG_RIP; |
|
OptFree(tmpi2); |
|
} |
|
} |
|
break; |
|
case IC_BR_EQU_EQU ...IC_BR_LESS_EQU: |
|
case IC_BR_EQU_EQU2...IC_BR_LESS_EQU2: |
|
case IC_BR_CARRY: |
|
case IC_BR_NOT_CARRY: |
|
case IC_BR_ZERO: |
|
case IC_BR_NOT_ZERO: |
|
lb=tmpi->ic_data; |
|
if (tmpi->ic_flags&ICF_PUSH_CMP) { |
|
lb->flags|=CMF_POP_CMP; |
|
lb->fwd=NULL; |
|
} |
|
break; |
|
case IC_LABEL: |
|
lb=tmpi->ic_data; |
|
if (lb->use_cnt) |
|
dead_code=FALSE; |
|
break; |
|
case IC_JMP: |
|
case IC_RET: |
|
dead_code=TRUE; |
|
break; |
|
case IC_NOP2: |
|
ps->ptr+=tmpi->ic_data; |
|
break; |
|
case IC_CALL_END: |
|
case IC_END_EXP: |
|
if (!(tmpil1->ic_flags&ICF_PUSH_RES)) { |
|
if (tmpi->ic_flags&ICF_RES_NOT_USED) { |
|
tmpil1->ic_flags|=ICF_RES_NOT_USED; |
|
tmpil1->res.type=MDF_NULL+tmpil1->res.type.raw_type; |
|
} else if (tmpi->arg1.type&MDF_STK && |
|
tmpil1->res.type&MDF_STK) { |
|
tmpi->arg1.type=MDF_REG+tmpi->arg1.type.raw_type; |
|
tmpi->arg1.disp=0; |
|
tmpil1->res.type=MDF_REG+tmpil1->res.type.raw_type; |
|
tmpil1->res.disp=0; |
|
if (intermediate_code_table[tmpi->ic_code].arg_cnt==IS_2_ARG) { |
|
tmpi->arg1.reg=REG_R8; |
|
tmpil1->res.reg=REG_R8; |
|
} else { |
|
tmpi->arg1.reg=REG_RAX; |
|
tmpil1->res.reg=REG_RAX; |
|
} |
|
} |
|
} |
|
break; |
|
case IC_STR_CONST: |
|
case IC_FS: |
|
case IC_GS: |
|
case IC_MOV_FS: |
|
case IC_MOV_GS: |
|
case IC_RIP: |
|
case IC_RBP: |
|
case IC_REG: |
|
case IC_COM: |
|
case IC_HOLYC_TYPECAST: |
|
case IC_NOT: |
|
case IC_UNARY_MINUS: |
|
case IC_PUSH_CMP: |
|
case IC_ADD_CONST: |
|
case IC_SUB_CONST: |
|
case IC_ENTER: |
|
case IC_ADD_RSP: |
|
case IC_ADD_RSP1: |
|
case IC_CALL: |
|
case IC_CALL_INDIRECT: |
|
case IC_CALL_INDIRECT2: |
|
case IC_CALL_EXTERN: |
|
case IC_CALL_IMPORT: |
|
case IC_PUSH: |
|
case IC_POP: |
|
case IC_INVLPG: |
|
case IC_CLFLUSH: |
|
case IC_GET_RFLAGS: |
|
case IC_CARRY: |
|
case IC_RDTSC: |
|
case IC_SET_RFLAGS: |
|
case IC_GET_RBP: |
|
case IC_SET_RBP: |
|
case IC_GET_RSP: |
|
case IC_GET_RAX: |
|
case IC_SET_RSP: |
|
case IC_SET_RAX: |
|
case IC_SHL_CONST: |
|
case IC_LEA: |
|
case IC_SHR_CONST: |
|
case IC_POWER: |
|
case IC_SHL: |
|
case IC_SHR: |
|
case IC_MUL: |
|
case IC_DIV: |
|
case IC_MOD: |
|
case IC_AND: |
|
case IC_OR: |
|
case IC_XOR: |
|
case IC_SUB: |
|
case IC_EQU_EQU...IC_LESS_EQU: |
|
case IC_AND_AND: |
|
case IC_OR_OR: |
|
case IC_XOR_XOR: |
|
case IC_GET_LABEL: |
|
case IC_ABS_ADDR: |
|
case IC_HEAP_GLBL: |
|
case IC_ADDR_IMPORT: |
|
case IC_BSF: |
|
case IC_BSR: |
|
case IC_SIGN_I64: |
|
case IC_TOUPPER: |
|
case IC_TO_I64: |
|
case IC_TO_F64: |
|
case IC_TO_BOOL: |
|
case IC_SQR: |
|
case IC_ABS: |
|
case IC_SQRT: |
|
case IC_SIN: |
|
case IC_COS: |
|
case IC_TAN: |
|
case IC_ATAN: |
|
case IC_ABS_I64: |
|
case IC_MIN_I64: |
|
case IC_MAX_I64: |
|
case IC_MIN_U64: |
|
case IC_MAX_U64: |
|
case IC_MOD_U64: |
|
case IC_SQR_I64: |
|
case IC_SQR_U64: |
|
case IC_SWAP_U8: |
|
case IC_SWAP_U16: |
|
case IC_SWAP_U32: |
|
case IC_SWAP_I64: |
|
case IC_QUE_INIT: |
|
case IC_QUE_INS: |
|
case IC_QUE_INS_REV: |
|
case IC_QUE_REM: |
|
case IC_IN_U32: |
|
case IC_IN_U16: |
|
case IC_IN_U8: |
|
case IC_STRLEN: |
|
case IC_OUT_U32: |
|
case IC_OUT_U16: |
|
case IC_OUT_U8: |
|
case IC_NOBOUND_SWITCH: |
|
case IC_SWITCH: |
|
case IC_END: |
|
case IC_ADDR: |
|
case IC_CALL_START: |
|
case IC_LEAVE: |
|
case IC_PUSH_REGS: |
|
case IC_POP_REGS: |
|
case IC_ASM: |
|
case IC_BR_AND_NOT_ZERO: |
|
case IC_BR_AND_ZERO: |
|
case IC_SUB_CALL: |
|
case IC_CALL_END2: |
|
break; |
|
default: |
|
"Pass:%d Missing IC hndlr\n",cc->pass; |
|
ICPut(cc,tmpi); |
|
LexExcept(cc,"Compiler Optimization Error at "); |
|
} |
|
if (tmpi) { |
|
while (OptIC4(tmpi)); |
|
code=tmpi->ic_code; |
|
if (intermediate_code_table[code].res_cnt) |
|
PrsPush(ps,tmpi); |
|
} |
|
} |
|
tmpi=tmpi_next; |
|
} |
|
if (ps->ptr>2) { |
|
"Pass:%d Stk:%08X\n",cc->pass,ps->ptr; |
|
LexExcept(cc,"Compiler Optimization Error at "); |
|
} |
|
}
|
|
|