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

* Fix from Andrea Mauri to make formatfloat delphi-compatible in case of negative zero (bug ID 26465)

Browse Source 
git-svn-id: trunk@33344 -
This commit is contained in:
michael 2016-03-27 10:40:09 +00:00
parent bcdfe055a8
commit f380aeb63d
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

@ -2197,6 +2197,17 @@ Var
End;
If (J<>0) then
Digits[1]:='-';
If (Digits[1]='-') then
Begin
I:=1;
While (I<=length(Digits)) And (Not (Digits[I] in ['1'..'9'])) Do
Inc(I);
If (I>length(Digits)) then
Begin
Digits:=Copy(Digits, 2, Length(Digits));
Dec(DecimalPoint);
End;
End;
Exp := 0;
End
Else