paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 14:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug in in_const_swap_qword handling

Browse Source 
git-svn-id: trunk@29067 -
This commit is contained in:
pierre 2014-11-13 10:59:00 +00:00
parent c97d8079e7
commit a77735d7af
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ninl.pas
View File

@ -2075,7 +2075,7 @@ implementation
in_const_swap_long : in_const_swap_long :
hp:=cordconstnode.create((vl and $ffff) shl 16+(vl shr 16),left.resultdef,true); hp:=cordconstnode.create((vl and $ffff) shl 16+(vl shr 16),left.resultdef,true);
in_const_swap_qword : in_const_swap_qword :
hp:=cordconstnode.create((vl and $ffff) shl 32+(vl shr 32),left.resultdef,true); hp:=cordconstnode.create((vl and $ffffffff) shl 32+(vl shr 32),left.resultdef,true);
in_const_ptr: in_const_ptr:
begin begin
{Don't construct pointers from negative values.} {Don't construct pointers from negative values.}