mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
4fd670c6ec
evaluation
o also only mask values when performing a constant evaluation of
"0 shl/shr x" during inline evaluation (just like when evaluating other
shl/shr operations)
git-svn-id: trunk@43497 -
16 lines
133 B
ObjectPascal
16 lines
133 B
ObjectPascal
{ %norun }
|
|
{ %opt=-Sew }
|
|
|
|
{$r+}
|
|
{$warnings on}
|
|
|
|
const
|
|
MH_MAGIC = $feedface;
|
|
|
|
var
|
|
c: cardinal;
|
|
begin
|
|
c:= NToBE(MH_MAGIC);
|
|
end.
|
|
|