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=-0.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	REPLYTO_WITHOUT_TO_CC,XPRIO autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fd8feef4281a0db0,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-05 13:31:13 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!sunqbc.risq.qc.ca!news.uunet.ca!nnrp1.uunet.ca.POSTED!not-for-mail
Reply-To: "Mattimus" <mattisgrat@yahoo.ca>
From: "Mattimus" <mattisgrat@yahoo.ca>
Newsgroups: comp.lang.ada
Subject: Newbie access type help
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <zOah8.26041$X2.271097@nnrp1.uunet.ca>
Date: Tue, 5 Mar 2002 16:31:08 -0500
NNTP-Posting-Host: 209.47.1.82
X-Trace: nnrp1.uunet.ca 1015363871 209.47.1.82 (Tue, 05 Mar 2002 16:31:11 EST)
NNTP-Posting-Date: Tue, 05 Mar 2002 16:31:11 EST
Organization: UUNET Canada News Reader Service
Xref: archiver1.google.com comp.lang.ada:20827
Date: 2002-03-05T16:31:08-05:00
List-Id: <comp.lang.ada>

Hi Gurus,

I just started using Ada and am having some troubles with access types.
I have posted my very simple code below hoping someonce can help me. The
problem I am having occurs when trying to use the 'Access attribute of an
object. The compiler I am using is Apex NT, the error I am given is "Saw ' ,
expected OPERATOR". Can someone please point out where I am going wrong?
Please keep in mind when viewing the code sample that Nav is a package
defined elsewhere.

Thanks a bunch,
Matt


package Dispnavinterface is

    type Nav_Ptr is access all Nav;

    type Navinterface is
        record
            Navobject : aliased Nav;
            Pos_Func_Ptr : Displays.Int_Func_Ptr;
        end record;

    Atempnav : Nav_Ptr;

end Dispnavinterface

    --procedures
    procedure Initialize
                 (Aninterface : in out Navinterface; Anav : Nav);


  procedure Initialize
                 (Aninterface : in out Navinterface; Anav : Nav) is
    begin
        Aninterface.Navobject := Anav;
        Aninterface.Pos_Func_Ptr := Return_Position;
        Atempnav := (Aninterface.Navobject)'Access;  <<-- THIS GIVES AN
ERROR
    end Initialize;