Re: unconstrainted arrays

[Claude SIMON <claude.simon@setra.fr>]

Alfred Hilscher a �crit :

> Hi,
>
> I know that I can define unconstrainted array where the actual
> constraints are given later:
>
> type My_Array is array (<>) of Integer;
>
> A1 : My_Array (1..10);
>
> Moreover I know a way to use this with structure:
>
> type s (len : integer) is record
>             X,Y : Integer;
>             A : My_Array (1..Len);
>      end record;
>
> PTs : s (10);
>
> But this would add one extra component to the record (Len). Is there a
> way to avoid this extra component ? Maybe a pragma or rep-specs ? Its
> encapsulated within a package body for HW handling where the extra
> component is unwanted.

One way is :

generic
   type Indices is range <>;
package Structure is
   type My_Array is array (Indices) of Integer;
   type S is record
            X,Y : Integer;
            A : My_Array;
     end record;
end Structure;


Claude Simon