From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 27 Feb 2025 10:32:05 +0000 (+0100)
Subject: ada: Remove repeated call in exponentiation of rational numbers
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=782d1cec98f0116797aecc80325f5c351c707d97;p=thirdparty%2Fgcc.git

ada: Remove repeated call in exponentiation of rational numbers

Code cleanup.

gcc/ada/ChangeLog:

	* urealp.adb (UR_Exponentiate): Use local variable.
---

diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb
index 446a65664f9..3a9fddea60b 100644
--- a/gcc/ada/urealp.adb
+++ b/gcc/ada/urealp.adb
@@ -818,7 +818,7 @@ package body Urealp is
          return Store_Ureal
                   ((Num      => Uint_1,
                     Den      => -N,
-                    Rbase    => UI_To_Int (UR_Trunc (Bas)),
+                    Rbase    => UI_To_Int (IBas),
                     Negative => Neg));
 
       --  If the exponent is negative then we raise the numerator and the