paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 22:44:53 +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;
begin
if IsNaN(x1) and IsNaN(x2) then
Result := 0
else if IsNaN(x1) then
Result := +1
else if IsNaN(x2) then
if IsNaN(x1) then begin
if IsNaN(x2) then
Result := 0
else
Result := +1;
end else
if IsNaN(x2) then
Result := -1
else
Result := CompareValue(x1, x2);