paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for 16 and 8-bit ALUs in thlcg2ll.location_force_reg for the cases when

Browse Source 
converting from a LOC_FLAGS or LOC_JUMP location to a 64-bit reg location.
  This fixes test/cg/tcnvint1.pp on i8086 after r26301.

git-svn-id: trunk@26312 -
This commit is contained in:
nickysn 2013-12-29 14:30:41 +00:00
parent 27f6fd1c2c
commit 4e795eca99
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/hlcg2ll.pas
View File

@ -1051,18 +1051,18 @@ implementation
{$ifdef cpuflags}
LOC_FLAGS :
begin
cg.g_flags2reg(list,OS_INT,l.resflags,hregister);
cg.g_flags2reg(list,OS_32,l.resflags,hregister);
cg.a_reg_dealloc(list,NR_DEFAULTFLAGS);
end;
{$endif cpuflags}
LOC_JUMP :
begin
cg.a_label(list,current_procinfo.CurrTrueLabel);
cg.a_load_const_reg(list,OS_INT,1,hregister);
cg.a_load_const_reg(list,OS_32,1,hregister);
current_asmdata.getjumplabel(hl);
cg.a_jmp_always(list,hl);
cg.a_label(list,current_procinfo.CurrFalseLabel);
cg.a_load_const_reg(list,OS_INT,0,hregister);
cg.a_load_const_reg(list,OS_32,0,hregister);
cg.a_label(list,hl);
end;
else