paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for m68k, extended are 12 bytes

Browse Source
This commit is contained in:
pierre 2003-06-19 10:04:00 +00:00
parent e1723974e4
commit d634e70dc4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/cg/tstr.pp
View File

@ -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')