Commit a573518c by Thomas Quinot Committed by Arnaud Charlet

makeutl.adb: Minor code reorganization

2008-05-27  Thomas Quinot  <quinot@adacore.com>

	* makeutl.adb: Minor code reorganization

From-SVN: r135996
parent f6879a75
......@@ -526,11 +526,11 @@ package body Makeutl is
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;
......@@ -584,7 +584,7 @@ package body Makeutl is
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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment