Browse Source

* m68k extended size is 12

pierre 23 years ago
parent
commit
00d7da7aad
1 changed files with 3 additions and 1 deletions
  1. 3 1
      tests/tbs/tb0185.pp

+ 3 - 1
tests/tbs/tb0185.pp

@@ -26,7 +26,9 @@ Begin
   str(r,s);
   val(s,rr,code);
   { calculate maximum possible precision }
-  if sizeof(extended) = 10 then
+  if sizeof(extended) = 12 then
+    error := exp(17*ln(10))
+  else if sizeof(extended) = 10 then
     error := exp(17*ln(10))
   else if sizeof(extended) = 8 then
     error := exp(14*ln(10))