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,MAILING_LIST_MULTI,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f76dd8b9e12e409a
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-05-07 06:02:02 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!fr.usenet-edu.net!usenet-edu.net!enst!enst.fr!not-for-mail
From: "David C. Hoos" <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
Subject: Re: Access to subprogram
Date: Tue, 7 May 2002 08:01:33 -0500
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.1020776522.17239.comp.lang.ada@ada.eu.org>
References: <ab8i70$rgb$1@newstoo.ericsson.se>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Trace: avanie.enst.fr 1020776522 66322 137.194.161.2 (7 May 2002 13:02:02
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Tue, 7 May 2002 13:02:02 +0000 (UTC)
Return-Path: <david.c.hoos.sr@ada95.com>
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0.8
Precedence: bulk
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=subscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
Xref: archiver1.google.com comp.lang.ada:23640
Date: 2002-05-07T08:01:33-05:00


----- Original Message ----- 
From: "Sebastian" <sebastian.madunic@avionics.saab.se>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Tuesday, May 07, 2002 7:47 AM
Subject: Access to subprogram


> What is the meaning of this
> " subprogram must not be deeper than access type"
It means exactly what it says.  You're trying to take the access
value of a subprogram that is nested more deeply than is the
place where the access type is declared.

To remedy this, you need to do one of two things, viz.:

   1.  Declare the subprogram at library level -- i.e., not in
        a package or nested within another subprogram

   2.  Use 'Unrestricted_Access instead of 'Access, if you're
        using GNAT, and if your are certain that the lifetime of
        the subprogram is at least as long as the lifetime of the
        access type.