diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-07-16 14:12:28 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:12:28 +0000 |
| commit | 400ad4e950bcd8f0940990ea558b1227d8930285 (patch) | |
| tree | 34c990bf91315fc62636fc041e795b493a1d3a69 /gcc/ada/sem_ch13.adb | |
| parent | 4af4c79a53886d0807f187f23e066fe4f0265897 (diff) | |
| download | gcc-400ad4e950bcd8f0940990ea558b1227d8930285.zip gcc-400ad4e950bcd8f0940990ea558b1227d8930285.tar.gz gcc-400ad4e950bcd8f0940990ea558b1227d8930285.tar.bz2 | |
[Ada] Minor reformatting
2018-07-16 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* einfo.adb, exp_ch7.adb, exp_ch9.adb, exp_unst.adb, inline.adb,
sem.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb, sem_eval.adb,
sem_util.adb: Minor reformatting.
From-SVN: r262730
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 17b138d..28a3dd8 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -5331,9 +5331,7 @@ package body Sem_Ch13 is Error_Msg_N ("Bit_Order can only be defined for record type", Nam); - elsif Is_Tagged_Type (U_Ent) - and then Is_Derived_Type (U_Ent) - then + elsif Is_Tagged_Type (U_Ent) and then Is_Derived_Type (U_Ent) then Error_Msg_N ("Bit_Order cannot be defined for record extensions", Nam); @@ -5350,10 +5348,8 @@ package body Sem_Ch13 is Flag_Non_Static_Expr ("Bit_Order requires static expression!", Expr); - else - if (Expr_Value (Expr) = 0) /= Bytes_Big_Endian then - Set_Reverse_Bit_Order (Base_Type (U_Ent), True); - end if; + elsif (Expr_Value (Expr) = 0) /= Bytes_Big_Endian then + Set_Reverse_Bit_Order (Base_Type (U_Ent), True); end if; end if; |