git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting. 

From-SVN: r244632
This commit is contained in:
Arnaud Charlet 2017-01-19 14:11:22 +01:00
parent 58d27da930
commit 9849a7ea00
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/exp_dbug.adb
View File

@ -334,6 +334,7 @@ package body Exp_Dbug is
procedure Enable_If_Packed_Array (N : Node_Id) is procedure Enable_If_Packed_Array (N : Node_Id) is
T : constant Entity_Id := Underlying_Type (Etype (N)); T : constant Entity_Id := Underlying_Type (Etype (N));
begin begin
Enable := Enable :=
Enable or else (Ekind (T) in Array_Kind Enable or else (Ekind (T) in Array_Kind
@ -391,14 +392,18 @@ package body Exp_Dbug is
when N_Selected_Component => when N_Selected_Component =>
declare declare
First_Bit : constant Uint := First_Bit : constant Uint :=
Normalized_First_Bit (Entity (Selector_Name (Ren))); Normalized_First_Bit
(Entity (Selector_Name (Ren)));
begin begin
Enable := Enable :=
(Enable Enable
or else Is_Packed (Underlying_Type (Etype (Prefix (Ren)))) or else Is_Packed
or else (First_Bit /= No_Uint (Underlying_Type (Etype (Prefix (Ren))))
and then First_Bit /= Uint_0)); or else (First_Bit /= No_Uint
and then First_Bit /= Uint_0);
end; end;
Prepend_String_To_Buffer Prepend_String_To_Buffer
(Get_Name_String (Chars (Selector_Name (Ren)))); (Get_Name_String (Chars (Selector_Name (Ren))));
Prepend_String_To_Buffer ("XR"); Prepend_String_To_Buffer ("XR");