Browse Source

* Fixed test for 64-bit targets

git-svn-id: trunk@19314 -
sergei 14 years ago
parent
commit
394c9022b8
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/webtbs/tw20192.pp

+ 1 - 1
tests/webtbs/tw20192.pp

@@ -40,7 +40,7 @@ var
 begin
   V := V.Create(589);
   WriteLn('V.Bug = ', V.Bug);
-  if V.Bug<>100000 div sizeof(pointer) then
+  if V.Bug<>100000 div sizeof(Integer) then
     halt(1);
   V.Free;
   writeln('ok');