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_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,acefc8d2b252a0d9,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-26 07:01:33 PST
Newsgroups: comp.lang.ada
Subject: Tasks sharing a protected object
From: Martin Magnusson <mama7121@mink.it.uu.se>
Date: 26 Oct 2001 16:01:26 +0200
Message-ID: <n6i669233gp.fsf@mink.it.uu.se>
User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Host: mink.it.uu.se
X-Trace: 26 Oct 2001 16:01:28 +0100, mink.it.uu.se
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!195.158.233.21!news1.ebone.net!news.ebone.net!news.net.uni-c.dk!newsfeed.sunet.se!news01.sunet.se!newsfeed.uu.se!mink.it.uu.se
Xref: archiver1.google.com comp.lang.ada:15241
Date: 2001-10-26T16:01:26+02:00
List-Id: <comp.lang.ada>

I want to have two tasks sharing a protected object with data used by
both tasks. How do I make them see the same object? I have three
files defining the different types, skeletons for them are shown
below. How can I set the object to use when declaring the task types?

--------

package Agent is
   task type Agent_Task is
      ...
end Agent;

--------

package Environment is
   task type Environment_Task is
      ...
end Environment;

--------

package Shared_Data is
   protected type Shared_Data_Type is
      ...
end Shared_Data;