From: "Delf" <abuse@wanadoo.fr>
Subject: Re: Problem with anonymous arrays
Date: Sun, 25 Apr 2004 10:10:34 +0200
Date: 2004-04-25T10:09:04+02:00 [thread overview]
Message-ID: <pan.2004.04.25.08.10.33.660305@wanadoo.fr> (raw)
In-Reply-To: pan.2004.04.24.22.46.34.167167@wanadoo.fr
Le Sun, 25 Apr 2004 00:46:34 +0200, Delf a ecrit:
> /CODE/
> ...
> N: constant Integer := 4;
>
> protected Choice is
> entry EnterOnRP (I: Integer);
> procedure ExitTheRP;
> private
> WhoCanPass: Integer := -1;
> MAXCARS: Integer := 5;
> NbCarsOnRP: Integer := 0;
> WantToGo: array(0..(N - 1)) of Boolean := (0..(N - 1) => FALSE);
> end Choice;
> ...
> \CODE\
+ line
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
So I can't use I... How to do to counter this error ?
Thanks.
--
Delf
next prev parent reply other threads:[~2004-04-25 8:10 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-04-24 22:46 Problem with anonymous arrays Delf
2004-04-24 23:26 ` Lutz Donnerhacke
2004-04-25 0:29 ` Delf
2004-04-25 8:10 ` Delf [this message]
2004-04-25 17:58 ` Lutz Donnerhacke
2004-04-25 18:01 ` Lutz Donnerhacke
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox