3 type Name_Id is range 300_000_000 .. 399_999_999;
4 type Int is range -2 ** 31 .. +2 ** 31 - 1;
5 type Source_Id is range 5_000_000 .. 5_999_999;
7 type Name_Location is record
12 Found : Boolean := False;
15 function Get return Name_Location;
16 procedure Set (Name_Loc : Name_Location);