mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
a311607ca6
pointer, because that will force "value" to become unsigned, which
result in errors in case of negative 64bit constants in case they
are multiplied by the size of the pointed type in ncginl (the
tconstexprint type operators have to handle positive and
negative numbers differently) (mantis #17342)
git-svn-id: trunk@15951 -
16 lines
162 B
ObjectPascal
16 lines
162 B
ObjectPascal
var
|
|
P1, P2: PCardinal;
|
|
I: Integer;
|
|
begin
|
|
|
|
// random pointer
|
|
P1 := @I;
|
|
P2 := P1;
|
|
|
|
Inc(P1, 97);
|
|
Inc(P1, -97);
|
|
|
|
if (P1 <> P2) then
|
|
halt(1);
|
|
end.
|