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 ");
  }
}