From 3181f1f35c0bf1a7a17e23bc7c2c980e82336c45 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 5 Feb 2024 22:39:22 +0100
Subject: [PATCH]   * get rid of sysutils use in the math unit

---
 rtl/objpas/math.pp      | 28 ----------------------------
 tests/webtbs/tw12214.pp |  2 +-
 2 files changed, 1 insertion(+), 29 deletions(-)

diff --git a/rtl/objpas/math.pp b/rtl/objpas/math.pp
index 0a0e749965..a06bcf9367 100644
--- a/rtl/objpas/math.pp
+++ b/rtl/objpas/math.pp
@@ -52,15 +52,7 @@ unit Math;
 {$ENDIF FPC_DOTTEDUNITS}
 interface
 
-
 {$ifndef FPUNONE}
-{$IFDEF FPC_DOTTEDUNITS}
-    uses
-       System.SysUtils;
-{$ELSE FPC_DOTTEDUNITS}
-    uses
-       sysutils;
-{$ENDIF FPC_DOTTEDUNITS}
 
 {$IFDEF FPDOC_MATH}
 Type
@@ -142,8 +134,6 @@ Const
 
        TPaymentTime = (ptEndOfPeriod,ptStartOfPeriod);
 
-       EInvalidArgument = class(ematherror);
-
        TValueRelationship = -1..1;
 
     const
@@ -876,22 +866,6 @@ function copysign(x,y: float): float; forward;    { returns abs(x)*sign(y) }
 { include cpu specific stuff }
 {$i mathu.inc}
 
-ResourceString
-  SMathError = 'Math Error : %s';
-  SInvalidArgument = 'Invalid argument';
-
-Procedure DoMathError(Const S : String);
-begin
-  Raise EMathError.CreateFmt(SMathError,[S]);
-end;
-
-Procedure InvalidArgument;
-
-begin
-  Raise EInvalidArgument.Create(SInvalidArgument);
-end;
-
-
 function Sign(const AValue: Integer): TValueSign;inline;
 
 begin
@@ -1749,8 +1723,6 @@ operator ** (base,exponent : int64) res: int64;
 begin
   if exponent<0 then
     begin
-      if base<=0 then
-        raise EInvalidArgument.Create('Non-positive base with negative exponent in **');
       if base=1 then
         res:=1
       else
diff --git a/tests/webtbs/tw12214.pp b/tests/webtbs/tw12214.pp
index 332601a3c1..4e6c1b712a 100644
--- a/tests/webtbs/tw12214.pp
+++ b/tests/webtbs/tw12214.pp
@@ -1,7 +1,7 @@
 {$mode objfpc}
 program test_raise;
 
-uses Math;
+uses Math, SysUtils;
 
 var
   X, Y: double;