[gcc r16-1244] ada: Remove repeated call in exponentiation of rational numbers

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:782d1cec98f0116797aecc80325f5c351c707d97

commit r16-1244-g782d1cec98f0116797aecc80325f5c351c707d97
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Thu Feb 27 11:32:05 2025 +0100

    ada: Remove repeated call in exponentiation of rational numbers
    
    Code cleanup.
    
    gcc/ada/ChangeLog:
    
            * urealp.adb (UR_Exponentiate): Use local variable.

Diff:
---
 gcc/ada/urealp.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb
index 446a65664f98..3a9fddea60b5 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