Initial (manual) import

2017-01-22 20:26:44 +01:00
1 parent f39611c506
commit 895fe109de
@@ -0,0 +1,90 @@
+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 ");
+  }
+}