Lines Matching defs:Create_Packed_Array_Type
801 procedure Create_Packed_Array_Type (Typ : Entity_Id) is subprogram
802 Loc : constant Source_Ptr := Sloc (Typ);
803 Ctyp : constant Entity_Id := Component_Type (Typ);
804 Csize : constant Uint := Component_Size (Typ);
806 Ancest : Entity_Id;
807 PB_Type : Entity_Id;
808 PASize : Uint;
809 Decl : Node_Id;
810 PAT : Entity_Id;
811 Len_Dim : Node_Id;
812 Len_Expr : Node_Id;
813 Len_Bits : Uint;
814 Bits_U1 : Node_Id;
815 PAT_High : Node_Id;
816 Btyp : Entity_Id;
817 Lit : Node_Id;
819 procedure Install_PAT;
823 procedure Set_PB_Type;
831 procedure Install_PAT is
936 -- Start of processing for Create_Packed_Array_Type argument