paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 11:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another fix of cosh/sinh overflow checking

Browse Source
This commit is contained in:
florian 2024-09-06 22:24:33 +02:00
parent 5e996dc18f
commit a867530056
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/math.pp
View File

@ -1327,8 +1327,8 @@ function sinh(x : Single) : Single;
begin begin
if x>8.94159862326326216608E+0001 then if x>8.94159862326326216608E+0001 then
exit(huge_single*huge_single); exit(huge_single*huge_single);
if x<8.94159862326326216608E+0001 then if x<-8.94159862326326216608E+0001 then
exit(huge_single*huge_single); exit(-(huge_single*huge_single));
temp:=exp(x); temp:=exp(x);
{ gives better behavior around zero, and in particular ensures that sinh(-0.0)=-0.0 } { gives better behavior around zero, and in particular ensures that sinh(-0.0)=-0.0 }
if temp=1 then if temp=1 then