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

* Fix tw13076, broken by previous commit 28660

Browse Source 
git-svn-id: trunk@28680 -
This commit is contained in:
michael 2014-09-16 14:00:41 +00:00
parent 8acc260a09
commit 2a4019b012
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2242,8 +2242,12 @@ Var
Insert('e',Exponent,1);
End;
DigitExponent:=DecimalPoint-2;
If (Digits[1]='-') Then
I:=1;
While (I<=Length(Digits)) and (Digits[i] in [' ','-']) do
begin
Dec(DigitExponent);
Inc(i);
end;
UnexpectedDigits:=DecimalPoint-1-(Placehold[1]+Placehold[2]);
End;
@ -2262,7 +2266,7 @@ Var
Dig := 1;
While (Fmt<FmtStop) Do
Begin
//Write(Fmt[0]);
// WriteLn('Treating : "',Fmt[0],'"');
Case Fmt[0] Of
#34:
Begin