Browse Source

* fix for m68k, extended are 12 bytes

pierre 22 years ago
parent
commit
d634e70dc4
1 changed files with 4 additions and 2 deletions
  1. 4 2
      tests/test/cg/tstr.pp

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

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