Browse Source

* fixed test for 64 bit platforms

git-svn-id: trunk@11590 -
Jonas Maebe 17 years ago
parent
commit
e295053448
1 changed files with 4 additions and 0 deletions
  1. 4 0
      tests/webtbs/tw8321.pp

+ 4 - 0
tests/webtbs/tw8321.pp

@@ -19,7 +19,11 @@ begin
  Str(a * w - 256000000,s);
  p:=POinter(a * w - 256000000);
  writeln(s);
+{$ifdef cpu64}
+ if s<>'18446744073454862316' then
+{$else cpu64}
  if s<>'-254689300' then
+{$endif cpu64}
   err:=true;