From: Vincent Celier <celier@adacore.com>
Date: Wed, 20 Aug 2008 16:11:55 +0000 (+0200)
Subject: 2008-08-20  Vincent Celier  <celier@adacore.com>
X-Git-Tag: releases/gcc-4.4.0~3005
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2dd8670af1e1863acff088dca4c888e33b16ba16;p=thirdparty%2Fgcc.git

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 e00bc4646c3a..efc0ac28293f 100644
--- 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;