diff options
Diffstat (limited to 'gcc/ada/urealp.ads')
-rw-r--r-- | gcc/ada/urealp.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads index 323efc8..c7725bf 100644 --- a/gcc/ada/urealp.ads +++ b/gcc/ada/urealp.ads @@ -233,7 +233,7 @@ package Urealp is function UR_Sub (Left : Ureal; Right : Uint) return Ureal; -- Returns real difference of operands - function UR_Exponentiate (Real : Ureal; N : Uint) return Ureal; + function UR_Exponentiate (Real : Ureal; N : Uint) return Ureal; -- Returns result of raising Ureal to Uint power. -- Fatal error if Left is 0 and Right is negative. @@ -317,7 +317,7 @@ package Urealp is function "-" (Left : Uint; Right : Ureal) return Ureal renames UR_Sub; function "-" (Left : Ureal; Right : Uint) return Ureal renames UR_Sub; - function "**" (Real : Ureal; N : Uint) return Ureal + function "**" (Real : Ureal; N : Uint) return Ureal renames UR_Exponentiate; function "abs" (Real : Ureal) return Ureal renames UR_Abs; |