Minor reformatting.
authorArnaud Charlet <charlet@gcc.gnu.org>
Thu, 19 Jan 2017 13:11:22 +0000 (14:11 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Thu, 19 Jan 2017 13:11:22 +0000 (14:11 +0100)
From-SVN: r244632

gcc/ada/exp_dbug.adb

index a51af01f1b09add7864435d8c0b51e72bf2fd88c..a2ddfc369d42706da2c3f87bb777cefbc983554e 100644 (file)
@@ -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");