From: Lutz Donnerhacke <lutz@iks-jena.de>
Subject: Re: Problem with anonymous arrays
Date: Sat, 24 Apr 2004 23:26:53 +0000 (UTC)
Date: 2004-04-24T23:26:53+00:00 [thread overview]
Message-ID: <slrnc8lttt.qtu.lutz@belenus.iks-jena.de> (raw)
In-Reply-To: pan.2004.04.24.22.46.34.167167@wanadoo.fr
* Delf wrote:
> 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;
>
> When I compile, I obtain the following message:
> Giratoire.adb:17:17: anonymous arrays not allowed as components
>
> What I have to modify ?
type Bool_Array is array (0 .. (N-1) of Boolean;
protected type Choice is
...
WantToGo : Bool_Array := (others => False);
end Choice;
next prev parent reply other threads:[~2004-04-24 23:26 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 [this message]
2004-04-25 0:29 ` Delf
2004-04-25 8:10 ` Delf
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