Skip to content

R
riscv-gcc-1
Commit 9849a7ea by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r244632
parent 58d27da9
Showing with 10 additions and 5 deletions
gcc/ada/exp_dbug.adb
...@@ -334,6 +334,7 @@ package body Exp_Dbug is ...@@ -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 ...@@ -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");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment