1generic
2
3   Max_Length : Positive;
4
5package Discr59_Pkg2 is
6
7   type Token_Base_Type (Most : Natural) is record
8      Text : String (1 .. Most) := (others => ' ');
9      Last : Natural            := 0;
10      Used : Natural            := 0;
11   end record;
12
13   type Token_Type is new Token_Base_Type (Max_Length);
14
15end Discr59_Pkg2;
16