paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 01:52:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix numlib issue of returning 0 for exp() function (https://forum.lazarus.freepascal.org/index.php/topic,42913.msg299793)

Browse Source 
git-svn-id: trunk@59320 -
This commit is contained in:
wp 2018-10-19 09:38:43 +00:00
parent 179cc59ee6
commit 1af1c96e32
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tafuncseries.pas
View File

@ -528,6 +528,14 @@ begin
X(AXText).Y(AYText).NumFormat(ANumFormat).Params(AParams); X(AXText).Y(AYText).NumFormat(ANumFormat).Params(AParams);
end; end;
// Workaround for numlib issue with too-small arguments of exp()
// https://bugs.freepascal.org/view.php?id=34434
function exp(x: ArbFloat): ArbFloat;
begin
Result := system.exp(x);
end;
{ TColorMapLegendItem } { TColorMapLegendItem }
constructor TLegendItemColorMap.Create( constructor TLegendItemColorMap.Create(