소스 검색

* fix for m68k, extended are 12 bytes

pierre 22 년 전
부모
커밋
d634e70dc4
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  1. 4 2
      tests/test/cg/tstr.pp

+ 4 - 2
tests/test/cg/tstr.pp

@@ -66,7 +66,8 @@ begin
   f := -1.12345;
 {$IFOPT E-}  
   str(f,s);
-  if sizeof(extended) = 10 then
+  if (sizeof(extended) = 10) or
+     (sizeof(extended) = 12) then
     check('-1.123450000000000E+000')
   else if sizeof(extended) = 8 then
     check('-1.12345000000000E+000')
@@ -249,7 +250,8 @@ begin
   f := -1.12345;
 {$IFOPT E-}  
   str(f,s);
-  if sizeof(extended) = 10 then
+  if (sizeof(extended) = 10) or
+     (sizeof(extended) = 12) then
     check('-1.123450000000000E+000')
   else if sizeof(extended) = 8 then
     check('-1.12345000000000E+000')