From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Constructors with multiple inheritance
Date: Thu, 29 Sep 2011 22:20:24 +0200
Date: 2011-09-29T22:20:24+02:00 [thread overview]
Message-ID: <1rj1mmkvwud1d.dzqoy4jhdfca$.dlg@40tude.net> (raw)
In-Reply-To: 11513972.2788.1317325228383.JavaMail.geo-discussion-forums@yqnv12
On Thu, 29 Sep 2011 12:40:28 -0700 (PDT), Rego, P. wrote:
> So, the packages are declared as
>
[...]
> with Parent_Package;
> procedure Parent_Main is
> Obj : Parent_Package.Parent_Class_Ptr;
> begin
> Obj := Obj.Construct;
This is equivalent to:
Obj := Construct (Obj.all);
But Obj is null.
> So, how can I fix this?
I don't understand your design, but a constructing function of a
non-limited type is just:
function Construct return Parent_Class;
And you don't need it because it has no parameters. Derive Parent_Class
from Ada.Finalization.Controlled and override Initialize.
P.S. I also see no MI in your design.
--
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2011-09-29 20:20 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-09-29 19:40 Constructors with multiple inheritance Rego, P.
2011-09-29 20:20 ` Dmitry A. Kazakov [this message]
2011-09-30 3:11 ` Rego, P.
2011-09-30 7:36 ` Dmitry A. Kazakov
2011-09-30 14:04 ` Rego, P.
2011-09-30 16:29 ` Robert A Duff
2011-09-30 19:14 ` Rego, P.
2011-09-30 16:42 ` Dmitry A. Kazakov
2011-09-30 19:42 ` Rego, P.
2011-10-06 12:46 ` Julian Leyh
2011-11-09 2:24 ` Rego, P.
2011-11-09 8:39 ` Dmitry A. Kazakov
2011-11-10 3:47 ` Rego, P.
2011-11-10 7:09 ` AdaMagica
2011-11-10 7:20 ` AdaMagica
2011-11-10 8:35 ` Dmitry A. Kazakov
2011-11-12 15:16 ` Rego, P.
2011-11-12 15:30 ` Rego, P.
2011-11-12 16:28 ` Dmitry A. Kazakov
2011-11-12 17:41 ` Rego, P.
2011-11-10 8:33 ` Simon Wright
2011-11-10 9:01 ` Georg Bauhaus
2011-11-10 9:09 ` Georg Bauhaus
2011-11-10 18:16 ` Jeffrey Carter
2011-11-10 19:39 ` Dmitry A. Kazakov
2011-11-09 9:00 ` Simon Wright
2011-11-10 3:54 ` Rego, P.
2011-10-07 0:08 ` Shark8
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox