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

2008-08-20 Vincent Celier <celier@adacore.com>

Browse Source 
* ali.adb:
	(Scan_ALI): Use Name_Find, not Name_Enter to get the name of a subunit,
	as the name may already have been entered in the table by the Project
	Manager.

From-SVN: r139331
This commit is contained in:
Vincent Celier 2008-08-20 18:11:55 +02:00 committed by Arnaud Charlet
parent bda3bc77ba
commit 2dd8670af1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ali.adb
View File

@ -1999,13 +1999,17 @@ package body ALI is
if Nextc not in '0' .. '9' then
Name_Len := 0;
while not At_End_Of_Field loop
Name_Len := Name_Len + 1;
Name_Buffer (Name_Len) := Getc;
end loop;
Sdep.Table (Sdep.Last).Subunit_Name := Name_Enter;
-- Set the subunit name. Note that we use Name_Find rather
-- than Name_Enter here as the subunit name may already
-- have been put in the name table by the Project Manager.
Sdep.Table (Sdep.Last).Subunit_Name := Name_Find;
Skip_Space;
end if;