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