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

* fixed test for 64 bit platforms

Browse Source 
git-svn-id: trunk@15402 -
This commit is contained in:
Jonas Maebe 2010-06-10 12:00:03 +00:00
parent 20823eb4e4
commit af15fa4ec4
1 changed files with 5 additions and 0 deletions

5
tests/webtbs/tw16668.pp
View File

@ -8,8 +8,13 @@ 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