Commit 9849a7ea by Arnaud Charlet

Minor reformatting.

From-SVN: r244632
parent 58d27da9
......@@ -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");
......
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