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,ba5a88c05a7ac9bb
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-04-25 11:01:48 PST
Path: 
 archiver1.google.com!news1.google.com!news.glorb.com!border1.nntp.ash.giganews.com!nntp.giganews.com!newshosting.com!nx01.iad01.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!news-FFM2.ecrc.net!news.iks-jena.de!not-for-mail
From: Lutz Donnerhacke <lutz@iks-jena.de>
Newsgroups: comp.lang.ada
Subject: Re: Problem with anonymous arrays
Supersedes: <slrnc8nv20.1ku.lutz@belenus.iks-jena.de>
Date: Sun, 25 Apr 2004 18:01:48 +0000 (UTC)
Organization: IKS GmbH Jena
Message-ID: <slrnc8nv8c.1ku.lutz@belenus.iks-jena.de>
References: <pan.2004.04.24.22.46.34.167167@wanadoo.fr>
 <pan.2004.04.25.08.10.33.660305@wanadoo.fr>
NNTP-Posting-Host: belenus.iks-jena.de
X-Trace: branwen.iks-jena.de 1082916108 1543 217.17.192.34 (25 Apr 2004
 18:01:48 GMT)
X-Complaints-To: usenet@iks-jena.de
NNTP-Posting-Date: Sun, 25 Apr 2004 18:01:48 +0000 (UTC)
User-Agent: slrn/0.9.8.0 (Linux)
Xref: archiver1.google.com comp.lang.ada:7478
Date: 2004-04-25T18:01:48+00:00
List-Id: <comp.lang.ada>

* Delf wrote:
> entry EnterGiratoire (I: Integer) when NbCarsOnRP = 0 or (NbCarsOnRP > 0
> and NbCarsOnRP < MAXCARS and I = WhoCanPass) is
>
> But gnatmake says: Giratoire.adb:35:109: "I" is undefined

I is defined AFTER the guard is passed.
If you like to provide parameters TO the guard you have to use entry families:

type Family is range 1 .. 16;
protected type XXX is
  entry EnterGiratoire(Family)(other: Parameter);
end XXX;

protected body XXX is
  entry EnterGiratoire(for I in Family)(other : Parameter)
   when ... I = WhoCanPass is
  begin
     ...
  end EnterGiratoire;
end XXX;

Please note, that entry families can be instantiated as separate procedures
for each possible value of the family parameter. So the usable range of
values is limited. GNAT allows the whole Integer range, but fails miserably
in instantiating with Storage_Error.