paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:01:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed webtbs/tw10519.pp for CPUs which don't support extended

Browse Source 
git-svn-id: trunk@9893 -
This commit is contained in:
Jonas Maebe 2008-01-24 10:33:14 +00:00
parent bfd667e289
commit 200f1e5643
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/sysutils/sysstr.inc
View File

@ -1992,7 +1992,18 @@ Var
Placehold[1]:=1;
Decimals := Placehold[3] + Placehold[4];
Width:=Placehold[1]+Placehold[2]+Decimals;
{ depending on the maximally supported precision, the exponent field }
{ is longer/shorter }
{$ifdef FPC_HAS_TYPE_EXTENDED}
Str(Value:Width+8,Digits);
{$else FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE}
Str(Value:Width+7,Digits);
{$else FPC_HAS_TYPE_DOUBLE}
Str(Value:Width+6,Digits);
{$endif FPC_HAS_TYPE_DOUBLE}
{$endif FPC_HAS_TYPE_EXTENDED}
{ Find and cut out exponent. Always the
last 6 characters in the string.
-> 0000E+0000