paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 09:58:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some more i8086 bug fixes in tx86innode.pass_generate_code

Browse Source 
git-svn-id: trunk@24618 -
This commit is contained in:
nickysn 2013-05-26 09:08:28 +00:00
parent 967e10ea95
commit 533bd30094
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/nx86set.pas
View File

@ -571,6 +571,14 @@ implementation
current_asmdata.getjumplabel(l);
current_asmdata.getjumplabel(l2);
{ load constants to a register }
if (left.location.loc=LOC_CONSTANT) or
(setbase<>0) then
begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,opdef,true);
register_maybe_adjust_setbase(current_asmdata.CurrAsmList,left.location,setbase);
end;
cg.getcpuregister(current_asmdata.CurrAsmList,NR_CX);
if TCGSize2Size[left.location.size] > 2 then
left.location.size := OS_16;
@ -664,6 +672,9 @@ implementation
else
begin
{$ifdef i8086}
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,opdef,false);
register_maybe_adjust_setbase(current_asmdata.CurrAsmList,left.location,setbase);
cg.getcpuregister(current_asmdata.CurrAsmList,NR_CX);
if TCGSize2Size[left.location.size] > 2 then
left.location.size := OS_16;
@ -690,8 +701,8 @@ implementation
{ BE will be false for negative values }
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opsize,OC_BE,tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase,pleftreg,l);
{ reset carry flag }
current_asmdata.CurrAsmList.concat(taicpu.op_none(A_CLC,S_NO));
{ set the zero flag }
current_asmdata.CurrAsmList.concat(taicpu.op_const_reg(A_TEST,S_B,0,NR_AL));
cg.a_jmp_always(current_asmdata.CurrAsmList,l2);
cg.a_label(current_asmdata.CurrAsmList,l);