diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-19 14:11:22 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-19 14:11:22 +0100 |
| commit | 9849a7ea00a4af3f43a2c0df64484b7ae5a5f0e7 (patch) | |
| tree | 8535c4534c6da2d0d2300bd34d8ea42b4008ba4a | |
| parent | 58d27da9306d829548d5343d70b3562d95186a55 (diff) | |
| download | gcc-9849a7ea00a4af3f43a2c0df64484b7ae5a5f0e7.zip gcc-9849a7ea00a4af3f43a2c0df64484b7ae5a5f0e7.tar.gz gcc-9849a7ea00a4af3f43a2c0df64484b7ae5a5f0e7.tar.bz2 | |
Minor reformatting.
From-SVN: r244632
| -rw-r--r-- | gcc/ada/exp_dbug.adb | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index a51af01..a2ddfc3 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -334,6 +334,7 @@ package body Exp_Dbug is procedure Enable_If_Packed_Array (N : Node_Id) is T : constant Entity_Id := Underlying_Type (Etype (N)); + begin Enable := Enable or else (Ekind (T) in Array_Kind @@ -391,14 +392,18 @@ package body Exp_Dbug is when N_Selected_Component => declare First_Bit : constant Uint := - Normalized_First_Bit (Entity (Selector_Name (Ren))); + Normalized_First_Bit + (Entity (Selector_Name (Ren))); + begin Enable := - (Enable - or else Is_Packed (Underlying_Type (Etype (Prefix (Ren)))) - or else (First_Bit /= No_Uint - and then First_Bit /= Uint_0)); + Enable + or else Is_Packed + (Underlying_Type (Etype (Prefix (Ren)))) + or else (First_Bit /= No_Uint + and then First_Bit /= Uint_0); end; + Prepend_String_To_Buffer (Get_Name_String (Chars (Selector_Name (Ren)))); Prepend_String_To_Buffer ("XR"); |