OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests 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
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");