A TempleOS distro for heretics
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.
 
 
 
 

90 lines
2.6 KiB

U0 OptPass5(CCmpCtrl *cc)
{
CIntermediateCode *tmpi,*tmpi1;
I64 code,i;
CPrsStk *ps=cc->ps;
ps->ptr=0;
ps->ptr2=0;
tmpi=cc->coc.coc_head.next;
while (code=tmpi->ic_code) {
if (code>IC_NOP2) {
if (tmpi->ic_flags&ICF_PASS_TRACE) {
if (Bt(&cc->saved_pass_trace,5)) {
"%2d:",ps->ptr;
ICPut(cc,tmpi);
}
}
if (intermediate_code_table[code].arg_cnt==IS_V_ARG)
ps->ptr-=tmpi->ic_data>>3;
if (code==IC_PUSH_REGS) {
for (i=0;i<REG_REGS_NUM;i++)
if (Bt(&tmpi->ic_data,i))
ps->ptr++;
} else if (code==IC_POP_REGS) {
for (i=0;i<REG_REGS_NUM;i++)
if (Bt(&tmpi->ic_data,i))
ps->ptr--;
}
if (tmpi->arg2.type&MDF_STK) {
tmpi1=PrsPop(ps);
if (tmpi1->ic_code==IC_MOV || tmpi1->ic_code==IC_REG) {
if (tmpi1->ic_flags & ICF_RES_TO_INT) {
if (tmpi1->arg1.type&MDF_IMM)
tmpi1->arg1.disp=tmpi1->arg1.disp(F64);
else
tmpi->ic_flags|=ICF_ARG2_TO_INT;
} else if (tmpi1->ic_flags&ICF_RES_TO_F64) {
if (tmpi1->arg1.type&MDF_IMM)
tmpi1->arg1.disp(F64)=tmpi1->arg1.disp;
else
tmpi->ic_flags|=ICF_ARG2_TO_F64;
}
tmpi->arg2.type=tmpi1->arg1.type&MDG_MASK+
MinI64(tmpi->arg2.type.raw_type,
MinI64(tmpi1->res.type.raw_type,tmpi1->arg1.type.raw_type));
tmpi->arg2.reg=tmpi1->arg1.reg;
tmpi->arg2.disp=tmpi1->arg1.disp;
tmpi->ic_flags|=tmpi1->ic_flags&ICG_NO_CVT_MASK;
OptSetNOP2(tmpi1);
}
}
if (tmpi->arg1.type&MDF_STK) {
tmpi1=PrsPop(ps);
if (tmpi1->ic_code==IC_MOV || tmpi1->ic_code==IC_REG) {
if (tmpi1->ic_flags & ICF_RES_TO_INT) {
if (tmpi1->arg1.type&MDF_IMM)
tmpi1->arg1.disp=tmpi1->arg1.disp(F64);
else
tmpi->ic_flags|=ICF_ARG1_TO_INT;
} else if (tmpi1->ic_flags&ICF_RES_TO_F64) {
if (tmpi1->arg1.type&MDF_IMM) {
if (tmpi1->arg1.type&RTF_UNSIGNED)
tmpi1->arg1.disp(F64)=tmpi1->arg1.disp(U64);
else
tmpi1->arg1.disp(F64)=tmpi1->arg1.disp(I64);
} else
tmpi->ic_flags|=ICF_ARG1_TO_F64;
}
tmpi->arg1.type=tmpi1->arg1.type&MDG_MASK+
MinI64(tmpi->arg1.type.raw_type,
MinI64(tmpi1->res.type.raw_type,tmpi1->arg1.type.raw_type));
CmpMinTypePointed(tmpi,tmpi1->arg1_type_pointed_to);
tmpi->arg1.reg=tmpi1->arg1.reg;
tmpi->arg1.disp=tmpi1->arg1.disp;
tmpi->ic_flags|=tmpi1->ic_flags&ICG_NO_CVT_MASK;
OptSetNOP2(tmpi1);
}
}
if (tmpi->res.type&MDF_STK &&
!(tmpi->ic_flags&ICF_RES_NOT_USED))
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 ");
}
}