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

* 16/8-bit ALU fix for 64-bit pred/succ after r26580

Browse Source 
git-svn-id: trunk@26590 -
This commit is contained in:
nickysn 2014-01-26 15:44:58 +00:00
parent 444fdc818b
commit 5e0359d389
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncginl.pas
View File

@ -345,8 +345,8 @@ implementation
{$ifndef cpu64bitalu} {$ifndef cpu64bitalu}
if def_cgsize(resultdef) in [OS_64,OS_S64] then if def_cgsize(resultdef) in [OS_64,OS_S64] then
begin begin
location.register64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT); location.register64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
location.register64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT); location.register64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
cg64.a_op64_const_reg_reg(current_asmdata.CurrAsmList,cgop,def_cgsize(resultdef),1,left.location.register64,location.register64); cg64.a_op64_const_reg_reg(current_asmdata.CurrAsmList,cgop,def_cgsize(resultdef),1,left.location.register64,location.register64);
end end
else else