Newbie access type help

["Mattimus" <mattisgrat@yahoo.ca>]

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;