Re: Run-Time Type Assignment

[sk <noname@myob.com>]

Hi,

Without knowing exactly what you are wanting to do 
(the complex nesting of types would make me consider 
about rethinking my data modeling), try this 
(compiles Linux 3.14p. Also q&d so don't know how 
usable this is).

---------------------------------------------------------

procedure xxxx is 

    type Base_Type is abstract tagged null record;

    type Parm1_Type is new Natural;
    type Parm2_Type is new Character;
    type Parm3_Type is new Integer;

    type Level_One is new Base_Type with record
        Parm1 : Parm1_Type;
    end record;
    
    type Level_Two is new Level_One with record
        Parm2 : Parm2_Type;
    end record;
    
    type Level_Three is new Level_Two with record
        Parm3 : Parm3_Type;
    end record;

    type Base_Access is access all Base_Type;

    type Main_Type (Parms : Base_Access) is null record;

begin
    null;
end xxxx;

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------