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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e2e6547249e6f9d1,start
X-Google-Attributes: gid103376,public
From: "wiljan" <W.Derks@nl.cis.philips.com>
Subject: How to wait for task completion
Date: 1996/09/15
Message-ID: <01bba2e8$c45aad90$35208b82@wd>#1/1
X-Deja-AN: 180726669
organization: Philips Electronics N.V.
newsgroups: comp.lang.ada
Date: 1996-09-15T00:00:00+00:00
List-Id: <comp.lang.ada>


Is there a simply way to wait until a task has completed in Ada?
I have a pointer to a task type:
      task type tsk;
      type ptsk is access tsk;
      p:ptsk;
At a certain point I want to clean up the resources that the task is
using but this can only be done when the task is completed.
One can do something like:
    while not p.all'terminated loop
        delay 0.01;
    end loop
Another option whould be to define an entry for the task and call that
entry. When the task terminated then the entry will raise a tasking error.

I have the idea that there must be a simpler way to accomplish this.

Wiljan