begin
pragma Assert (Is_Bit_Packed_Array (Etype (Prefix (Lhs))));
+ if CodePeer_Mode then
+ return;
+ end if;
+
Obj := Relocate_Node (Prefix (Lhs));
Convert_To_Actual_Subtype (Obj);
Atyp := Etype (Obj);
Offset : Node_Id;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
-- We build an expression that has the form
-- outer_object'Address
Offset : Node_Id;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
-- We build an expression that has the form
-- (linear-subscript * component_size for each array reference
PAT : Entity_Id;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
Convert_To_Actual_Subtype (L);
Convert_To_Actual_Subtype (R);
Arg : Node_Id;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
-- If the node is an actual in a call, the prefix has not been fully
-- expanded, to account for the additional expansion for in-out actuals
-- (see expand_actuals for details). If the prefix itself is a packed
PAT : Entity_Id;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
Convert_To_Actual_Subtype (L);
Convert_To_Actual_Subtype (R);
Ltyp := Underlying_Type (Etype (L));
Size : Unat;
begin
+
+ if CodePeer_Mode then
+ return;
+ end if;
+
Convert_To_Actual_Subtype (Opnd);
Rtyp := Etype (Opnd);