From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: *
X-Spam-Status: No, score=1.5 required=3.0 tests=BAYES_50,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no
	version=3.4.5-pre1
X-Received: by 2002:a37:6ca:: with SMTP id 193mr13870372qkg.436.1613835301172;
        Sat, 20 Feb 2021 07:35:01 -0800 (PST)
X-Received: by 2002:a25:4ce:: with SMTP id 197mr21024610ybe.462.1613835301001;
 Sat, 20 Feb 2021 07:35:01 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 20 Feb 2021 07:35:00 -0800 (PST)
In-Reply-To: <4d2daa8c-c159-48a4-bdf7-e9aa3b537bcan@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=85.240.208.106; posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT
NNTP-Posting-Host: 85.240.208.106
References: <4d2daa8c-c159-48a4-bdf7-e9aa3b537bcan@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9df86116-6373-484f-b477-55439c88a492n@googlegroups.com>
Subject: Re: set_index and and end_of_file with just a stream reference
From: Mehdi Saada <00120260a@gmail.com>
Injection-Date: Sat, 20 Feb 2021 15:35:01 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61389
List-Id: <comp.lang.ada>

By the way, what was the rational behind this  entry format ?
Why don't we just have protected procedure ... when ... is and protected function ... when ... is ?