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

	* 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

diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb
index e00bc4646c3ab904b230527d9dfb090a484595a4..efc0ac28293f1b3d29ee5331652d0bc04c89d3c2 100644 (file)
--- a/gcc/ada/ali.adb
+++ b/gcc/ada/ali.adb
@@ -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;