paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Improved implementation of IsEquivalent. Issue #35537, patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@61188 -
This commit is contained in:
wp 2019-05-09 10:32:43 +00:00
parent be344c2282
commit cf39c4e02a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tachartutils.pas
View File

@ -495,9 +495,18 @@ begin
end; end;
function IsEquivalent(const A1, A2: Double): Boolean; function IsEquivalent(const A1, A2: Double): Boolean;
{$IF SizeOf(Double) = SizeOf(QWord)}
var
Q1 : QWord absolute A1;
Q2 : QWord absolute A2;
begin begin
Result := CompareDWord(A1, A2, SizeOf(A1) div SizeOf(DWord)) = 0; Result := Q1 = Q2;
end; end;
{$ELSE}
begin
Result := CompareByte(A1, A2, SizeOf(A1)) = 0;
end;
{$ENDIF}
function IsNan(const APoint: TDoublePoint): Boolean; function IsNan(const APoint: TDoublePoint): Boolean;
begin begin