|
@@ -1844,46 +1844,6 @@ unit cgcpu;
|
|
|
i : byte;
|
|
|
begin
|
|
|
internalerror(2020042301);
|
|
|
- //swapped:=false;
|
|
|
- //{ swap parameters? }
|
|
|
- //case cmp_op of
|
|
|
- // OC_GT:
|
|
|
- // begin
|
|
|
- // swapped:=true;
|
|
|
- // cmp_op:=OC_LT;
|
|
|
- // end;
|
|
|
- // OC_LTE:
|
|
|
- // begin
|
|
|
- // swapped:=true;
|
|
|
- // cmp_op:=OC_GTE;
|
|
|
- // end;
|
|
|
- // OC_BE:
|
|
|
- // begin
|
|
|
- // swapped:=true;
|
|
|
- // cmp_op:=OC_AE;
|
|
|
- // end;
|
|
|
- // OC_A:
|
|
|
- // begin
|
|
|
- // swapped:=true;
|
|
|
- // cmp_op:=OC_B;
|
|
|
- // end;
|
|
|
- //end;
|
|
|
- //if swapped then
|
|
|
- // begin
|
|
|
- // tmpreg:=reg1;
|
|
|
- // reg1:=reg2;
|
|
|
- // reg2:=tmpreg;
|
|
|
- // end;
|
|
|
- //list.concat(taicpu.op_reg_reg(A_CP,reg2,reg1));
|
|
|
- //
|
|
|
- //for i:=2 to tcgsize2size[size] do
|
|
|
- // begin
|
|
|
- // reg1:=GetNextReg(reg1);
|
|
|
- // reg2:=GetNextReg(reg2);
|
|
|
- // list.concat(taicpu.op_reg_reg(A_CPC,reg2,reg1));
|
|
|
- // end;
|
|
|
- //
|
|
|
- //a_jmp_cond(list,cmp_op,l);
|
|
|
end;
|
|
|
|
|
|
|