소스 검색

+ OS_S16->OS_32 test for ppc64

git-svn-id: trunk@10707 -
Jonas Maebe 17 년 전
부모
커밋
43c3260810
1개의 변경된 파일4개의 추가작업 그리고 1개의 파일을 삭제
  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.');