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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9828c94314b4e79a,start
X-Google-Attributes: gid103376,public
From: Paul Van Gorp <paulvg@eelab.su.oz.au>
Subject: Task question...
Date: 1997/10/16
Message-ID: <344580FA.478A@eelab.su.oz.au>#1/1
X-Deja-AN: 281737794
Distribution: inet
Organization: University of sydney
Newsgroups: comp.lang.ada
Date: 1997-10-16T00:00:00+00:00
List-Id: <comp.lang.ada>


Hi, I have this strange problem when using tasking in Ada95

compiler: GNAT 3.10p1
OS: micro$oft w95.

Im looking for a way to accomplish the following (im sure there exists a
simple soln!)

task type t1 is
	entry reply;
	...
end t1;

task type t2 is
	...
end t2;

task body t1 is
	T: t2;
begin
	loop
		select
			accept reply;
			T.do_something;
			...
		or
			...
			T.do_something_else;
			...
		end select;
	end loop;
end t1;

task body t2 is
begin
	loop
		select
			...
			-- what I want here, is to invoke t1.reply
			-- from within different instances of T1
			-- if you know what I mean
		end select;
	end loop;
end t2;

so, if I went something like...

taska, taskb: t1;

each taska and taskb would have its own instance of T, which they
could rendezvous with easily enough with T.whatever, but how could that
task T rendezvous with the task that called it ?

Thanks in advance..

Paul

	...