1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
5 -- ADA.TAGS.GENERIC_DISPATCHING_CONSTRUCTOR --
9 -- This specification is adapted from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
17 type T (<>) is abstract tagged limited private;
18 type Parameters (<>) is limited private;
19 with function Constructor (Params : access Parameters) return T is abstract;
21 function Ada.Tags.Generic_Dispatching_Constructor
22 (The_Tag : Tag; Params : access Parameters) return T'Class;
24 -- pragma Preelaborate (Generic_Dispatching_Constructor);
25 -- Commented out temporarily because various other predefined units do not
26 -- yet have proper categorization as specified by AI-362 (such as Ada.Tags,
27 -- Ada.Exceptions, etc.).
29 pragma Import (Intrinsic, Generic_Dispatching_Constructor);