* makeutl.adb: Minor code reorganization
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135996
138bc75d-0d04-0410-961f-
82ee72b054a4
function Get_Location return Source_Ptr is
begin
- if Current < Names.First or else Current > Names.Last then
- return No_Location;
+ if Current in Names.First .. Names.Last then
+ return Names.Table (Current).Location;
else
- return Names.Table (Current).Location;
+ return No_Location;
end if;
end Get_Location;
procedure Update_Main (Name : String) is
begin
- if Current >= Names.First and then Current <= Names.Last then
+ if Current in Names.First .. Names.Last then
Name_Len := 0;
Add_Str_To_Name_Buffer (Name);
Names.Table (Current).File_Name := Name_Find;