mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-26 11:54:58 +01:00
23 lines
248 B
ObjectPascal
23 lines
248 B
ObjectPascal
{ %opt=-g-t }
|
|
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
procedure Foo;
|
|
var
|
|
a: TObject;
|
|
begin
|
|
{$ifdef cpu32}
|
|
if ptruint(a)<>$55555555 then
|
|
halt(1);
|
|
{$else}
|
|
if ptruint(a)<>$5555555555555555 then
|
|
halt(1);
|
|
{$endif}
|
|
end;
|
|
|
|
begin
|
|
Foo;
|
|
end.
|