paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* m68k extended size is 12

Browse Source
This commit is contained in:
pierre 2002-10-31 15:31:39 +00:00
parent 7dbe30ac55
commit 00d7da7aad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tbs/tb0185.pp
View File

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