mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-23 02:00:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

makeutl.adb: Minor code reorganization

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

	* makeutl.adb: Minor code reorganization

From-SVN: r135996
This commit is contained in:
Thomas Quinot 2008-05-27 12:13:25 +02:00 committed by Arnaud Charlet
parent f6879a7559
commit a573518c6f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/makeutl.adb
View File

@ -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;