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

* Fix bug ID #38489, patch by Laco

Browse Source 
git-svn-id: trunk@49604 -
This commit is contained in:
michael 2021-07-13 08:15:25 +00:00
parent ab86ce7e62
commit 2486d58db9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-objpas/src/inc/fmtbcd.pp
View File

@ -2842,10 +2842,12 @@ writeln ( '> ', i4, ' ', bh.Singles[i4], ' ', Add );
PFmt := Section.FmtDS; // start from decimal point until end
i := length(BCDStr) - Scale + ord(Scale=0);
dec(j1, Section.FmtEnd-Section.FmtDS);
j := j1 + 1;
j := j1 + 1; // points to decimal separator in output buffer
while PFmt < Section.FmtEnd do
PutFmtDigit(PFmt, i, j, 1);
je := j; // store position after last decimal digit
if j-j1=2 then // alone decimal separator at end of output buffer
dec(j);
je := j; // store position after last decimal digit (or any constant character) in output buffer
end;
// output whole number part of BCDStr