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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d6c75b0f89a0f085
X-Google-Attributes: gid103376,public
From: dennison@telepath.com
Subject: Re: What's wrong with this code?
Date: 1999/04/20
Message-ID: <7fig4m$5f5$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 468739261
References: <7fi85m$sb3$1@nnrp1.dejanews.com>
 <7fiegr$43q$1@nnrp1.dejanews.com>
X-Http-Proxy: 1.0 x7.dejanews.com:80 (Squid/1.1.22) for client 204.48.27.130
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Tue Apr 20 18:13:46 1999 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.5 [en] (WinNT; I)
Date: 1999-04-20T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <7fiegr$43q$1@nnrp1.dejanews.com>,
  dennison@telepath.com wrote:
> In article <7fi85m$sb3$1@nnrp1.dejanews.com>,
>   okellogg@my-dejanews.com wrote:
> > Dear colleagues:
> >
> > I can't find what wrong with this code (see full declaration of type Alarm.)
> > Perhaps someone would like to comment?
>
> >     type Alarm is tagged limited
> >         record
> >             -- This compiles alright:
> >             Semaphore : Alarm_Semaphore (Alarm'Access);
> >
> >             -- But here, GNAT 3.11p says:
> >             --  "Access" attribute cannot be applied to type
> >             Alarm_State_Pool : Alarm_State_Pool_At :=
> >                (Snafu => new Snafu_State (Alarm'Access),
> >                 Data => new Data_State (Alarm'Access),
> >                 Proposal => new Proposal_State (Alarm'Access));
> >
> >         end record;
> >
> > end Alarm_Model;
>
> That's probably because 'Access can't be applied to a type. :-)

Drat.

Before anyone else flames me: yes, I had forgotten about the "current
instance" rule. From what I can see in the LRM its supposed to be valid
anywhere "within the declarative region of a type_declaration". So now I'm
also curious why the compiler doesn't like it.

I tried adding the following declarations:
    type Alarm_List is array (1..2) of Alarm_P;

    type Alarm is tagged limited
    ...
            Al : Alarm_List := (others => Alarm'Access);

And got this error (on the "Al" field) instead:
alarm_model.ads:52:43: non-local pointer cannot point to local object


--
T.E.D.

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own