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-Thread: 103376,319dd710e797e8a2
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!proxad.net!212.101.4.254.MISMATCH!solnet.ch!solnet.ch!zen.net.uk!dedekind.zen.co.uk!news.anlx.net!caladan!news-peer-lilac.gradwell.net!not-for-mail
From: "Martin Dowie" <martin.dowie@baesystems.com>
Newsgroups: comp.lang.ada
References: <dhdj5p$o6r$1@sunnews.cern.ch>
Subject: Re: Protected type defined in the procedure
Date: Wed, 28 Sep 2005 10:18:16 +0100
Organization: BAE SYSTEMS
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1506
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506
Message-ID: <433a5deb_1@glkas0286.greenlnk.net>
X-Original-NNTP-Posting-Host: glkas0286.greenlnk.net
NNTP-Posting-Date: 28 Sep 2005 09:19:16 GMT
NNTP-Posting-Host: 20.133.0.1
X-Trace: 1127899156 news.gradwell.net 38044 dnews/20.133.0.1
X-Complaints-To: news-abuse@gradwell.net
Xref: g2news1.google.com comp.lang.ada:5227
Date: 2005-09-28T09:19:16+00:00
List-Id: <comp.lang.ada>

Yes, you can, e.g.:

with Ada.Text_IO; use Ada.Text_IO;

procedure Test_Prot_Task_Comms is
   protected type A_Resource is
      entry Seize;
      procedure Release;
   private
      Busy : Boolean := False;
   end A_Resource;
   protected body A_Resource is
      entry Seize when not Busy is
      begin
         Busy := True;
      end Seize;
      procedure Release is
      begin
         Busy := False;
      end Release;
   end A_Resource;
   This_Resource : A_Resource;
   task Foo;
   task body Foo is
   begin
      loop
         This_Resource.Seize;
         Put_Line ("Task");
         This_Resource.Release;
         delay 1.0;
      end loop;
   end Foo;
begin
   delay 1.0;
   loop
      This_Resource.Seize;
      Put_Line ("Main");
      This_Resource.Release;
      delay 3.0;
   end loop;
end Test_Prot_Task_Comms;