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,23211966662bb231,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-03-19 05:58:44 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!sunqbc.risq.qc.ca!news.uunet.ca!nnrp1.uunet.ca.POSTED!not-for-mail Reply-To: "Mattimus" From: "Mattimus" Newsgroups: comp.lang.ada Subject: Help: Type not accessible 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: Date: Tue, 19 Mar 2002 08:58:40 -0500 NNTP-Posting-Host: 209.47.1.82 X-Trace: nnrp1.uunet.ca 1016546322 209.47.1.82 (Tue, 19 Mar 2002 08:58:42 EST) NNTP-Posting-Date: Tue, 19 Mar 2002 08:58:42 EST Organization: UUNET Canada News Reader Service Xref: archiver1.google.com comp.lang.ada:21451 Date: 2002-03-19T08:58:40-05:00 List-Id: Ok guys here's the jist of what I have. package Navs is type Nav is tagged record Position : Integer; end record; type Navpointer is access all Nav; function Getposition (Anav : in Nav) return Integer; procedure Setposition (Anav : in out Nav; Anint : in Integer); end Navs; with Navs; use Navs; with Navinterfaces; use Navinterfaces; with Displays; use Displays; with Ada.Text_Io; use Ada.Text_Io; procedure Main is Mynav : aliased Nav; Pointer_To_Nav : Navpointer; begin --create a pointer to the nav to give to the nav interface Pointer_To_Nav := Mynav'Access; <--- THIS LINE WILL NOT COMPILE It tells me that 'Mynav is not accessible from access all nav'. Can someone please help. I have no idea what to do here, or what is causing it. Thanks a lot guys.