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

* fixed inc/dec with constant truncating the high parts of the constant on

Browse Source 
16-bit and 8-bit CPUs

git-svn-id: trunk@26908 -
This commit is contained in:
nickysn 2014-03-01 10:33:14 +00:00
parent fc29e10349
commit 6e9083aa84
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncginl.pas
View File

@ -431,7 +431,12 @@ implementation
else else
{$endif not cpu64bitalu} {$endif not cpu64bitalu}
hlcg.a_op_const_loc(current_asmdata.CurrAsmList,addsubop[inlinenumber],left.resultdef, hlcg.a_op_const_loc(current_asmdata.CurrAsmList,addsubop[inlinenumber],left.resultdef,
aint(addvalue.svalue),tcallparanode(left).left.location); {$ifdef cpu64bitalu}
aint(addvalue.svalue),
{$else cpu64bitalu}
longint(addvalue.svalue), // can't use aint, because it breaks 16-bit and 8-bit CPUs
{$endif cpu64bitalu}
tcallparanode(left).left.location);
end end
else else
begin begin