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

TAChart: Fix various cases of SIGFPE in RoundToImage method

Browse Source 
git-svn-id: trunk@34853 -
This commit is contained in:
ask 2012-01-22 09:18:07 +00:00
parent 0f055aa049
commit 366a247eab
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/taintervalsources.pas
View File

@ -282,18 +282,19 @@ procedure TIntervalChartSource.RoundToImage(
end; end;
var var
i, x: Integer; i: Integer;
v, p, rv: Double; v, p, rv: Double;
x: Int64;
begin begin
if AParams.FIntervals.Tolerance = 0 then exit; if AParams.FIntervals.Tolerance = 0 then exit;
for i := 0 to High(AValues) do begin for i := 0 to High(AValues) do begin
v := AValues[i].FValue; v := AValues[i].FValue;
if v = 0 then continue; if (v = 0) or IsInfinite(v) or IsNan(v) then continue;
x := A2I(v); x := A2I(v);
p := Power(10, Floor(Log10(Abs(v)) - Log10(High(Int64)) + 1)); p := Power(10, Floor(Log10(Abs(v)) - Log10(High(Int64)) + 1));
while true do begin while v <> 0 do begin
rv := Round(v / p) * p; rv := Round(v / p) * p;
if Cardinal(Abs(A2I(rv) - x)) >= AParams.FIntervals.Tolerance then break; if Abs(A2I(rv) - x) >= AParams.FIntervals.Tolerance then break;
v := rv; v := rv;
p *= 10; p *= 10;
end; end;