Re: How to access an array using two different indexing schemes

[Jerry <list_email@icloud.com>]

On Friday, November 24, 2017 at 8:52:50 AM UTC-7, AdaMagica wrote:
>   procedure Renaming is
>     subtype T1 is String (1 .. 5);
>     subtype T2 is String (1 .. 0);   -- !
>     S1 : T1 := "Hello";
>     S2 : T2 renames S1;
>   begin -- Renaming
>     Put (S1'First'Image); Put (S1 (S1'First));
>     Put (S2'First'Image); Put (S2 (S2'First));
>     Put (S1'Last 'Image); Put (S1 (S1'Last ));
>     Put (S2'Last 'Image); Put (S2 (S2'Last )); New_Line;
>   end Renaming;
> 
> This results in
>  1H 1H 5o 5o
> 
> Rememner that renamings ignore constraints.

But at least it solves the double memory allocation with your

subtype T2 is String (1 .. 0);   -- ! 

Jerry