comp.lang.ada
 help / color / mirror / Atom feed
From: Adam Beneschan <adam@irvine.com>
Subject: Re: Constructor for a class with a task defined
Date: Wed, 31 Aug 2011 18:40:15 -0700 (PDT)
Date: 2011-08-31T18:40:15-07:00	[thread overview]
Message-ID: <b3274dc8-3d7c-4a2e-ac53-7b3629253ac5@p37g2000prp.googlegroups.com> (raw)
In-Reply-To: dc23e007-fd67-41c4-a00b-1c137961b4a0@glegroupsg2000goo.googlegroups.com

On Aug 31, 5:31 pm, "Rego, P." <pvr...@gmail.com> wrote:
> I'm trying to implement a Constructor method for a class which have a task type pointed to the class, so
>
> in spec:
> type Small_Class;
>
> task type My_Task_Type (This_Small_Class : access Small_Class);
>
> type Small_Class is tagged limited
>       record
>          My_Task      : My_Task_Type (Small_Class'Access);
>       end record;
>
> and in body:
>
> function Construct return access Small_Class is
>    begin
>       return new Small_Class'(My_Task => ???????);
> end Construct;
>
> So, how can I do it?

I would think

  return new Small_Class'(My_Task => <>);

should work.

                       -- Adam





  reply	other threads:[~2011-09-01  1:40 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-09-01  0:31 Constructor for a class with a task defined Rego, P.
2011-09-01  1:40 ` Adam Beneschan [this message]
2011-09-01  4:54   ` Jeffrey Carter
2011-09-01 10:13 ` Simon Wright
2011-09-03 15:18   ` Rego, P.
2011-09-03 22:11     ` Robert A Duff
2011-09-05  9:37       ` Georg Bauhaus
2011-09-08 10:22       ` Rego, P.
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox