From a8675300565e967d717be4fde6b0207ffdf1f5b3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 6 Sep 2024 22:24:33 +0200
Subject: [PATCH]   * another fix of cosh/sinh overflow checking

---
 rtl/objpas/math.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/math.pp b/rtl/objpas/math.pp
index 923e0274e1..2e2f1aef6a 100644
--- a/rtl/objpas/math.pp
+++ b/rtl/objpas/math.pp
@@ -1327,8 +1327,8 @@ function sinh(x : Single) : Single;
   begin
      if x>8.94159862326326216608E+0001 then
        exit(huge_single*huge_single);
-     if x<8.94159862326326216608E+0001 then
-       exit(huge_single*huge_single);
+     if x<-8.94159862326326216608E+0001 then
+       exit(-(huge_single*huge_single));
      temp:=exp(x);
      { gives better behavior around zero, and in particular ensures that sinh(-0.0)=-0.0 }
      if temp=1 then