paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 14:20:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed BCDToStr for values between -1 and 0

Browse Source 
git-svn-id: trunk@16952 -
This commit is contained in:
joost 2011-02-20 17:59:12 +00:00
parent e3885089c6
commit 7b8797afe7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/fmtbcd.pp
View File

@ -1728,7 +1728,10 @@ IMPLEMENTATION
then begin then begin
{$ifndef use_ansistring} {$ifndef use_ansistring}
Inc ( l ); Inc ( l );
result[1] := '0'; if Neg then
result[2] := '0'
else
result[1] := '0'
{$else} {$else}
result := result + '0'; result := result + '0';
{$endif} {$endif}