From 9849a7ea00a4af3f43a2c0df64484b7ae5a5f0e7 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 19 Jan 2017 14:11:22 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r244632 --- gcc/ada/exp_dbug.adb | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index a51af01f1b0..a2ddfc369d4 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"); -- 2.30.2