Task identity

[williams@CRC.SKL.DND.CA (Dave Williamson)]

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