#define FBO1_NOT_CONST	0
#define FBO1_INT	1
#define FBO1_F64	2


Bool OptFixupBinaryOp1(CIntermediateCode *tempi,
     CIntermediateCode *tempi1,CIntermediateCode *tempi2,
     Bool *is_unsigned)
{
  CHashClass *tempc=tempi->ic_class,*tempc1,*tempc2;

  if (tempi1->ic_flags&ICF_R_TO_INT)
    tempc1=sys_internal_types[IT_I64];
  else if (tempi1->ic_flags&ICF_R_TO_F64)
    tempc1=sys_internal_types[IT_F64];
  else {
    tempc1=tempi1->ic_class;
    while (tempc1->fwd_class)
      tempc1=tempc1->fwd_class;
  }

  if (tempi2->ic_flags&ICF_R_TO_INT)
    tempc2=sys_internal_types[IT_I64];
  else if (tempi2->ic_flags&ICF_R_TO_F64)
    tempc2=sys_internal_types[IT_F64];
  else {
    tempc2=tempi2->ic_class;
    while (tempc2->fwd_class)
      tempc2=tempc2->fwd_class;
  }

  if (tempc1->sub_type>tempc2->sub_type)
    tempc=tempi->ic_class=tempc1;
  else
    tempc=tempi->ic_class=tempc2;

  if (tempc->sub_type==IT_F64) {
    if (tempi1->ic_opcode==IC_IMM) {
      tempi1->ic_data(F64)=tempi1->ic_data;
      tempi1->ic_class=sys_internal_types[IT_F64];
      tempi1->ic_opcode=IC_F64;
      tempi1->ic_flags&=~ICF_R_TO_F64;
    } else
      if (tempc1->sub_type!=IT_F64)
      tempi1->ic_flags|=ICF_R_TO_F64;
    if (tempi2->ic_opcode==IC_IMM) {
      tempi2->ic_data(F64)=tempi2->ic_data;
      tempi2->ic_class=sys_internal_types[IT_F64];
      tempi2->ic_opcode=IC_F64;
      tempi2->ic_flags&=~ICF_R_TO_F64;
    } else
      if (tempc2->sub_type!=IT_F64)
      tempi2->ic_flags|=ICF_R_TO_F64;
    if (tempi1->ic_opcode==IC_F64 &&
	tempi2->ic_opcode==IC_F64 &&
	!(tempi->ic_flags&(ICF_PUSH_CMP|ICF_POP_CMP))) {
      tempi->ic_flags|=tempi1->ic_flags|tempi2->ic_flags;
      tempi1->ic_opcode=IC_NOP;
      tempi1->ic_flags=0;
      tempi2->ic_opcode=IC_NOP;
      tempi2->ic_flags=0;
      return FBO1_F64;
    } else
      return FBO1_NOT_CONST;
  }
  *is_unsigned=tempc1->sub_type&1 || tempc2->sub_type&1;
  if (tempi1->ic_opcode==IC_IMM &&
      tempi2->ic_opcode==IC_IMM &&
      !(tempi->ic_flags&(ICF_PUSH_CMP|ICF_POP_CMP))) {
    tempi->ic_flags|=tempi1->ic_flags|tempi2->ic_flags;
    tempi1->ic_opcode=IC_NOP;
    tempi1->ic_flags=0;
    tempi2->ic_opcode=IC_NOP;
    tempi2->ic_flags=0;
    return FBO1_INT;
  } else
    return FBO1_NOT_CONST;
}

Bool OptFixupBinaryOp2(CIntermediateCode **tempi1,CIntermediateCode **tempi2)
{
  CIntermediateCode *tempii1=*tempi1,
		   *tempii2=*tempi2;
  if (tempii1->ic_opcode==IC_IMM &&
      !(tempii1->ic_flags & ICF_R_TO_F64))
    return TRUE;
  if (tempii2->ic_opcode==IC_IMM &&
      !(tempii2->ic_flags & ICF_R_TO_F64)) {
    *tempi1=tempii2;
    *tempi2=tempii1;
    return TRUE;
  }
  return FALSE;
}

Bool OptFixupUnaryOp(CIntermediateCode *tempi,
     CIntermediateCode *tempi1,
     Bool *is_unsigned)
{
  CHashClass *tempc,*tempc1;
  tempc1=tempi1->ic_class;
  while (tempc1->fwd_class)
    tempc1=tempc1->fwd_class;
  tempi->ic_class=tempc1;
  tempc=tempi->ic_class;
  if (tempc->sub_type==IT_F64) {
    if (tempi1->ic_opcode==IC_IMM) {
      tempi1->ic_data(F64)=tempi1->ic_data;
      tempi1->ic_class=sys_internal_types[IT_F64];
      tempi1->ic_opcode=IC_F64;
      tempi1->ic_flags&=~ICF_R_TO_F64;
    } else
      if (tempc1->sub_type!=IT_F64)
      tempi1->ic_flags|=ICF_R_TO_F64;
    if (tempi1->ic_opcode==IC_F64) {
      tempi->ic_flags|=tempi1->ic_flags;
      tempi1->ic_opcode=IC_NOP;
      tempi1->ic_flags=0;
      return FBO1_F64;
    } else
      return FBO1_NOT_CONST;
  }
  *is_unsigned=tempc1->sub_type&1;
  if (tempi1->ic_opcode==IC_IMM) {
    tempi->ic_flags|=tempi1->ic_flags;
    tempi1->ic_opcode=IC_NOP;
    tempi1->ic_flags=0;
    return FBO1_INT;
  } else
    return FBO1_NOT_CONST;
}

I64 CmpOffset2Reg(I64 offset,COptReg *register_offsets)
{
  I64 i;
  for (i=0;i<NUM_REGS;i++)
    if (offset==register_offsets[i].offset)
      return i;
  return -1;
}

U0 OptMissing(CLex *lx,CIntermediateCode *tempi)
{
  "Pass:%d Missing IC handler\n",lx->pass;
  CBPutIC(tempi);
  LexExcept(lx,"ST_OPT_INTERNAL_ERROR");
}

CIntermediateCode opt_nop;


CPrsStk *OptStart(CLex *lx,CIntermediateCode **temp_lag=NULL)
{
  I64 i;
  CPrsStk *ps=MAlloc(sizeof(CPrsStk));
  CBInPtrsInit(&lx->cbh);
  ps->ptr=0;
  ps->ptr2=0;
  if (temp_lag)
    for (i=0;i<4;i++)
      temp_lag[i]=&opt_nop;
  return ps;
}

U0 OptEnd(CLex *lx,CPrsStk *ps)
{
  if (ps->ptr>2) {
    "Pass:%d Stk:%08X\n",lx->pass,ps->ptr;
    LexExcept(lx,"ST_OPT_INTERNAL_ERROR");
  }
  Free(ps);
}


CIntermediateCode *OptLag(CIntermediateCode *tempi)
{
  do {
    if (tempi->ic_opcode==IC_START)
      return NULL;
    else
      tempi--;
  } while (tempi->ic_opcode<=IC_END_EXP);
  return tempi;
}

CIntermediateCode *OptLag1(CIntermediateCode *tempi)
{
  do {
    if (tempi->ic_opcode==IC_START)
      return NULL;
    else
      tempi--;
  } while (tempi->ic_opcode==IC_NOP||tempi->ic_opcode==IC_NOP1);
  return tempi;
}

CIntermediateCode *OptLead1(CLex *,CIntermediateCode *tempi)
{
  do {
    tempi++;
    if (tempi->ic_opcode==IC_END)
      return NULL;
  } while (tempi->ic_opcode==IC_NOP||tempi->ic_opcode==IC_NOP1);
  return tempi;
}

extern U0 OptBrNotZero(CLex *lx,CIntermediateCode *tempi);

