Re: Cloning a Class Wide Data Type with "new"?

["Jean-Pierre Rosen" <rosen@adalog.fr>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 882 bytes --]


"Warren W. Gay VE3WWG" <ve3wwg@cogeco.ca> a �crit dans le message news:
3EE097D5.2010901@cogeco.ca...
> I havn't had much time to research this one yet, but I've
> got stuck trying to clone a class wide type this morning,
> on my way to work. A sample program is provided below.
>
> I need to be able to allocate and then copy an arbitrary
> tagged type (based upon a base type) into the newly
> allocated object. There's gotta be a way to do this..
> I just can't remember it!
>
> The problem is the operation of the form of :
>
>    Cloned : Base_Access := new Base_Class'(Orig);
>

   Cloned : Base_Access := new Base_Class'class'(Orig);

Hey, in Ada types must conform, and Base_Access is an access to
Base_Access'Class!

--
---------------------------------------------------------
           J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr