2
0
Эх сурвалжийг харах

+ OS_S16->OS_32 test for ppc64

git-svn-id: trunk@10707 -
Jonas Maebe 17 жил өмнө
parent
commit
43c3260810

+ 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.');