diff options
Diffstat (limited to 'gcc/ada/a-ztdeau.adb')
-rw-r--r-- | gcc/ada/a-ztdeau.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/a-ztdeau.adb b/gcc/ada/a-ztdeau.adb index b9feb4c1723..38450fcb011 100644 --- a/gcc/ada/a-ztdeau.adb +++ b/gcc/ada/a-ztdeau.adb @@ -244,11 +244,8 @@ package body Ada.Wide_Wide_Text_IO.Decimal_Aux is Ptr : Natural := 0; begin - if Exp = 0 then - Fore := To'Length - 1 - Aft; - else - Fore := To'Length - 2 - Aft - Exp; - end if; + Fore := + (if Exp = 0 then To'Length - 1 - Aft else To'Length - 2 - Aft - Exp); if Fore < 1 then raise Layout_Error; |