1package Namet is
2
3  Hash_Num : constant Integer := 2**12;
4
5  subtype Hash_Index_Type is Integer range 0 .. Hash_Num - 1;
6
7  Name_Buffer : String (1 .. 16*1024);
8
9  Name_Len : Natural;
10
11end Namet;
12