mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:09:25 +02:00
Fix bug in in_const_swap_qword handling
git-svn-id: trunk@29067 -
This commit is contained in:
parent
c97d8079e7
commit
a77735d7af
@ -2075,7 +2075,7 @@ implementation
|
||||
in_const_swap_long :
|
||||
hp:=cordconstnode.create((vl and $ffff) shl 16+(vl shr 16),left.resultdef,true);
|
||||
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:
|
||||
begin
|
||||
{Don't construct pointers from negative values.}
|
||||
|
Loading…
Reference in New Issue
Block a user