paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 23:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for regression in 12385

Browse Source 
git-svn-id: trunk@28741 -
This commit is contained in:
michael 2014-10-04 15:59:37 +00:00
parent 03c553606e
commit a45890443b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1905,6 +1905,7 @@ Var
UnexpectedDigits: Integer; { Number Of unexpected Digits that }
{ have To be inserted before the }
{ First placeholder. }
UnexpectedDigitsStart: Integer; { Location in Digits where first unexpected Digit is located }
DigitExponent: Integer; { Exponent Of First digit In }
{ Digits Array. }
@ -2296,7 +2297,7 @@ Var
Buf[0] := Digits[N];
Inc(Buf);
end;
If thousand And (Digits[N]<>'-') Then
If thousand And (Not (Digits[N] in [' ','-'])) Then
Begin
If (DigitExponent Mod 3 = 0) And (DigitExponent>0) Then
Begin
@ -2321,8 +2322,9 @@ Var
Inc(Buf);
End;
End;
if Digits[Dig]<>'-' then
Dec(DigitExponent);
Inc(Dig);
Dec(DigitExponent);
Inc(Fmt);
End;
'e', 'E':