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