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,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,be7c98d09d2d33f8 X-Google-Attributes: gid103376,public From: nobody@REPLAY.COM (Anonymous) Subject: Re: Tagged and General Access Types Date: 1997/07/25 Message-ID: <199707251327.PAA19872@basement.replay.com>#1/1 X-Deja-AN: 259002587 References: <01bc98ea$297f2960$LocalHost@jcmarle> Organization: Replay and Company UnLimited X-001: Replay may or may not approve of the content of this posting Mail-To-News-Contact: postmaster@nym.alias.net X-002: Report misuse of this automated service to X-URL: http://www.replay.com/remailer/ Newsgroups: comp.lang.ada Date: 1997-07-25T00:00:00+00:00 List-Id: On 25 Jul 1997 11:03:57 GMT, "Jim Marley" wrote: .. > Type Constant_Values is new Values private; Do you mean "new Values with private;"? > type Integer_Values is new Constant_Values with > record > Integer_Values: Integer; > end record; Will your compiler allow you to have a type names Integer_Values with a component named Integer_Values? > procedure Print(Block: in Blocks) is -- Block is a block of Spreadsheet > cells > begin > for row in Block.from.row..Block.to.row loop > for column in Block.from.column..Block.to.column loop > > Put(Spreadsheet_Array(row, column).all); > > end loop; > end loop; > end Print; > > procedure Put(Value: in Integer_Values) is > begin > Int_IO.Put(Value.Integer_Value); > end Put; > > My problem is that I get the error " invalid parameter is list call" for > the PUT call in Print. The two procedures are in two different child > packages. Print is in Spreadsheet.Interface and Put is in > Spreadsheet.Values. To avoid a loop during compilation I do the following: > What is the designated type of the access type that is the component type of Spreadsheet_Array? If it doesn't designate Integer_Values or Integer_Values'Class, then you will get this message. Jeff Carter PGP:1024/440FBE21 My real e-mail address: ( carter @ innocon . com ) "We burst our pimples at you." Monty Python & the Holy Grail Posted with Spam Hater - see http://www.compulink.co.uk/~net-services/spam/