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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,530474eb5e6fefe1,start
X-Google-Attributes: gid103376,public
From: "Raymond C. Rawa" <rcr@b.com>
Subject: using 'address to make indrect calls
Date: 1999/06/29
Message-ID: <3779194C.45EA@b.com>#1/1
X-Deja-AN: 495321008
Content-Transfer-Encoding: 7bit
Sender: nntp@news.boeing.com (Boeing NNTP News Access)
X-Nntp-Posting-Host: mac-herbert.he.boeing.com
Content-Type: text/plain; charset=us-ascii
Organization: The Boeing Company
Mime-Version: 1.0
Reply-To: rcr@b.com
Newsgroups: comp.lang.ada
Date: 1999-06-29T00:00:00+00:00
List-Id: <comp.lang.ada>

I'm getting a scary warning message from VADSself for SPARC Solaris 2.3,
Version 6.2 when I compile the example below.

Can someone please explain what is meant by an "uplevel reference"?  And
when I should be concerned?

Thanks,
Raymond C. Rawa


***********************************  test.a 
***********************************

   1:generic 
   2:package G_PKG is
   3:end G_PKG;
   4:
   5:with system;
   6:package body G_PKG is
   7:   procedure a is
   8:      loc : SYSTEM.Address;
   9:   begin
  10:      loc := a'Address;
  11:   end a;
  12:end G_PKG;
  13:
  14:with G_PKG;
  15:procedure test is
  16:   package g is new G_PKG;
A --------------^
A:warning: using this address to make an indirect call may produce
unpredictable results if the subprogram makes uplevel references.
A:warning:	at line: 10 column: 14 within generic g_pkg in file:
/MV22/system/rawa/jass_3.2/jass_stubs.ss/dev.wrk/test/test.a
  17:begin
  18:   null;
  19:end test;