Lines Matching defs:Create_Packed_Array_Type
762 procedure Create_Packed_Array_Type (Typ : Entity_Id) is subprogram
763 Loc : constant Source_Ptr := Sloc (Typ);
764 Ctyp : constant Entity_Id := Component_Type (Typ);
765 Csize : constant Uint := Component_Size (Typ);
767 Ancest : Entity_Id;
768 PB_Type : Entity_Id;
769 PASize : Uint;
770 Decl : Node_Id;
771 PAT : Entity_Id;
772 Len_Dim : Node_Id;
773 Len_Expr : Node_Id;
774 Len_Bits : Uint;
775 Bits_U1 : Node_Id;
776 PAT_High : Node_Id;
777 Btyp : Entity_Id;
778 Lit : Node_Id;
780 procedure Install_PAT;
784 procedure Set_PB_Type;
792 procedure Install_PAT is
897 -- Start of processing for Create_Packed_Array_Type argument