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
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");