OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes] 

2010-09-09  Robert Dewar  <dewar@adacore.com>

	* sem_util.adb: Minor reformatting

2010-09-09  Vincent Celier  <celier@adacore.com>

	* vms_data.ads: Add documentation for S_Make_Single.

From-SVN: r164068
This commit is contained in:
Arnaud Charlet 2010-09-09 12:19:19 +02:00
parent 02954c2552
commit 099ace5e09
3 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2010-09-09 Robert Dewar <dewar@adacore.com>
* sem_util.adb: Minor reformatting
2010-09-09 Vincent Celier <celier@adacore.com>
* vms_data.ads: Add documentation for S_Make_Single.
2010-09-09 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Same_Object): include formal parameters.

30
gcc/ada/sem_util.adb
View File

@ -6572,7 +6572,7 @@ package body Sem_Util is
-- the corresponding procedure has been created, and which therefore do
-- not have an assigned scope.
if Ekind (E) in Formal_Kind then
if Is_Formal (E) then
return False;
end if;
@ -10532,22 +10532,24 @@ package body Sem_Util is
begin
-- First case, both are entities with same entity
if K1 in N_Has_Entity
and then K2 in N_Has_Entity
and then Present (Entity (N1))
and then Present (Entity (N2))
and then (Ekind (Entity (N1)) = E_Variable
or else
Ekind (Entity (N1)) = E_Constant
or else
Ekind (Entity (N1)) in Formal_Kind)
and then Entity (N1) = Entity (N2)
then
return True;
if K1 in N_Has_Entity and then K2 in N_Has_Entity then
declare
EN1 : constant Entity_Id := Entity (N1);
EN2 : constant Entity_Id := Entity (N2);
begin
if Present (EN1) and then Present (EN2)
and then (Ekind_In (EN1, E_Variable, E_Constant)
or else Is_Formal (EN1))
and then EN1 = EN2
then
return True;
end if;
end;
end if;
-- Second case, selected component with same selector, same record
elsif K1 = N_Selected_Component
if K1 = N_Selected_Component
and then K2 = N_Selected_Component
and then Chars (Selector_Name (N1)) = Chars (Selector_Name (N2))
then

5
gcc/ada/vms_data.ads
View File

@ -4860,6 +4860,11 @@ package VMS_Data is
S_Make_Single : aliased constant S := "/SINGLE_COMPILE_PER_OBJ_DIR " &
"--single-compile-per-obj-dir";
-- /NOSINGLE_COMPILE_PER_OBJ_DIR (D)
-- /SINGLE_COMPILE_PER_OBJ_DIR
--
-- When project files are used, do not allow simultaneous compilations
-- for the same object directory.
S_Make_Skip : aliased constant S := "/SKIP_MISSING=*" &
"-aL*";