Lines Matching defs:Create_Packed_Array_Type
696 procedure Create_Packed_Array_Type (Typ : Entity_Id) is subprogram
697 Loc : constant Source_Ptr := Sloc (Typ);
698 Ctyp : constant Entity_Id := Component_Type (Typ);
699 Csize : constant Uint := Component_Size (Typ);
701 Ancest : Entity_Id;
702 PB_Type : Entity_Id;
703 Esiz : Uint;
704 Decl : Node_Id;
705 PAT : Entity_Id;
706 Len_Dim : Node_Id;
707 Len_Expr : Node_Id;
708 Len_Bits : Uint;
709 Bits_U1 : Node_Id;
710 PAT_High : Node_Id;
711 Btyp : Entity_Id;
712 Lit : Node_Id;
714 procedure Install_PAT;
718 procedure Set_PB_Type;
726 procedure Install_PAT is
821 -- Start of processing for Create_Packed_Array_Type argument