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

* fix for #21199, changing epsilon to 0.0 instead of 0 helps overload selection of the

Browse Source 
right precision. Leave mantis item over for compiler testing.

git-svn-id: trunk@20461 -
This commit is contained in:
marco 2012-03-01 22:31:20 +00:00
parent 39bc3b9dcf
commit ae1ece93e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/math.pp
View File

@ -2222,7 +2222,7 @@ end;
function SameValue(const A, B: Extended): Boolean;inline; function SameValue(const A, B: Extended): Boolean;inline;
begin begin
Result:=SameValue(A,B,0); Result:=SameValue(A,B,0.0);
end; end;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
@ -2231,7 +2231,7 @@ end;
function SameValue(const A, B: Double): Boolean;inline; function SameValue(const A, B: Double): Boolean;inline;
begin begin
Result:=SameValue(A,B,0); Result:=SameValue(A,B,0.0);
end; end;
function SameValue(const A, B: Double; Epsilon: Double): Boolean; function SameValue(const A, B: Double; Epsilon: Double): Boolean;