paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 03:49:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed mantis #9695 introduced by the fix in r7959

Browse Source 
git-svn-id: trunk@8494 -
This commit is contained in:
Jonas Maebe 2007-09-15 21:15:06 +00:00
parent 3b3849c02c
commit 4f23f216f6
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8426,6 +8426,7 @@ tests/webtbs/tw9347b.pp svneol=native#text/plain
tests/webtbs/tw9384.pp svneol=native#text/plain
tests/webtbs/tw9385.pp svneol=native#text/plain
tests/webtbs/tw9672.pp svneol=native#text/plain
tests/webtbs/tw9695.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

2
rtl/inc/real2str.inc
View File

@ -383,7 +383,7 @@ begin
if int(d+roundCorr) = 1 then
begin
roundStr(temp,spos);
d := frac(d);
d := frac(d+roundCorr);
if (f < 0) then
dec(currprec);
end;

9
tests/webtbs/tw9695.pp Normal file
View File

@ -0,0 +1,9 @@
var
s: string;
d: Double;
begin
d := 5.9999999999999991;
Str(d:23,s);
if (pos('9',s)<>0) or (pos('5',s)<>0) then
halt(1);
end.