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.9 required=5.0 tests=BAYES_50,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!dali.cs.montana.edu!uakari.primate.wisc.edu!sdd.hp.com!wuarchive!uwm.edu!linac!att!ucbvax!CRC.SKL.DND.CA!williams
From: williams@CRC.SKL.DND.CA (Dave Williamson)
Newsgroups: comp.lang.ada
Subject: Task identity
Message-ID: <9105011802.AA08597@crc.skl.dnd.ca>
Date: 1 May 91 18:02:47 GMT
Sender: usenet@ucbvax.BERKELEY.EDU
Organization: The Internet
List-Id: <comp.lang.ada>

Given the following simplified example:

package a is
    procedure p1;
end a;

package b is
    procedure p1;
end b;

with b;
package body a is
    task t1;
    task body t1 is
    begin
        b.p1;
    end t1;

    procedure p1 is
    begin
       ....
    end p1;
end a;

with a;
package body b is
    procedure p1 is
    begin
        a.p1;
    end p1;
end b;

Is there any means available for me to determine within a.p1 that the
current thread is a.t1?  Thanks in advance.

Dave Williamson
Software Kinetics Ltd.
Ottawa, Canada
williams@crc.sofkin.ca