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

* Fixed bug #12385

Browse Source 
git-svn-id: trunk@12087 -
This commit is contained in:
michael 2008-11-14 13:04:51 +00:00
parent 6b24dc9adc
commit 0d53564797
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2031,8 +2031,9 @@ Var
Digits[DecimalPoint] := ' '; Digits[DecimalPoint] := ' ';
{ Convert spaces left from obligatory decimal point to zeroes. } { Convert spaces left from obligatory decimal point to zeroes. }
I:=DecimalPoint-Placehold[2]; I:=DecimalPoint-Placehold[2];
If (Value<0) and (I<DecimalPoint) then If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
begin begin
Writeln('Inserting - at ',I);
Insert('-',Digits,I); Insert('-',Digits,I);
Inc(DecimalPoint); Inc(DecimalPoint);
Inc(I); Inc(I);