Browse Source

+ OS_S16->OS_32 test for ppc64

git-svn-id: trunk@10707 -
Jonas Maebe 17 years ago
parent
commit
43c3260810
1 changed files with 4 additions and 1 deletions
  1. 4 1
      tests/test/cg/tcnvint6.pp

+ 4 - 1
tests/test/cg/tcnvint6.pp

@@ -82,9 +82,12 @@ begin
     error(35);
   if cardinal(si)<>$ffffffff then
     error(36);
+  i64:=cardinal(si);
+  if i64<>$ffffffff then
+    halt(37);
 {$ifdef FPC}
   if qword(si)<>$ffffffffffffffff then
-    error(37);
+    error(38);
 {$endif FPC}
 
   writeln('Test OK.');