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,48b3e9df2fd37d9d,start
X-Google-Attributes: gid103376,public
From: WishList@2600.com (Technobabble)
Subject: unconstrained array clarification
Date: 1998/09/19
Message-ID: <WishList-1809982255060001@a17.phoenix-14.goodnet.com>#1/1
X-Deja-AN: 392651878
Organization: WannaBeACracker
NNTP-Posting-Date: Fri, 18 Sep 1998 22:59:57 MDT
Newsgroups: comp.lang.ada
Date: 1998-09-19T00:00:00+00:00
List-Id: <comp.lang.ada>

Ok, thanks !  Now what if all I have is an unconstrained array type like this:

type xyz_array is array (integer <>) of integer;   -- this is it
type xyz_array_pointer is access xyz_array;
type xyz_array_pointer_array is array (1..100) of xyz_array_pointer;


type Object is
    record
       XYZ : xyz_array_pointer_array;    
       abc : integer;
    end record;


Now I declare an Object,

This : Object;   --  record is not constrained, legal or not?

Now I want to have say a 5 element xyz_array:

xyz5_array : xyz_array (1..5);

and I assign my pointer

This.XYZ(1) := xyz5_array'ACCESS;  -- address of xyz_array type is assigned

now I want to loop:

for I in This.XYZ(1)'RANGE
     loop 
      ..........


???? Will this work ???  Is the syntax totally incorrect ???

help !!!

Richmond