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

TAChart: Fix SIGFPE when trying to draw minor axis marks below zero on logarithmic axis

Browse Source 
git-svn-id: trunk@32700 -
This commit is contained in:
ask 2011-10-05 10:05:02 +00:00
parent 9c33a8ec42
commit 809dcf262d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tamath.pas
View File

@ -137,6 +137,7 @@ procedure ExpandRange(var ALo, AHi: Double; ACoeff: Double);
var var
d: Double; d: Double;
begin begin
if IsInfinite(ALo) or IsInfinite(AHi) then exit;
d := AHi - ALo; d := AHi - ALo;
ALo -= d * ACoeff; ALo -= d * ACoeff;
AHi += d * ACoeff; AHi += d * ACoeff;