CIntermediateCode *OptBrZero(CLex *lx,CIntermediateCode *tempi)
{
  CCodeBlkMisc *lb_true,*lb_false;
  CIntermediateCode *tempii=OptLag(tempi),*tempii2;
  switch (tempii->ic_opcode) {
    case IC_NOT:
      tempi->ic_opcode=IC_BR_NOT_ZERO;
      tempi->ic_class=tempii->ic_class;
      tempi->ic_flags|=tempii->ic_flags;
      tempi->t.p1c=tempii->t.p1c;
      tempi->t.p1t=tempii->t.p1t;
      tempii->ic_opcode=IC_NOP;
      tempii->ic_flags=0;
      return OptBrNotZero(lx,tempi);
    case IC_EQUAL_EQUAL:
      tempi->ic_opcode=IC_BR_NOT_EQUAL;
      break;
    case IC_NOT_EQUAL:
      tempi->ic_opcode=IC_BR_EQUAL_EQUAL;
      break;
    case IC_LESS:
      tempi->ic_opcode=IC_BR_GREATER_EQUAL;
      break;
    case IC_GREATER:
      tempi->ic_opcode=IC_BR_LESS_EQUAL;
      break;
    case IC_LESS_EQUAL:
      tempi->ic_opcode=IC_BR_GREATER;
      break;
    case IC_GREATER_EQUAL:
      tempi->ic_opcode=IC_BR_LESS;
      break;
    case IC_OR_OR:
      tempi->ic_opcode=IC_BR_OR_OR_ZERO;
      break;
    case IC_AND_AND:
      tempi->ic_opcode=IC_BR_AND_AND_ZERO;
      break;
    case IC_AND:
      tempi->ic_opcode=IC_BR_AND_ZERO;
      break;
    case IC_MM_:
      if (lx->pass==2 && !(tempii->ic_flags&ICF_R_TO_F64) &&
	  tempii->ic_class->sub_type!=IT_F64)
	tempi->ic_opcode=IC_BR_MM_ZERO;
      break;
    case IC_CALL_END:
      tempii2=OptLag(tempii);
      switch (tempii2->ic_opcode) {
	case IC_BT:
	  tempii2->ic_opcode=IC_BR_NOT_BT;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTS:
	  tempii2->ic_opcode=IC_BR_NOT_BTS;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTR:
	  tempii2->ic_opcode=IC_BR_NOT_BTR;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTC:
	  tempii2->ic_opcode=IC_BR_NOT_BTC;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTS:
	  tempii2->ic_opcode=IC_BR_NOT_LBTS;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTR:
	  tempii2->ic_opcode=IC_BR_NOT_LBTR;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTC:
	  tempii2->ic_opcode=IC_BR_NOT_LBTC;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
      }
      break;
  }
  if (tempi->ic_opcode!=IC_BR_ZERO) {
    tempi->ic_class=tempii->ic_class;
    tempi->ic_flags|=tempii->ic_flags;
    tempi->t.p1c=tempii->t.p1c;
    tempi->t.p2c=tempii->t.p2c;
    tempi->t.p1t=tempii->t.p1t;
    tempi->t.p2t=tempii->t.p2t;
    tempii->ic_opcode=IC_NOP;
    tempii->ic_flags=0;

    if (tempi->ic_flags&ICF_PUSH_CMP &&
	IC_BR_NOT_EQUAL<=tempi->ic_opcode<=IC_BR_LESS &&
	!(tempi->ic_flags&ICF_USE_F64)) {
      tempi->ic_opcode+=IC_BR_NOT_EQUAL2-IC_BR_NOT_EQUAL;
      tempi->ic_flags&=~ICF_PUSH_CMP;
      tempii =tempi+1; //IC_PUSH_CMP instruction
      while (tempii->ic_opcode!=IC_PUSH_CMP)
	tempii++;
      tempii->ic_flags=0;
      tempii->ic_opcode=IC_NOP;
      tempii->t.p1t=tempi;
    }

    lb_true=tempi->ic_data;
    if (tempi->ic_opcode==IC_BR_AND_AND_ZERO) {
      tempi->ic_opcode=IC_NOP;
      tempi->ic_flags=0;
      tempii=tempi->t.p1t+1;
      tempii->ic_data=lb_true;
      tempii->t.p1t=tempi->t.p1t;
      tempii->t.p1c=tempi->t.p1c;
      tempii->ic_opcode=IC_BR_ZERO;
      OptBrZero(lx,tempii);
      tempii=tempi->t.p2t+1;
      tempii->t.p1t=tempi->t.p2t;
      tempii->t.p1c=tempi->t.p2c;
      tempii->ic_data=lb_true;
      tempii->ic_opcode=IC_BR_ZERO;
      tempii=OptBrZero(lx,tempii);
    } else if (tempi->ic_opcode==IC_BR_OR_OR_ZERO) {
      lb_false=CBMiscNew(lx,CBMT_LABEL);
      tempi->ic_opcode=IC_LABEL;
      tempi->ic_flags=0;
      tempi->ic_data=lb_false;
      tempii=tempi->t.p1t+1;
      tempii->t.p1t=tempi->t.p1t;
      tempii->t.p1c=tempi->t.p1c;
      tempii->ic_data=lb_false;
      tempii->ic_opcode=IC_BR_NOT_ZERO;
      OptBrNotZero(lx,tempii);
      tempii=tempi->t.p2t+1;
      tempii->t.p1t=tempi->t.p2t;
      tempii->t.p1c=tempi->t.p2c;
      tempii->ic_data=lb_true;
      tempii->ic_opcode=IC_BR_ZERO;
      tempii=OptBrZero(lx,tempii);
    } else
      tempii=tempi;
    if (tempi->ic_flags&ICF_POP_CMP && tempi->t.p1t->ic_opcode==IC_NOP) {
      tempi->t.p1t=tempi->t.p1t->t.p1t;
      tempi->ic_flags&=~ICF_POP_CMP;
    }
    return tempii;
  }
  return tempi;
}


CIntermediateCode *OptBrNotZero(CLex *lx,CIntermediateCode *tempi)
{
  CCodeBlkMisc *lb_true,*lb_false;
  CIntermediateCode *tempii=OptLag(tempi),*tempii2;
  switch (tempii->ic_opcode) {
    case IC_NOT:
      tempi->ic_opcode=IC_BR_ZERO;
      tempi->ic_class=tempii->ic_class;
      tempi->ic_flags|=tempii->ic_flags;
      tempi->t.p1c=tempii->t.p1c;
      tempi->t.p1t=tempii->t.p1t;
      tempii->ic_opcode=IC_NOP;
      tempii->ic_flags=0;
      return OptBrZero(lx,tempi);
    case IC_EQUAL_EQUAL:
      tempi->ic_opcode=IC_BR_EQUAL_EQUAL;
      break;
    case IC_NOT_EQUAL:
      tempi->ic_opcode=IC_BR_NOT_EQUAL;
      break;
    case IC_LESS:
      tempi->ic_opcode=IC_BR_LESS;
      break;
    case IC_GREATER:
      tempi->ic_opcode=IC_BR_GREATER;
      break;
    case IC_LESS_EQUAL:
      tempi->ic_opcode=IC_BR_LESS_EQUAL;
      break;
    case IC_GREATER_EQUAL:
      tempi->ic_opcode=IC_BR_GREATER_EQUAL;
      break;
    case IC_OR_OR:
      tempi->ic_opcode=IC_BR_OR_OR_NOT_ZERO;
      break;
    case IC_AND_AND:
      tempi->ic_opcode=IC_BR_AND_AND_NOT_ZERO;
      break;
    case IC_AND:
      tempi->ic_opcode=IC_BR_AND_NOT_ZERO;
      break;
    case IC_MM_:
      if (lx->pass==2 && !(tempii->ic_flags&ICF_R_TO_F64) &&
	  tempii->ic_class->sub_type!=IT_F64)
	tempi->ic_opcode=IC_BR_MM_NOT_ZERO;
      break;
    case IC_CALL_END:
      tempii2=OptLag(tempii);
      switch (tempii2->ic_opcode) {
	case IC_BT:
	  tempii2->ic_opcode=IC_BR_BT;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTS:
	  tempii2->ic_opcode=IC_BR_BTS;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTR:
	  tempii2->ic_opcode=IC_BR_BTR;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_BTC:
	  tempii2->ic_opcode=IC_BR_BTC;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTS:
	  tempii2->ic_opcode=IC_BR_LBTS;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTR:
	  tempii2->ic_opcode=IC_BR_LBTR;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
	case IC_LBTC:
	  tempii2->ic_opcode=IC_BR_LBTC;
	  tempii2->ic_flags|=ICF_LOCK;
	  tempii2->ic_data=tempi->ic_data;
	  tempii->ic_opcode=IC_CALL_END2;
	  tempi->ic_opcode=IC_NOP;
	  return tempii;
      }
      break;
  }
  if (tempi->ic_opcode!=IC_BR_NOT_ZERO) {
    tempi->ic_class=tempii->ic_class;
    tempi->ic_flags|=tempii->ic_flags;
    tempi->t.p1c=tempii->t.p1c;
    tempi->t.p2c=tempii->t.p2c;
    tempi->t.p1t=tempii->t.p1t;
    tempi->t.p2t=tempii->t.p2t;
    tempii->ic_opcode=IC_NOP;
    tempii->ic_flags=0;

    if (tempi->ic_flags&ICF_PUSH_CMP &&
	IC_BR_NOT_EQUAL<=tempi->ic_opcode<=IC_BR_LESS &&
	!(tempi->ic_flags&ICF_USE_F64)) {
      tempi->ic_opcode+=IC_BR_NOT_EQUAL2-IC_BR_NOT_EQUAL;
      tempi->ic_flags&=~ICF_PUSH_CMP;
      tempii =tempi+1; //IC_PUSH_CMP instruction
      while (tempii->ic_opcode!=IC_PUSH_CMP)
	tempii++;
      tempii->ic_flags=0;
      tempii->ic_opcode=IC_NOP;
      tempii->t.p1t=tempi;
    }

    lb_true=tempi->ic_data;
    if (tempi->ic_opcode==IC_BR_OR_OR_NOT_ZERO) {
      tempi->ic_opcode=IC_NOP;
      tempi->ic_flags=0;
      tempii=tempi->t.p1t+1;
      tempii->t.p1t=tempi->t.p1t;
      tempii->t.p1c=tempi->t.p1c;
      tempii->ic_data=lb_true;
      tempii->ic_opcode=IC_BR_NOT_ZERO;
      OptBrNotZero(lx,tempii);
      tempii=tempi->t.p2t+1;
      tempii->t.p1t=tempi->t.p2t;
      tempii->t.p1c=tempi->t.p2c;
      tempii->ic_data=lb_true;
      tempii->ic_opcode=IC_BR_NOT_ZERO;
      tempii=OptBrNotZero(lx,tempii);
    } else if (tempi->ic_opcode==IC_BR_AND_AND_NOT_ZERO) {
      lb_false=CBMiscNew(lx,CBMT_LABEL);
      tempi->ic_opcode=IC_LABEL;
      tempi->ic_flags=0;
      tempi->ic_data=lb_false;
      tempii=tempi->t.p1t+1;
      tempii->t.p1t=tempi->t.p1t;
      tempii->t.p1c=tempi->t.p1c;
      tempii->ic_data=lb_false;
      tempii->ic_opcode=IC_BR_ZERO;
      OptBrZero(lx,tempii);
      tempii=tempi->t.p2t+1;
      tempii->t.p1t=tempi->t.p2t;
      tempii->t.p1c=tempi->t.p2c;
      tempii->ic_data=lb_true;
      tempii->ic_opcode=IC_BR_NOT_ZERO;
      tempii=OptBrNotZero(lx,tempii);
    } else
      tempii=tempi;
    if (tempi->ic_flags&ICF_POP_CMP && tempi->t.p1t->ic_opcode==IC_NOP) {
      tempi->t.p1t=tempi->t.p1t->t.p1t;
      tempi->ic_flags&=~ICF_POP_CMP;
    }
    return tempii;
  }
  return tempi;
}

