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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a6b:2306:: with SMTP id
 j6-v6mr5748509ioj.51.1531665173748;
        Sun, 15 Jul 2018 07:32:53 -0700 (PDT)
X-Received: by 2002:aca:de07:: with SMTP id v7-v6mr2979132oig.5.1531665173488;
 Sun, 15 Jul 2018 07:32:53 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!feeder.erje.net!1.eu.feeder.erje.net!ecngs!feeder2.ecngs.de!feeds.phibee-telecom.net!newsfeed.xs4all.nl!newsfeed8.news.xs4all.nl!85.12.16.69.MISMATCH!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!d7-v6no4396210itj.0!news-out.google.com!n194-v6ni3864itg.0!nntp.google.com!d7-v6no4396209itj.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 15 Jul 2018 07:32:53 -0700 (PDT)
In-Reply-To: <7306c5a4-7810-4e5d-9896-124b9841832b@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a00:6020:19ff:e600:6144:da6:4911:79ed;
 posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
NNTP-Posting-Host: 2a00:6020:19ff:e600:6144:da6:4911:79ed
References: <1c73f159-eae4-4ae7-a348-03964b007197@googlegroups.com>
 <878t9nemrl.fsf@nightsong.com>
 <d64089d4-af9d-43d9-b72b-a73d3fff1f00@googlegroups.com>
 <bf8f8498-f017-47dd-bf1f-188c7ceb5b28@googlegroups.com>
 <62df3c25-057c-4cc5-a899-b91413613b83@googlegroups.com>
 <pici0g$svr$1@gioia.aioe.org>
 <7306c5a4-7810-4e5d-9896-124b9841832b@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <7147d726-65bf-4bda-8a6b-bc858a65a42a@googlegroups.com>
Subject: 
 =?UTF-8?B?UmU6IEhvdyB0byBnZXQgQWRhIHRvIOKAnGNyb3NzIHRoZSBjaGFzbeKAnT8=?=
From: AdaMagica <christ-usch.grein@t-online.de>
Injection-Date: Sun, 15 Jul 2018 14:32:53 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 2208
X-Received-Body-CRC: 2374797012
Xref: reader02.eternal-september.org comp.lang.ada:53824
Date: 2018-07-15T07:32:53-07:00
List-Id: <comp.lang.ada>

Am Samstag, 14. Juli 2018 16:28:16 UTC+2 schrieb Shark8:
> * Protected objects (What's in the private section ought to be the body, IMO.)
>        protected type Signal_Object is
>           entry Wait;
>           procedure Signal;
>           function Is_Open return Boolean;
>        private
>           Open : Boolean := False; -- WHY ARE WE EXPOSING THIS?
>        end Signal_Object;

Where is the problem? I don't see one. It's not more exposed than

package P is
  type X is private;
private
  type X is record
    I: Integer;
  end record;
end P;