paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 07:18:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix SIGFPE on TListChartSource.SetXValue(NaN) and SetYValue(NaN)

Browse Source 
git-svn-id: trunk@38812 -
This commit is contained in:
ask 2012-09-24 14:39:32 +00:00
parent 4b2fe13853
commit ea61e7b307
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tasources.pas
View File

@ -578,7 +578,7 @@ var
begin
oldX := Item[AIndex]^.X;
Result := AIndex;
if oldX = AValue then exit;
if IsEquivalent(oldX, AValue) then exit;
Item[AIndex]^.X := AValue;
UpdateExtent;
if Sorted then begin
@ -650,7 +650,7 @@ var
begin
oldY := Item[AIndex]^.Y;
if oldY = AValue then exit;
if IsEquivalent(oldY, AValue) then exit;
Item[AIndex]^.Y := AValue;
if FValuesTotalIsValid then
FValuesTotal += NumberOr(AValue) - NumberOr(oldY);