Re: How to access Vector.Index_Type?

[Simon Wright <simon@pushface.org>]

jakub.dabek@gmail.com writes:

> I have the following program
>
>     with Ada.Containers.Vectors;
>
>     procedure Test is
>         package MyVec is new Ada.Containers.Vectors(Natural, Natural);
>         Var : MyVec.Index_Type;
>     begin
>         null;
>     end;
>
> I get the following error:
> "Index_Type" is not a visible entity of "MyVec"
>
> How can I access the index type (`Element_Type` gives the same error
> message), without just writing `Natural`?

You could use

   subtype My_Index_Type is MyVec.Extended_Index
     range MyVec.Extended_Index'First + 1 .. MyVec.Extended_Index'Last;