paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 18:51:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed maketojumpbool() for 32 bit targets when used with a

Browse Source 
64 bit destination

git-svn-id: trunk@19923 -
This commit is contained in:
Jonas Maebe 2011-12-30 12:12:39 +00:00
parent 3a6fb7c9ef
commit 3b32e6986b
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgutil.pas
View File

@ -332,6 +332,17 @@ implementation
end;
LOC_CREGISTER,LOC_REGISTER,LOC_CREFERENCE,LOC_REFERENCE :
begin
{$ifndef cpu64bitalu}
if opsize in [OS_64,OS_S64] then
begin
location_force_reg(list,p.location,opsize,true);
tmpreg:=cg.getintregister(list,OS_32);
cg.a_op_reg_reg_reg(list,OP_OR,OS_32,p.location.register64.reglo,p.location.register64.reghi,tmpreg);
location_reset(p.location,LOC_REGISTER,OS_32);
p.location.register:=tmpreg;
opsize:=OS_32;
end;
{$endif not cpu64bitalu}
cg.a_cmp_const_loc_label(list,opsize,OC_NE,0,p.location,current_procinfo.CurrTrueLabel);
cg.a_jmp_always(list,current_procinfo.CurrFalseLabel);
end;