From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5f0f4bfb0467bb19
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.33.71 with SMTP id p7mr14221338pbi.1.1317352313724;
        Thu, 29 Sep 2011 20:11:53 -0700 (PDT)
Path: 
 lh7ni7983pbb.0!nntp.google.com!news1.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: "Rego, P." <pvrego@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Constructors with multiple inheritance
Date: Thu, 29 Sep 2011 20:11:53 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <4976045.4489.1317352313370.JavaMail.geo-discussion-forums@yqjw35>
References: 
 <11513972.2788.1317325228383.JavaMail.geo-discussion-forums@yqnv12>
 <1rj1mmkvwud1d.dzqoy4jhdfca$.dlg@40tude.net>
Reply-To: comp.lang.ada@googlegroups.com
NNTP-Posting-Host: 200.148.121.121
Mime-Version: 1.0
X-Trace: posting.google.com 1317352313 13526 127.0.0.1 (30 Sep 2011 03:11:53
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 30 Sep 2011 03:11:53 +0000 (UTC)
Cc: mailbox@dmitry-kazakov.de
In-Reply-To: <1rj1mmkvwud1d.dzqoy4jhdfca$.dlg@40tude.net>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=200.148.121.121;
 posting-account=TRgI1QoAAABSsYi-ox3Pi6N-JEKKU0cu
User-Agent: G2/1.0
X-Google-Web-Client: true
Xref: news1.google.com comp.lang.ada:18215
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2011-09-29T20:11:53-07:00
List-Id: <comp.lang.ada>

> This is equivalent to:
>=20
>     Obj :=3D Construct (Obj.all);
>=20
> But Obj is null.
Yes, I agree. But that's the point. I want to reserve the address (so I can=
 build my queues from there).

> > So, how can I fix this?
>=20
> I don't understand your design, but a constructing function of a
> non-limited type is just:
>=20
>    function Construct return Parent_Class;
It works (and the current code utilizes this approach), but I cannot name i=
t a method, since I cannot call the funtion from inside the class, using so=
mething like Object.Method. So I need to fix the package.function_construct=
or call and use a call of type object.method_constructor.

> And you don't need it because it has no parameters. Derive Parent_Class
> from Ada.Finalization.Controlled and override Initialize.

Yes and no. The real code is far more complex than this. I only took the se=
veral other parameters out from (from the three classes) because the text w=
ould be very long :-)

> P.S. I also see no MI in your design.
Sorry, lacking code. I cut the MI code but still got thinking on it when I =
wrote the title. At this point there is no mi really.

I will take a look in Ada.Finalization.Controlled anyway, maybe it gives me=
 some idea.
thanks.