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.4 required=5.0 tests=BAYES_00,INVALID_DATE,
	UNRESOLVED_TEMPLATE autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,682ac581ea925e5,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-11-10 07:49:11 PST
Path: 
 nntp.gmd.de!xlink.net!sol.ctr.columbia.edu!howland.reston.ans.net!paladin.american.edu!auvm!EUROCONTROL.DE!wel
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: comp.lang.ada
Message-ID: <9411101514.AA21438@eurocontrol.de>
Date: Thu, 10 Nov 1994 16:14:53 +0100
Sender: Ada programming language <INFO-ADA@NDSUVM1.BITNET>
From: Bob Wells #402 <wel@EUROCONTROL.DE>
Subject: Systemless use of 'Address.
Comments: To: INFO-ADA%NDSUVM1.BITNET@vm.gmd.de
Date: 1994-11-10T16:14:53+01:00
List-Id: <comp.lang.ada>

G'day,

Given the following procedure declaration:

  procedure Display_Code2String (
    Data_Address : in     System.Address;
    Data_Size    : in     Natural;
    Data         : in out String_Ptr;
    Length       : in out Natural;
    Append       : in     Boolean := False);


and the following call to the procedure

        Draw.Display_Code2String ( Data_Address => Tmp_String'Address,
                                   Data_Size    => Tmp_String'Size,
                                   Data         => Return_String,
                                   Length       => Return_String_Length );

Why does the Verdix compiler (sorry specifically the

Verdix Ada Compiler, Copyright 1984, 1992
VADSworks for Sun-4 -> MC68020/30/vxWorks, (VADS 6.0.5)
Mon Aug 17 09:11:00 EST 1992 2.0.3(b)

accept this procedyre call **without** the a with clause for the package
System?

But if I add

        Tmp_String : EDD_Code_String ( 1 .. (Integer(Tmp_Seq.All'Last)/3 + 1));
        for Tmp_String use at Tmp_Seq.All'Address;

it now will only compile the package without errors if I "with" System?

Am I missing something here?

Thanks,

BTW I haven't forgotten the request for Ada ATC info Mike. I'll get back to
you as soon as I can.

@                   --------
@          ////  - ( G'day! )
@         (o o)     --------
@ ----oOO--(_)--OOo--------------------------------------------------------
  Bob Wells         "The marvels of today's modern technology include the
                     development of a soda can, when discarded will last
                     forever ... and a $7,000 car which when properly cared
                     for will rust out in two or three years."
@ INTERNET: wel@eurocontrol.de                 CompuServe:      100272,3004
@ The Ada WWW Server is http://lglwww.epfl.ch/Ada/                 Team Ada
@ For exciting Ada info enter 'finger wel@s4ecawel.eurocontrol.de'