paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 20:28:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Optimized floating point compare routine for sorting. Issue #35356, patch by Marcin Wiazowski

Browse Source 
git-svn-id: trunk@61252 -
This commit is contained in:
wp 2019-05-20 21:03:24 +00:00
parent adc9225cec
commit 3992921b51
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tacustomsource.pas
View File

@ -1613,11 +1613,13 @@ end;
function CompareFloat(const x1, x2: Double): Integer; function CompareFloat(const x1, x2: Double): Integer;
begin begin
if IsNaN(x1) and IsNaN(x2) then if IsNaN(x1) then begin
Result := 0 if IsNaN(x2) then
else if IsNaN(x1) then Result := 0
Result := +1 else
else if IsNaN(x2) then Result := +1;
end else
if IsNaN(x2) then
Result := -1 Result := -1
else else
Result := CompareValue(x1, x2); Result := CompareValue(x1, x2);