Преглед на файлове

* fixed test for 64 bit platforms

git-svn-id: trunk@11590 -
Jonas Maebe преди 17 години
родител
ревизия
e295053448
променени са 1 файла, в които са добавени 4 реда и са изтрити 0 реда
  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;