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

[multiple changes]

Browse Source 
2010-06-17  Robert Dewar  <dewar@adacore.com>

	* sem_util.adb: Minor reformatting

2010-06-17  Ed Schonberg  <schonberg@adacore.com>

	* sem.adb (Do_Withed_Unit): if the unit in the with_clause is a generic
	instance, the clause now denotes the instance body. Traverse the
	corresponding spec because there may be no other dependence that will
	force the traversal of its own context.

From-SVN: r160925
This commit is contained in:
Arnaud Charlet 2010-06-17 17:35:09 +02:00
parent 305379908d
commit 7a78fa979e
3 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

@ -1,3 +1,14 @@
2010-06-17 Robert Dewar <dewar@adacore.com>
* sem_util.adb: Minor reformatting
2010-06-17 Ed Schonberg <schonberg@adacore.com>
* sem.adb (Do_Withed_Unit): if the unit in the with_clause is a generic
instance, the clause now denotes the instance body. Traverse the
corresponding spec because there may be no other dependence that will
force the traversal of its own context.
2010-06-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Is_Ancestor_Unit): Subsidiary to

12
gcc/ada/sem.adb
View File

@ -1701,6 +1701,18 @@ package body Sem is
procedure Do_Withed_Unit (Withed_Unit : Node_Id) is
begin
Do_Unit_And_Dependents (Withed_Unit, Unit (Withed_Unit));
-- If the unit in the with_clause is a generic instance, the clause
-- now denotes the instance body. Traverse the corresponding spec
-- because there may be no other dependence that will force the
-- traversal of its own context.
if Nkind (Unit (Withed_Unit)) = N_Package_Body
and then Is_Generic_Instance
(Defining_Entity (Unit (Library_Unit (Withed_Unit))))
then
Do_Withed_Unit (Library_Unit (Withed_Unit));
end if;
end Do_Withed_Unit;
----------------------------

4
gcc/ada/sem_util.adb
View File

@ -1699,8 +1699,8 @@ package body Sem_Util is
Next_Entity (Id);
-- For a type declared in System, some of its operations
-- may appear in the target-specific extension to System.
-- For a type declared in System, some of its operations may
-- appear in the target-specific extension to System.
if No (Id)
and then Chars (B_Scope) = Name_System