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