Re: How to wait for task completion

[jsa@alexandria (Jon S Anthony)]

In article <01bba4c7$fa9f4650$2d208b82@wd> "wiljan" <W.Derks@nl.cis.philips.com> writes:

> So my question is how to make this program work:
>    task type xtask;
>    task body xtask is
>    begin
>        null;
>    end xtask;
>    type pxtask is access xtask;
> 
>    for i in integer'range loop
>       declare p:pxtask:=new xtask;
>    end loop;
> The program can be made working when doing a lot of adminstrating
> on the pointers to the objects created in the main program.
> I actually want to deallalocate them in the task itself when they complete.

OK, I don't get it.  There is something about this that is not yet
sufficiently described with respect to what it is you want to achieve.
The above sort of program can be "made to work" by:

    for I in Integer'Range loop
        declare
            P : Xtask;
        begin
            null;
        end;
    end loop;
or
    for I in Integer'Range loop
        declare
            type Pxtask is access Xtask;
            P : Pxtask := new Xtask;
        begin
            null;
        end;
        -- Storage associated with Pxtask is freed.
    end loop;

Since you are not keeping the tasks around after the loop, either of
these will work (though it is hard to see any reason for choosing the
second version).  But, I have the feeling this doesn't really address
what you are after.  So, just what is it you really want?

/Jon
-- 
Jon Anthony
Organon Motives, Inc.
1 Williston Road, Suite 4
Belmont, MA 02178

617.484.3383
jsa@organon.com