mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 10:49:33 +01:00
21eeec9981
based on the Grisu1 algorithm. This corrects several precision issues
with the previous code used to perform such conversions (patch by
Max Nazhalov, mantis #25241)
o adaptation of several tests to deal with the better precision of these
routines compared to the previous version
Please don't remove the real2str.inc file yet, it's still used by the
JVM target for now
git-svn-id: trunk@25888 -
10 lines
122 B
ObjectPascal
10 lines
122 B
ObjectPascal
var
|
|
s: string;
|
|
d: Double;
|
|
begin
|
|
d := 5.9999999999999991;
|
|
Str(d:23,s);
|
|
if (pos('6',s)<>0) then
|
|
halt(1);
|
|
end.
|