Parcourir la source

* m68k extended size is 12

pierre il y a 23 ans
Parent
commit
00d7da7aad
1 fichiers modifiés avec 3 ajouts et 1 suppressions
  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))