diff options
Diffstat (limited to 'gcc/ada/a-ngcoty.adb')
-rw-r--r-- | gcc/ada/a-ngcoty.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb index 2a9cc4b1434..aa8c9955d0f 100644 --- a/gcc/ada/a-ngcoty.adb +++ b/gcc/ada/a-ngcoty.adb @@ -51,7 +51,7 @@ package body Ada.Numerics.Generic_Complex_Types is X := Left.Re * Right.Re - Left.Im * Right.Im; Y := Left.Re * Right.Im + Left.Im * Right.Re; - -- If either component overflows, try to scale. + -- If either component overflows, try to scale if abs (X) > R'Last then X := R'(4.0) * (R'(Left.Re / 2.0) * R'(Right.Re / 2.0) @@ -626,7 +626,7 @@ package body Ada.Numerics.Generic_Complex_Types is elsif Im2 = 0.0 then return abs (X.Re); - -- in all other cases, the naive computation will do. + -- In all other cases, the naive computation will do else return R (Sqrt (Double (Re2 + Im2))); |