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.6 required=5.0 tests=BAYES_20,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,72c538d48d9fcd8a
X-Google-Attributes: gid103376,public
From: WishList@2600.com (Technobabble)
Subject: Re: assigning record address using access, w/unconstrained array
Date: 1998/09/19
Message-ID: <WishList-1909981356340001@a11.phoenix-13.goodnet.com>#1/1
X-Deja-AN: 392820193
References: <WishList-1909982010140001@a11.phoenix-13.goodnet.com>
 <EzJsrB.AD1.0.-s@inmet.camb.inmet.com>
Organization: WannaBeACracker
NNTP-Posting-Date: Sat, 19 Sep 1998 13:56:05 MDT
Newsgroups: comp.lang.ada
Date: 1998-09-19T00:00:00+00:00
List-Id: <comp.lang.ada>

Greetings Tucker,

Thanks !!! I'll catch on eventually. You're the best !!


> : ---------------------
> : --File: test_pkg.adb
> : package body test_pkg is
> 
> :   procedure my_range (This : in Object) is
> 
> ***>>>                         ^^ "in out" should solve your problem.
> 
> :   begin 
> :                 This.XYZ(1) := xyz5_array'ACCESS;  
> : --       rangexyz :=  This.XYZ(1)'RANGE;
> 
> :   end my_range;
> : end test_pkg;
> 
> : --------------------
> 
> : GNAT produces the following error after compiling test_pkg.adb:
> 
> : test_pkg.adb:18:17: assignment to "in" mode parameter not allowed
> 
> As well it should.  Just change the parameter mode to "in out" if you
> want the procedure to update its parameter.
> 
thanks,
Richmond
therionics@computer.org