U0 OptFixSizeOf(CIntermediateCode *tempi1,CIntermediateCode *tempi_push,CHashClass *tempcc)
{
  if (tempi1->ic_opcode==IC_MUL &&
      tempi1->t.p2t->ic_opcode==IC_SIZEOF) {
    tempi1->t.p2t->ic_opcode=IC_IMM;
    tempi1->t.p2t->ic_class=tempcc;
    tempi_push->ic_class=tempcc;
    if (tempcc->ptr_cnt) {
      tempcc--;
      if (tempcc->size==1)
	goto here;
      tempi1->t.p2t->ic_data=tempcc->size;
    } else {
here:
      if (tempi_push==tempi1)
	tempi1->t.p2t->ic_data=1;
      else {
	tempi1->ic_opcode=IC_NOP;
	tempi1->ic_flags=0;
	tempi1->t.p2t->ic_opcode=IC_NOP;
	tempi1->t.p2t->ic_flags=0;
      }
    }
  }
}

CIntermediateCode *OptPass012(CLex *lx,CHashFun *fun_class,Bool combined)
{
/*
Simplify CONST arithmetic.
Sets the class throughout Expression trees.
Returns the type of an Expression for use
in int<-->F64 conversions of fun
args.
*/
  I64 code,i;
  Bool is_unsigned;
  CHashClass *tempc,*tempc1,*tempc2,*tempc3;
  CIntermediateCode *tempi,*tempi1,*tempi2,*tempi3,*tempi_push,
      *temp_lag[4],*last_with_class=NULL,*tempii;
  CPrsStk *ps=OptStart(lx,temp_lag);
  CCodeBlkMisc *lb,*lb1,*lb2;
  if (combined)
    tempi=lx->cbh.cb_in_ptr;
  else
    tempi=CBGetIC1(&lx->cbh);
  if (tempi->ic_opcode==IC_START) {
    if (combined)
      tempi++;
    else
      tempi=CBGetIC1(&lx->cbh);
  }
    #assert !IC_END
  while (code=tempi->ic_opcode) {
    OptNext(tempi,temp_lag);
    tempc=tempi->ic_class;
    tempi->ic_class2=tempc;
    tempi_push=tempi;
    MemSet(&tempi->p1,0,sizeof(CICArg)*4);
    nobound_switch (cmp_arg_cnt[code]) {
      case 9:
	ps->ptr-=tempi->ic_data>>2;
	break;
      case 3:
	tempi3=PrsPop(ps);
	tempc3=tempi3->ic_class;
	tempi->t.p3t=tempi3;
	tempi->t.p3c=PrsPop(ps);
      case 2:
	tempi2=PrsPop(ps);
	tempc2=tempi2->ic_class;
	tempi->t.p2t=tempi2;
	tempi->t.p2c=PrsPop(ps);
      case 1:
	tempi1=PrsPop(ps);
	tempc1=tempi1->ic_class;
	tempi->t.p1t=tempi1;
	tempi->t.p1c=PrsPop(ps);
	break;
      case 0: //nobound_switch
	break;
    }
    if (Bt(not_constant_bitmap,code))
      lx->flags|=LF_NOT_CONSTANT;
    nobound_switch (code) {
      case IC_F64:
	tempi->ic_flags&=~ICF_R_TO_F64;
	if (lx->pass==2 && tempi->ic_flags&ICF_R_TO_INT) {
	  tempi->ic_data=ToI64(tempi->ic_data(F64));
	  tempi->ic_flags&=~ICF_R_TO_INT;
	  tempi->ic_opcode=IC_IMM;
	  tempi->ic_class=sys_internal_types[IT_I64];
	}
	break;
      case IC_IMM:
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (lx->pass==2 && tempi->ic_flags&ICF_R_TO_F64) {
	  tempi->ic_data(F64)=ToF64(tempi->ic_data);
	  tempi->ic_flags&=~ICF_R_TO_F64;
	  tempi->ic_opcode=IC_F64;
	  tempi->ic_class=sys_internal_types[IT_F64];
	}
	break;
      case IC_NATIVE_TYPECAST:
	if (tempi1->ic_opcode==IC_IMM || tempi1->ic_opcode==IC_F64) {
	  if (tempi->ic_class->sub_type==IT_F64)
	    tempi1->ic_opcode=IC_F64;
	  else
	    tempi1->ic_opcode=IC_IMM;
	  tempi1->ic_class=tempi->ic_class;
	  tempi1->ic_flags|=tempi->ic_flags;
	  tempi->ic_opcode=IC_NOP;
	  tempi->ic_flags=0;
	  tempi_push=tempi1;
	} else {
	  if (tempi->ic_data) { //was paren
	    if (!tempi_push->ic_class->ptr_cnt) {
	      if (tempi_push->ic_class->sub_type==IT_F64)
		tempi_push->ic_class2=sys_internal_types[IT_F64];
	      else
		tempi_push->ic_class2=sys_internal_types[IT_I64];
	    }
	  } else {
	    tempi1->ic_class=tempi->ic_class;
	    tempi1->ic_flags|=tempi->ic_flags;
	    tempi->ic_opcode=IC_NOP;
	    tempi->ic_flags=0;
	    tempi_push=tempi1;
	  }
	}
	break;
      case IC_FS:
      case IC_GS:
	//CALL,FS/GS,CALL_END,IMM,ADD,DEREF-->MOV_FS/GS
	if (combined) {
	  tempi1=tempi+2; //IMM
	  tempi2=tempi+3; //ADD
	  tempi3=tempi+4; //DEREF
	  if (tempi1->ic_opcode==IC_IMM && tempi2->ic_opcode==IC_ADD &&
	      tempi3->ic_opcode==IC_DEREF && !(tempi3->ic_flags&~ICF_NO_CVT_MASK)) {
	    tempi1->ic_opcode=IC_NOP;
	    tempi2->ic_opcode=IC_NOP;
	    tempi3->ic_opcode=IC_NOP;
	    if (tempi->ic_opcode==IC_FS)
	      tempi->ic_opcode=IC_MOV_FS;
	    else
	      tempi->ic_opcode=IC_MOV_GS;
	    tempi->ic_data=tempi1->ic_data;
	    tempi->ic_flags|=tempi1->ic_flags|tempi2->ic_flags;
	    tempi1->ic_flags=0;
	    tempi2->ic_flags=0;
	    tempi->ic_class =tempi3->ic_class;
	    tempi->ic_class2=tempi3->ic_class2;

	    tempi1=tempi-1; //CALL
	    tempi2=tempi+1; //CALL_END
	    tempi1->ic_opcode=IC_NOP;
	    tempi2->ic_opcode=IC_NOP;
	    tempi->ic_flags|=tempi1->ic_flags|tempi2->ic_flags;
	    tempi1->ic_flags=0;
	    tempi2->ic_flags=0;
	  }
	}
	break;
      case IC_STR_CONST:
      case IC_RBP:
      case IC_MOV_FS:
      case IC_MOV_GS:
      case IC_RIP:
      case IC_SIZEOF:
	break;
      case IC_PUSH_CMP:
	tempi1=temp_lag[1];
	if (tempi1->ic_opcode==IC_AND_AND)
	  tempi1=temp_lag[2];
	tempi->ic_class=tempi1->ic_class;
	tempi->ic_class2=tempi->ic_class;
	tempi->ic_data=0;
	if (tempi->ic_class->sub_type==IT_F64)
	  tempi->ic_flags|=ICF_USE_F64;
	break;
      case IC_COM:
	if (tempc->sub_type==IT_F64) {
	  if (tempi1->ic_opcode==IC_F64) {
	    tempi->ic_data(F64)=~tempi1->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	    tempi->ic_flags|=tempi1->ic_flags;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	  }
	  break;
	}
	if (tempi1->ic_opcode==IC_IMM) {
	  tempi->ic_data=~tempi1->ic_data;
	  tempi->ic_opcode=IC_IMM;
	  tempi->ic_flags|=tempi1->ic_flags;
	  tempi1->ic_opcode=IC_NOP;
	  tempi1->ic_flags=0;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_NOT:
	if (tempc->sub_type==IT_F64) {
	  if (tempi1->ic_opcode==IC_F64) {
	    tempi->ic_data(F64)=!tempi1->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	    tempi->ic_flags|=tempi1->ic_flags;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	  }
	  break;
	}
	if (tempi1->ic_opcode==IC_IMM) {
	  tempi->ic_data=!tempi1->ic_data;
	  tempi->ic_opcode=IC_IMM;
	  tempi->ic_flags|=tempi1->ic_flags;
	  tempi1->ic_opcode=IC_NOP;
	  tempi1->ic_flags=0;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_UNARY_MINUS:
	if (i=OptFixupUnaryOp(tempi,tempi1,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    tempi->ic_data=-tempi1->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=-tempi1->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	}
	if (tempc1->type&HTT_INTERNAL_TYPE && tempc1->sub_type& 1)
	  tempi->ic_class=sys_internal_types[tempc1->sub_type-1];
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_DEREF:
	if (lx->pass==2) {
	  if (!tempc->size)
	    LexPutWarn(lx,"ST_DEREF_U0",fun_class);
	  if (tempi1->ic_class->sub_type!=IT_F64) {
	    if (tempi1->ic_opcode==IC__PP) {
	      tempi->ic_opcode=IC_DEREF_PP;
	      tempi1->ic_opcode=IC_NOP;
	      tempi->ic_flags|=tempi1->ic_flags;
	      tempi1->ic_flags=0;
	    } else if (tempi1->ic_opcode==IC__MM) {
	      tempi->ic_opcode=IC_DEREF_MM;
	      tempi1->ic_opcode=IC_NOP;
	      tempi->ic_flags|=tempi1->ic_flags;
	      tempi1->ic_flags=0;
	    }
	  }
	}
	break;
      case IC__PP:
      case IC__MM:
      case IC_PP_:
      case IC_MM_:
	if (lx->pass==2 && !tempc->size)
	  LexPutWarn(lx,"ST_DEREF_U0",fun_class);
	break;
      case IC_SHL_CONST:
	if (i=OptFixupUnaryOp(tempi,tempi1,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)<<tempi->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)<<tempi->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)<<tempi->ic_data;
	    tempi->ic_opcode=IC_F64;
	  }
	} else if (tempi1->ic_opcode==IC_SHL_CONST) {
	  tempi->ic_flags|=tempi1->ic_flags;
	  tempi1->ic_flags=0;
	  tempi->ic_data+=tempi1->ic_data;
	  tempi1->ic_opcode=IC_NOP;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_SHR_CONST:
	if (i=OptFixupUnaryOp(tempi,tempi1,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)>>tempi->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)>>tempi->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)>>tempi->ic_data;
	    tempi->ic_opcode=IC_F64;
	  }
	} else if (tempi1->ic_opcode==IC_SHR_CONST) {
	  tempi->ic_flags|=tempi1->ic_flags;
	  tempi1->ic_flags=0;
	  tempi->ic_data+=tempi1->ic_data;
	  tempi1->ic_opcode=IC_NOP;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;

      case IC_POWER:
	if (tempc1->sub_type>tempc2->sub_type)
	  tempi->ic_class=tempc1;
	else
	  tempi->ic_class=tempc2;
	tempc=tempi->ic_class;
	if (tempc1->sub_type!=IT_F64)
	  tempi1->ic_flags|=ICF_R_TO_F64;
	if (tempc2->sub_type!=IT_F64)
	  tempi2->ic_flags|=ICF_R_TO_F64;
	if (tempc->sub_type!=IT_F64)
	  tempi->ic_flags|=ICF_R_TO_INT|ICF_USE_F64;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_SHL:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)<<tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)<<tempi2->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64) << tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else if (tempi2->ic_opcode==IC_IMM) {
	  tempi->ic_flags|=tempi2->ic_flags;
	  tempi2->ic_opcode=IC_NOP;
	  tempi2->ic_flags=0;
	  tempi->ic_data=tempi2->ic_data;
	  tempi->ic_opcode=IC_SHL_CONST;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_SHR:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)>>tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)>>tempi2->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64) >> tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else if (tempi2->ic_opcode==IC_IMM) {
	  tempi->ic_flags|=tempi2->ic_flags;
	  tempi2->ic_opcode=IC_NOP;
	  tempi2->ic_flags=0;
	  tempi->ic_data=tempi2->ic_data;
	  tempi->ic_opcode=IC_SHR_CONST;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_MUL:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)*tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)*tempi2->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)*
		tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else {
	  if (tempi1->ic_opcode==IC_IMM && lx->pass==2) {
	    switch (i=tempi1->ic_data) {
	      case 0:
		break;
	      case 1:
		tempi2->ic_flags|=tempi->ic_flags|tempi1->ic_flags;
		tempi1->ic_opcode=IC_NOP;
		tempi1->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi2->ic_class2=tempi->ic_class2;
		tempi_push=tempi2;
		break;
	      default:
		if (Bsf(i)==Bsr(i)) {
		  tempi->ic_flags|=tempi1->ic_flags;
		  tempi->t.p1c=tempi->t.p2c;
		  tempi1->ic_opcode=IC_NOP;
		  tempi1->ic_flags=0;
		  tempi->ic_data=Bsf(i);
		  tempi->ic_opcode=IC_SHL_CONST;
		}
	    }
	  } else if (tempi2->ic_opcode==IC_IMM) {
	    switch (i=tempi2->ic_data) {
	      case 0:
		break;
	      case 1:
		tempi1->ic_flags|=tempi->ic_flags|tempi2->ic_flags;
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
		break;
	      default:
		if (Bsf(i)==Bsr(i)) {
		  tempi->ic_flags|=tempi2->ic_flags;
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_data=Bsf(i);
		  tempi->ic_opcode=IC_SHL_CONST;
		} else if (tempi1->ic_opcode==IC_MUL && lx->pass==2) {
		  if (tempi1->t.p1t->ic_opcode==IC_IMM) {
		    tempi1->ic_flags|=tempi->ic_flags;
		    tempi1->t.p1t->ic_data*=tempi2->ic_data;
		    tempi2->ic_opcode=IC_NOP;
		    tempi2->ic_flags=0;
		    tempi->ic_opcode=IC_NOP;
		    tempi->ic_flags=0;
		    tempi1->ic_class2=tempi->ic_class2;
		    tempi_push=tempi1;
		  } else if (tempi1->t.p2t->ic_opcode==IC_IMM) {
		    tempi1->ic_flags|=tempi->ic_flags;
		    tempi1->t.p2t->ic_data*=tempi2->ic_data;
		    tempi2->ic_opcode=IC_NOP;
		    tempi2->ic_flags=0;
		    tempi->ic_opcode=IC_NOP;
		    tempi->ic_flags=0;
		    tempi1->ic_class2=tempi->ic_class2;
		    tempi_push=tempi1;
		  }
		}
	    }
	  } else if (tempi2->ic_opcode==IC_F64 && lx->pass==2) {
	    if (tempi2->ic_data(F64)==1.0) {
	      tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
	      tempi2->ic_opcode=IC_NOP;
	      tempi2->ic_flags=0;
	      tempi->ic_opcode=IC_NOP;
	      tempi->ic_flags=0;
	      tempi1->ic_class2=tempi->ic_class2;
	      tempi_push=tempi1;
	    } else if (tempi1->ic_opcode==IC_MUL) {
	      if (tempi1->t.p1t->ic_opcode==IC_F64) {
		tempi1->ic_flags|=tempi->ic_flags|tempi2->ic_flags;
		tempi1->t.p1t->ic_data(F64)*=tempi2->ic_data(F64);
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      } else if (tempi1->t.p2t->ic_opcode==IC_F64) {
		tempi1->ic_flags|=tempi->ic_flags|tempi2->ic_flags;
		tempi1->t.p2t->ic_data(F64)*=tempi2->ic_data(F64);
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      }
	    }
	  }
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_DIV:
	if ((tempi2->ic_data || tempi2->ic_opcode!=IC_IMM && tempi2->ic_opcode!=IC_F64) &&
	    (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned))) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)/tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)/tempi2->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)/
		tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else {
	  if (tempi2->ic_opcode==IC_IMM && (i=tempi2->ic_data)) {
	    if (i==1) {
	      tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
	      tempi2->ic_opcode=IC_NOP;
	      tempi2->ic_flags=0;
	      tempi->ic_opcode=IC_NOP;
	      tempi->ic_flags=0;
	      tempi1->ic_class2=tempi->ic_class2;
	      tempi_push=tempi1;
	    } else if (Bsf(i)==Bsr(i)) {
	      tempi->ic_flags|=tempi2->ic_flags;
	      tempi2->ic_opcode=IC_NOP;
	      tempi2->ic_flags=0;
	      tempi->ic_data=Bsf(i);
	      tempi->ic_opcode=IC_SHR_CONST;
	    }
	  }
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_MOD:
	if ((tempi2->ic_data || tempi2->ic_opcode!=IC_IMM && tempi2->ic_opcode!=IC_F64) &&
	    (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned))) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)%tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)%tempi2->ic_data(I64);
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)%
		tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else if (lx->pass==2 && tempi2->ic_opcode==IC_IMM &&
	    (i=tempi2->ic_data) && Bsf(i)==Bsr(i) && tempi_push->ic_class->sub_type!=IT_F64 &&
	    tempi_push->ic_class->sub_type&1) { //do only unsigned
	  tempi2->ic_data=i-1;
	  tempi->ic_opcode=IC_AND;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_AND:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data&tempi2->ic_data;
	  if (i==FBO1_INT)
	    tempi->ic_opcode=IC_IMM;
	  else
	    tempi->ic_opcode=IC_F64;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_OR:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data|tempi2->ic_data;
	  if (i==FBO1_INT)
	    tempi->ic_opcode=IC_IMM;
	  else
	    tempi->ic_opcode=IC_F64;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_XOR:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data^tempi2->ic_data;
	  if (i==FBO1_INT)
	    tempi->ic_opcode=IC_IMM;
	  else
	    tempi->ic_opcode=IC_F64;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_ADD:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    tempi->ic_data=tempi1->ic_data+tempi2->ic_data;
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)+
		tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else {
	  if (tempi1->ic_opcode==IC_ABS_ADDR&&tempi2->ic_opcode==IC_IMM) {
	    tempi->ic_flags|=tempi1->ic_flags|tempi2->ic_flags;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi2->ic_opcode=IC_NOP;
	    tempi2->ic_flags=0;
	    tempi->ic_data=tempi1->ic_data+tempi2->ic_data;
	    tempi->ic_opcode=IC_ABS_ADDR;
	  } else if (lx->pass==2) {
	    if (tempi1->ic_opcode==IC_IMM) {
	      if (!tempi1->ic_data) {
		tempi2->ic_flags|=tempi1->ic_flags|tempi->ic_flags;
		tempi1->ic_opcode=IC_NOP;
		tempi1->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi2->ic_class2=tempi->ic_class2;
		tempi_push=tempi2;
	      } else if (tempi2->ic_opcode==IC_ADD||
		  tempi2->ic_opcode==IC_SUB) {
		if (tempi2->t.p1t->ic_opcode==IC_IMM) {
		  tempi2->ic_flags|=tempi->ic_flags;
		  tempi2->t.p1t->ic_data+=tempi1->ic_data;
		  tempi1->ic_opcode=IC_NOP;
		  tempi1->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi2->ic_class2=tempi->ic_class2;
		  tempi_push=tempi2;
		} else if (tempi2->t.p2t->ic_opcode==IC_IMM) {
		  tempi2->ic_flags|=tempi->ic_flags;
		  if (tempi2->ic_opcode==IC_ADD)
		    tempi2->t.p2t->ic_data+=tempi1->ic_data;
		  else
		    tempi2->t.p2t->ic_data-=tempi1->ic_data;
		  tempi1->ic_opcode=IC_NOP;
		  tempi1->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi2->ic_class2=tempi->ic_class2;
		  tempi_push=tempi2;
		}
	      }
	    } else if (tempi2->ic_opcode==IC_IMM) {
	      if (!tempi2->ic_data) {
		tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      } else if (tempi1->ic_opcode==IC_ADD ||
		  tempi1->ic_opcode==IC_SUB) {
		if (tempi1->t.p1t->ic_opcode==IC_IMM) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  tempi1->t.p1t->ic_data+=tempi2->ic_data;
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		} else if (tempi1->t.p2t->ic_opcode==IC_IMM) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  if (tempi1->ic_opcode==IC_ADD)
		    tempi1->t.p2t->ic_data+=tempi2->ic_data;
		  else
		    tempi1->t.p2t->ic_data-=tempi2->ic_data;
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		}
	      }
	    } else if (tempi1->ic_opcode==IC_F64) {
	      if (!tempi1->ic_data) {
		tempi2->ic_flags|=tempi1->ic_flags|tempi->ic_flags;
		tempi1->ic_opcode=IC_NOP;
		tempi1->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi2->ic_class2=tempi->ic_class2;
		tempi_push=tempi2;
	      } else if (tempi2->ic_opcode==IC_ADD||
		  tempi2->ic_opcode==IC_SUB) {
		if (tempi2->t.p1t->ic_opcode==IC_F64) {
		  tempi2->ic_flags|=tempi->ic_flags;
		  tempi2->t.p1t->ic_data(F64)+=tempi1->ic_data(F64);
		  tempi1->ic_opcode=IC_NOP;
		  tempi1->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi2->ic_class2=tempi->ic_class2;
		  tempi_push=tempi2;
		} else if (tempi2->t.p2t->ic_opcode==IC_F64) {
		  tempi2->ic_flags|=tempi->ic_flags;
		  if (tempi2->ic_opcode==IC_ADD)
		    tempi2->t.p2t->ic_data(F64)+=tempi1->ic_data(F64);
		  else
		    tempi2->t.p2t->ic_data(F64)-=tempi1->ic_data(F64);
		  tempi1->ic_opcode=IC_NOP;
		  tempi1->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi2->ic_class2=tempi->ic_class2;
		  tempi_push=tempi2;
		}
	      }
	    } else if (tempi2->ic_opcode==IC_F64) {
	      if (!tempi2->ic_data) {
		tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      } else if (tempi1->ic_opcode==IC_ADD ||
		  tempi1->ic_opcode==IC_SUB) {
		if (tempi1->t.p1t->ic_opcode==IC_F64) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  tempi1->t.p1t->ic_data(F64)+=tempi2->ic_data(F64);
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		} else if (tempi1->t.p2t->ic_opcode==IC_F64) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  if (tempi1->ic_opcode==IC_ADD)
		    tempi1->t.p2t->ic_data(F64)+=tempi2->ic_data(F64);
		  else
		    tempi1->t.p2t->ic_data(F64)-=tempi2->ic_data(F64);
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		}
	      }
	    }
	  }
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_SUB:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    tempi->ic_data=tempi1->ic_data-tempi2->ic_data;
	    tempi->ic_opcode=IC_IMM;
	  } else {
	    tempi->ic_data(F64)=tempi1->ic_data(F64)-
		tempi2->ic_data(F64);
	    tempi->ic_opcode=IC_F64;
	  }
	} else {
	  if (lx->pass==2) {
	    if (tempi2->ic_opcode==IC_IMM) {
	      if (!tempi2->ic_data) {
		tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      } else
	      if (tempi1->ic_opcode==IC_ADD ||
		  tempi1->ic_opcode==IC_SUB) {
		if (tempi1->t.p1t->ic_opcode==IC_IMM) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  tempi1->t.p1t->ic_data-=tempi2->ic_data;
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		} else if (tempi1->t.p2t->ic_opcode==IC_IMM) {
		  tempi1->ic_flags|=tempi->ic_flags;
		  if (tempi1->ic_opcode==IC_ADD)
		    tempi1->t.p2t->ic_data-=tempi2->ic_data;
		  else
		    tempi1->t.p2t->ic_data+=tempi2->ic_data;
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		}
	      }
	    } else
	    if (tempi2->ic_opcode==IC_F64) {
	      if (!tempi2->ic_data) {
		tempi1->ic_flags|=tempi2->ic_flags|tempi->ic_flags;
		tempi2->ic_opcode=IC_NOP;
		tempi2->ic_flags=0;
		tempi->ic_opcode=IC_NOP;
		tempi->ic_flags=0;
		tempi1->ic_class2=tempi->ic_class2;
		tempi_push=tempi1;
	      } else
	      if (tempi1->ic_opcode==IC_ADD ||
		  tempi1->ic_opcode==IC_SUB) {
		if (tempi1->t.p1t->ic_opcode==IC_F64) {
		  tempi1->ic_flags|=tempi->ic_flags|tempi2->ic_flags;
		  tempi1->t.p1t->ic_data(F64)-=tempi2->ic_data(F64);
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		} else if (tempi1->t.p2t->ic_opcode==IC_F64) {
		  tempi1->ic_flags|=tempi->ic_flags|tempi2->ic_flags;
		  if (tempi1->ic_opcode==IC_ADD)
		    tempi1->t.p2t->ic_data(F64)-=tempi2->ic_data(F64);
		  else
		    tempi1->t.p2t->ic_data(F64)+=tempi2->ic_data(F64);
		  tempi2->ic_opcode=IC_NOP;
		  tempi2->ic_flags=0;
		  tempi->ic_opcode=IC_NOP;
		  tempi->ic_flags=0;
		  tempi1->ic_class2=tempi->ic_class2;
		  tempi_push=tempi1;
		}
	      }
	    }
	  }

	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_EQUAL_EQUAL:
	if (OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data==tempi2->ic_data;
	  tempi->ic_opcode=IC_IMM;
	} else
	if (tempi->ic_class->sub_type==IT_F64)
	  tempi->ic_flags|=ICF_USE_F64;
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_NOT_EQUAL:
	if (OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data!=tempi2->ic_data;
	  tempi->ic_opcode=IC_IMM;
	} else
	if (tempi->ic_class->sub_type==IT_F64)
	  tempi->ic_flags|=ICF_USE_F64;
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_LESS:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)<tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)<tempi2->ic_data(I64);
	  } else {
	    tempi->ic_data=tempi1->ic_data(F64)<
		tempi2->ic_data(F64);
	  }
	  tempi->ic_opcode=IC_IMM;
	} else {
	  if (is_unsigned)
	    tempi->ic_flags|=ICF_USE_UNSIGNED;
	  if (tempi->ic_class->sub_type==IT_F64)
	    tempi->ic_flags|=ICF_USE_F64;
	}
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_GREATER:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)>tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)>tempi2->ic_data(I64);
	  } else {
	    tempi->ic_data=tempi1->ic_data(F64)>
		tempi2->ic_data(F64);
	  }
	  tempi->ic_opcode=IC_IMM;
	} else {
	  if (is_unsigned)
	    tempi->ic_flags|=ICF_USE_UNSIGNED;
	  if (tempi->ic_class->sub_type==IT_F64)
	    tempi->ic_flags|=ICF_USE_F64;
	}
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_LESS_EQUAL:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)<=tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)<=tempi2->ic_data(I64);
	  } else {
	    tempi->ic_data=tempi1->ic_data(F64)<=
		tempi2->ic_data(F64);
	  }
	  tempi->ic_opcode=IC_IMM;
	} else {
	  if (is_unsigned)
	    tempi->ic_flags|=ICF_USE_UNSIGNED;
	  if (tempi->ic_class->sub_type==IT_F64)
	    tempi->ic_flags|=ICF_USE_F64;
	}
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_GREATER_EQUAL:
	if (i=OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  if (i==FBO1_INT) {
	    if (is_unsigned)
	      tempi->ic_data=tempi1->ic_data(U64)>=tempi2->ic_data(U64);
	    else
	      tempi->ic_data=tempi1->ic_data(I64)>=tempi2->ic_data(I64);
	  } else {
	    tempi->ic_data=tempi1->ic_data(F64)>=
		tempi2->ic_data(F64);
	  }
	  tempi->ic_opcode=IC_IMM;
	} else {
	  if (is_unsigned)
	    tempi->ic_flags|=ICF_USE_UNSIGNED;
	  if (tempi->ic_class->sub_type==IT_F64)
	    tempi->ic_flags|=ICF_USE_F64;
	}
	tempi->ic_flags&=~ICF_R_TO_INT;
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	if (tempi_push->ic_flags & ICF_PUSH_CMP)
	  tempi->ic_class=tempi->ic_class2;
	else
	  tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_AND_AND:
	if (OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data&&tempi2->ic_data;
	  tempi->ic_opcode=IC_IMM;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_OR_OR:
	if (OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data||tempi2->ic_data;
	  tempi->ic_opcode=IC_IMM;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_XOR_XOR:
	if (OptFixupBinaryOp1(tempi,tempi1,tempi2,&is_unsigned)) {
	  tempi->ic_data=tempi1->ic_data^^tempi2->ic_data;
	  tempi->ic_opcode=IC_IMM;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else if (is_unsigned)
	    tempi_push->ic_class2=sys_internal_types[IT_U64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	tempi->ic_class=sys_internal_types[IT_I64];
	break;
      case IC_COLON:
	if (tempc2->sub_type>tempc3->sub_type)
	  tempi->ic_class=tempc2;
	else
	  tempi->ic_class=tempc3;
	tempc=tempi->ic_class;
	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	  if (tempc3->sub_type!=IT_F64)
	    tempi3->ic_flags|=ICF_R_TO_F64;
	}
	if (!tempi_push->ic_class->ptr_cnt) {
	  if (tempi_push->ic_class->sub_type==IT_F64)
	    tempi_push->ic_class2=sys_internal_types[IT_F64];
	  else
	    tempi_push->ic_class2=sys_internal_types[IT_I64];
	}
	break;
      case IC_MUL_EQUAL:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempi2->ic_opcode==IC_IMM &&
	    tempc->sub_type!=IT_F64 &&
	    tempc2->sub_type!=IT_F64) {
	  if (i=tempi2->ic_data) {
	    if (Bsf(i)==Bsr(i)) {
	      tempi2->ic_data=Bsf(i);
	      tempi->ic_opcode=IC_SHL_EQUAL;
	    }
	  }
	}
	if (tempi2->ic_class->sub_type==IT_F64)
	  tempi->ic_flags=tempi->ic_flags|ICF_USE_F64;
	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	}
	break;
      case IC_DIV_EQUAL:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempi2->ic_opcode==IC_IMM &&
	    tempc->sub_type!=IT_F64 &&
	    tempc2->sub_type!=IT_F64 &&
	    (i=tempi2->ic_data) && Bsf(i)==Bsr(i)) {
	  tempi2->ic_data=Bsf(i);
	  tempi->ic_opcode=IC_SHR_EQUAL;
	}
	if (tempi2->ic_class->sub_type==IT_F64)
	  tempi->ic_flags=tempi->ic_flags|ICF_USE_F64;
	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	}
	break;
      case IC_MOD_EQUAL:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempi2->ic_opcode==IC_IMM &&
	    tempc->sub_type!=IT_F64 &&
	    tempc2->sub_type!=IT_F64 &&
	    (i=tempi2->ic_data) && Bsf(i)==Bsr(i)) {
	  tempi2->ic_data=i-1;
	  tempi->ic_opcode=IC_AND_EQUAL;
	}
	if (tempi2->ic_class->sub_type==IT_F64)
	  tempi->ic_flags=tempi->ic_flags|ICF_USE_F64;
	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	}
	break;
      case IC_ADD_EQUAL:
      case IC_SUB_EQUAL:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempi2->ic_class->sub_type==IT_F64)
	  tempi->ic_flags=tempi->ic_flags|ICF_USE_F64;
	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	}
	break;
      case IC_ASSIGN:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempc->sub_type==IT_F64) {
	  if (tempc2->sub_type!=IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_F64;
	} else {
	  if (tempc2->sub_type==IT_F64)
	    tempi2->ic_flags|=ICF_R_TO_INT;
	}
	if (lx->pass==2 && tempi1->ic_class->sub_type!=IT_F64) {
	  if (tempi1->ic_opcode==IC__PP) {
	    tempi->ic_opcode=IC_ASSIGN_PP;
	    tempi1->ic_opcode=IC_NOP;
	    tempi->ic_flags|=tempi1->ic_flags;
	    tempi1->ic_flags=0;
	    tempi->t.p3c=tempi1->ic_class;
	  } else if (tempi1->ic_opcode==IC__MM) {
	    tempi->ic_opcode=IC_ASSIGN_MM;
	    tempi1->ic_opcode=IC_NOP;
	    tempi->ic_flags|=tempi1->ic_flags;
	    tempi1->ic_flags=0;
	    tempi->t.p3c=tempi1->ic_class;
	  }
	}
	break;
      case IC_SHL_EQUAL:
      case IC_SHR_EQUAL:
      case IC_AND_EQUAL:
      case IC_OR_EQUAL:
      case IC_XOR_EQUAL:
	if (lx->pass==2 && (!tempc->size||!tempc2->size)) LexPutWarn(lx,"ST_ASSIGN_U0",fun_class);

	if (tempc2->sub_type==IT_F64)
	  tempi2->ic_flags|=ICF_R_TO_INT;
	break;
      case IC_ENTER:
      case IC_LEAVE:
	tempi->ic_data=-fun_class->size;
	break;
      case IC_ADD_RSP:
	if (temp_lag[1]->ic_opcode==IC_ADD_RSP) {
	  tempi->ic_data+=temp_lag[1]->ic_data;
	  tempi->ic_flags|=temp_lag[1]->ic_flags;
	  temp_lag[1]->ic_opcode=IC_NOP;
	  temp_lag[1]->ic_flags=0;
	}
      case IC_ADD_RSP1:
	break;

      case IC_CALL:
      case IC_CALL_INDIRECT:
      case IC_CALL_INDIRECT2:
      case IC_CALL_EXTERN:
      case IC_CALL_IMPORT:
      case IC_CLI:
      case IC_STI:
      case IC_HLT:
      case IC_PUSHFD:
      case IC_POPFD:
      case IC_PUSH:
      case IC_POP:
      case IC_CLD:
      case IC_STD:
      case IC_INVLPG:
      case IC_CLFLUSH:
      case IC_PAUSE:
      case IC_GET_FLAGS:
      case IC_GET_BASE_PTR:
      case IC_GET_STK_PTR:
      case IC_GET_RAX:
      case IC_RETURN_VAL:
      case IC_RETURN_VAL2:
      case IC_ABS_ADDR:
      case IC_HEAP_GLBL:
      case IC_ADDR_IMPORT:
      case IC_GET_LABEL:
      case IC_TYPE:
      case IC_RDTSC:
      case IC_HPET:
      case IC_SET_FLAGS:
      case IC_SET_BASE_PTR:
      case IC_SET_STK_PTR:
      case IC_SET_RAX:
      case IC_BSF:
      case IC_BSR:
      case IC_PREEMPT:
      case IC_SIGN_I64:
      case IC_TOUPPER:
      case IC_ABS_I64:
      case IC_LIMIT_I64:
      case IC_LIMIT_U64:
      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_U64:
      case IC_INU32:
      case IC_INU16:
      case IC_INU8:
      case IC_STRLEN:
      case IC_BT:
      case IC_BTS:
      case IC_BTR:
      case IC_BTC:
      case IC_BEQU:
      case IC_QUE_INIT:
      case IC_QUE_REM:
      case IC_QUE_INS:
      case IC_QUE_INS_REV:
      case IC_OUTU32:
      case IC_OUTU16:
      case IC_OUTU8:
      case IC_NOBOUND_SWITCH:
      case IC_SWITCH:
      case IC_MEMCPY:
      case IC_MEMSET:
      case IC_MEMSET_U16:
      case IC_MEMSET_U32:
      case IC_MEMSET_U64:
      case IC_ASM:
	break;
      case IC_LBEQU:
      case IC_LBTS:
      case IC_LBTR:
      case IC_LBTC:
	tempi->ic_flags|=ICF_LOCK;
	break;
      case IC_TO_I64:
	if (combined) {
	  if (tempi1->ic_opcode==IC_F64) {
	    tempi->ic_flags|=tempi1->ic_flags&~ICF_R_TO_INT;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi->ic_opcode=IC_IMM;
	    tempi->ic_data=ToI64(tempi1->ic_data(F64));
	    tempi->ic_class=sys_internal_types[IT_I64];
	    tempi->ic_class2=sys_internal_types[IT_I64];

	    tempii=tempi1-1;
	    while (tempii->ic_opcode!=IC_CALL_START)
	      tempii--;
	    tempii->ic_opcode=IC_NOP;

	    tempii=tempi+1;
	    while (tempii->ic_opcode!=IC_CALL_END)
	      tempii++;
	    tempii->ic_opcode=IC_NOP;

	  } else if (tempi1->ic_opcode==IC_IMM) {
	    tempi->ic_flags|=tempi1->ic_flags&~ICF_R_TO_F64;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi->ic_opcode=IC_IMM;
	    tempi->ic_data=tempi1->ic_data;
	    tempi->ic_class=sys_internal_types[IT_I64];
	    tempi->ic_class2=sys_internal_types[IT_I64];

	    tempii=tempi1-1;
	    while (tempii->ic_opcode!=IC_CALL_START)
	      tempii--;
	    tempii->ic_opcode=IC_NOP;

	    tempii=tempi+1;
	    while (tempii->ic_opcode!=IC_CALL_END)
	      tempii++;
	    tempii->ic_opcode=IC_NOP;

	  }
	  if (tempi1->ic_flags&ICF_R_TO_F64) {
	    tempi1->ic_flags=tempi->ic_flags|tempi1->ic_flags&~(ICF_R_TO_F64|ICF_PUSH_RESULT);
	    tempi->ic_flags=0;
	    tempi->ic_opcode=IC_NOP;
	    tempi1->ic_class=sys_internal_types[IT_I64];
	    tempi1->ic_class2=sys_internal_types[IT_I64];
	    tempi_push=tempi1;

	    i=0;
	    tempii=tempi1-1;
	    while (TRUE) {
	      if (tempii->ic_opcode==IC_CALL_START) {
		if (!i) break;
		i--;
	      } else if (tempii->ic_opcode==IC_CALL_END)
		i++;
	      tempii--;
	    }
	    tempii->ic_opcode=IC_NOP;

	    i=0;
	    tempii=tempi1+1;
	    while (TRUE) {
	      if (tempii->ic_opcode==IC_CALL_END) {
		if (!i) break;
		i--;
	      } else if (tempii->ic_opcode==IC_CALL_START)
		i++;
	      tempii++;
	    }
	    tempii->ic_opcode=IC_NOP;
	  }
	}
	break;
      case IC_TO_F64:
	if (combined) {
	  if (tempi1->ic_opcode==IC_IMM) {
	    tempi->ic_flags|=tempi1->ic_flags&~ICF_R_TO_F64;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi->ic_opcode=IC_F64;
	    tempi->ic_data(F64)=ToF64(tempi1->ic_data);
	    tempi->ic_class=sys_internal_types[IT_F64];
	    tempi->ic_class2=sys_internal_types[IT_F64];

	    tempii=tempi1-1;
	    while (tempii->ic_opcode!=IC_CALL_START)
	      tempii--;
	    tempii->ic_opcode=IC_NOP;

	    tempii=tempi+1;
	    while (tempii->ic_opcode!=IC_CALL_END)
	      tempii++;
	    tempii->ic_opcode=IC_NOP;
	  } else if (tempi1->ic_opcode==IC_F64) {
	    tempi->ic_flags|=tempi1->ic_flags&~ICF_R_TO_INT;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi->ic_opcode=IC_F64;
	    tempi->ic_data=tempi1->ic_data;
	    tempi->ic_class=sys_internal_types[IT_F64];
	    tempi->ic_class2=sys_internal_types[IT_F64];

	    tempii=tempi1-1;
	    while (tempii->ic_opcode!=IC_CALL_START)
	      tempii--;
	    tempii->ic_opcode=IC_NOP;

	    tempii=tempi+1;
	    while (tempii->ic_opcode!=IC_CALL_END)
	      tempii++;
	    tempii->ic_opcode=IC_NOP;
	  }
	  if (tempi1->ic_flags&ICF_R_TO_INT) {
	    tempi1->ic_flags=tempi->ic_flags|tempi1->ic_flags&~(ICF_R_TO_INT|ICF_PUSH_RESULT);
	    tempi->ic_flags=0;
	    tempi->ic_opcode=IC_NOP;
	    tempi1->ic_class=sys_internal_types[IT_F64];
	    tempi1->ic_class2=sys_internal_types[IT_F64];
	    tempi_push=tempi1;

	    i=0;
	    tempii=tempi1-1;
	    while (TRUE) {
	      if (tempii->ic_opcode==IC_CALL_START) {
		if (!i) break;
		i--;
	      } else if (tempii->ic_opcode==IC_CALL_END)
		i++;
	      tempii--;
	    }
	    tempii->ic_opcode=IC_NOP;

	    i=0;
	    tempii=tempi1+1;
	    while (TRUE) {
	      if (tempii->ic_opcode==IC_CALL_END) {
		if (!i) break;
		i--;
	      } else if (tempii->ic_opcode==IC_CALL_START)
		i++;
	      tempii++;
	    }
	    tempii->ic_opcode=IC_NOP;
	  }
	}
	break;
      case IC_TO_BOOL:
	if (combined) {
	  if (tempi1->ic_opcode==IC_IMM || tempi1->ic_opcode==IC_F64) {
	    tempi->ic_flags|=tempi1->ic_flags&~ICF_R_TO_F64;
	    tempi1->ic_opcode=IC_NOP;
	    tempi1->ic_flags=0;
	    tempi->ic_opcode=IC_IMM;
	    tempi->ic_data=ToBool(tempi1->ic_data);
	    tempi->ic_class=sys_internal_types[IT_I64];
	    tempi->ic_class2=sys_internal_types[IT_I64];

	    tempii=tempi1-1;
	    while (tempii->ic_opcode!=IC_CALL_START)
	      tempii--;
	    tempii->ic_opcode=IC_NOP;

	    tempii=tempi+1;
	    while (tempii->ic_opcode!=IC_CALL_END)
	      tempii++;
	    tempii->ic_opcode=IC_NOP;

	  }
	}
	break;

      case IC_SQR:
      case IC_ABS:
      case IC_SQRT:
      case IC_SIN:
      case IC_COS:
      case IC_TAN:
      case IC_ATAN:
	break;

      case IC_BR_ZERO:
	if (combined)
	  tempi_push=OptBrZero(lx,tempi);
	break;
      case IC_BR_NOT_ZERO:
	if (combined)
	  tempi_push=OptBrNotZero(lx,tempi);
	break;
      case IC_BR_NOT_EQUAL:
      case IC_BR_EQUAL_EQUAL:
      case IC_BR_GREATER_EQUAL:
      case IC_BR_LESS_EQUAL:
      case IC_BR_GREATER:
      case IC_BR_LESS:
      case IC_BR_NOT_EQUAL2:
      case IC_BR_EQUAL_EQUAL2:
      case IC_BR_GREATER_EQUAL2:
      case IC_BR_LESS_EQUAL2:
      case IC_BR_GREATER2:
      case IC_BR_LESS2:
      case IC_BR_OR_OR_NOT_ZERO:
      case IC_BR_OR_OR_ZERO:
      case IC_BR_AND_AND_NOT_ZERO:
      case IC_BR_AND_AND_ZERO:
      case IC_BR_AND_NOT_ZERO:
      case IC_BR_AND_ZERO:
      case IC_BR_MM_NOT_ZERO:
      case IC_BR_MM_ZERO:
      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:
	break;
      case IC_BR_LBTS:
      case IC_BR_LBTR:
      case IC_BR_LBTC:
      case IC_BR_NOT_LBTS:
      case IC_BR_NOT_LBTR:
      case IC_BR_NOT_LBTC:
	tempi->ic_flags|=ICF_LOCK;
	break;

      case IC_NOP:
	if (combined && tempi->ic_flags&ICF_PUSH_RESULT) {
	  tempii=tempi;
	  do tempii--;
	  while (tempii->ic_opcode==IC_NOP);
	  tempii->ic_flags|=ICF_PUSH_RESULT;
	  tempi->ic_flags&=~ICF_PUSH_RESULT;
	}
	break;
      case IC_NOP1:
	ps->ptr+=tempi->ic_data<<1;
	break;
      case IC_LABEL:
	lb=tempi->ic_data;
	while (lb->fwd)
	  lb=lb->fwd;
	lb1=tempi->ic_data;
	while (lb2=lb1->fwd) {
	  lb1->fwd=lb;
	  lb1=lb2;
	}
	tempii=temp_lag[1];
	if (tempii->ic_opcode==IC_JMP) {
	  lb1=tempii->ic_data;
	  while (lb1->fwd)
	    lb1=lb1->fwd;
	  if (lb1==lb) {
	    tempii->ic_opcode=IC_NOP;
	    tempi->ic_flags|=tempii->ic_flags;
	  }
	} else if (tempii->ic_opcode==IC_LABEL) {
	  lb1=tempii->ic_data;
	  if (!lb1->fwd)
	    lb1->fwd=lb;
	  tempii=temp_lag[2];
	  if (tempii->ic_opcode==IC_JMP) {
	    lb1=tempii->ic_data;
	    while (lb1->fwd)
	      lb1=lb1->fwd;
	    if (lb1==lb) {
	      tempii->ic_opcode=IC_NOP;
	      tempi->ic_flags|=tempii->ic_flags;
	    }
	  }
	}
	break;
      case IC_END:
      case IC_ADDR:
      case IC_QUESTION:
      case IC_RET:
      case IC_END_EXP:
      case IC_CALL_START:
      case IC_CALL_END:
      case IC_CALL_END2:
      case IC_PUSH_REGS:
      case IC_POP_REGS:
      case IC_IRQ:
	break;
      case IC_JMP:
	lb=tempi->ic_data;
	if (temp_lag[1]->ic_opcode==IC_LABEL) {
	  while (lb->fwd)
	    lb=lb->fwd;
	  lb1=temp_lag[1]->ic_data;
	  while (lb1->fwd)
	    lb1=lb1->fwd;
	  if (lb!=lb1)
	    lb1->fwd=lb;
	}
	break;
      default:
	OptMissing(lx,tempi);
    }
    if (cmp_arg_cnt[code]==2) {
      if (tempi_push->ic_precedence.u8[0]&~ASSOC_MASK==PREC_ASSIGN)
	OptFixSizeOf(tempi2,tempi_push,tempi1->ic_class-1);
      else {
	OptFixSizeOf(tempi1,tempi_push,tempi2->ic_class);
	OptFixSizeOf(tempi2,tempi_push,tempi1->ic_class);
      }
    }
    if (cmp_result_cnt[tempi_push->ic_opcode]) {
      PrsPush(ps,tempi->ic_class2);
      PrsPush(ps,tempi_push);
    }
    if (tempi->ic_class) {
      if (tempi->ic_class->sub_type==IT_F64)
	tempi->ic_flags&=~ICF_R_TO_F64;
      else
	tempi->ic_flags&=~ICF_R_TO_INT;
      if (code>IC_END_EXP)
	last_with_class=tempi;
    }
    if (combined)
      tempi++;
    else
      tempi=CBGetIC1(&lx->cbh);
  }
  OptEnd(lx,ps);

  /*
  This is for determining type conversions
  for passing args to funs.
  */
  return last_with_class;
}