* fixed test for 64 bit platforms

git-svn-id: trunk@15402 -

tests/webtbs/tw16668.pp

@@ -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