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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,703c4f68db81387d
X-Google-Thread: 109fba,703c4f68db81387d
X-Google-Thread: 115aec,703c4f68db81387d
X-Google-Thread: f43e6,703c4f68db81387d
X-Google-Attributes: gid103376,gid109fba,gid115aec,gidf43e6,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!proxad.net!newsfeed.tpinternet.pl!skynet.be!skynet.be!newspost001!tjb!not-for-mail
Date: Sat, 05 Mar 2005 22:45:22 +0100
From: Adrien Plisson <aplisson-news@stochastique.net>
Reply-To: aplisson-news@stochastique.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: fr-be, fr, en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada,comp.lang.c++,comp.realtime,comp.software-eng
Subject: Re: [OT] Re: Teaching new tricks to an old dog (C++ -->Ada)
References: <4229bad9$0$1019$afc38c87@news.optusnet.com.au>
 <1110032222.447846.167060@g14g2000cwa.googlegroups.com>
 <871xau9nlh.fsf@insalien.org>
 <3SjWd.103128$Vf.3969241@news000.worldonline.dk>
 <87r7iu85lf.fsf@insalien.org> <1110052142.832650@athnrd02>
 <87eket97gp.fsf@insalien.org> <1110055473.613245@athnrd02>
 <422a26aa$0$20679$ba620e4c@news.skynet.be>
In-Reply-To: <422a26aa$0$20679$ba620e4c@news.skynet.be>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <422a27ed$0$30172$ba620e4c@news.skynet.be>
Organization: -= Belgacom Usenet Service =-
NNTP-Posting-Host: d4005169.news.skynet.be
X-Trace: 1110058989 news.skynet.be 30172 217.136.169.3:15237
X-Complaints-To: usenet-abuse@skynet.be
Xref: g2news1.google.com comp.lang.ada:8684 comp.lang.c++:44226
 comp.realtime:968 comp.software-eng:4499
Date: 2005-03-05T22:45:22+01:00
List-Id: <comp.lang.ada>

i just forgot some implementation details in my example. here is the 
complete example:

protected Index is
     procedure Set( I : Integer );
     function Get return Integer;
private
     Value : Integer;
end Index;

protected body Index is
     procedure Set( I : Integer ) is
     begin
         Value := I;
     end Set;

     function Get return Integer is
     begin
         return Value;
     end Get;
end Index;

task Do_Something;
task Do_Something_Else;

task body Do_Something is
begin
     -- use Index as you wish
end Do_Something;

task body Do_Something_Else is
begin
     -- use Index as you wish
end Do_Something_Else;

-- 
rien