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

[multiple changes]

Browse Source 
2009-04-10  Bob Duff  <duff@adacore.com>

	* rtsfind.ads: Minor code change: make RE_Unit_Table constant.

	* rtsfind.adb: Minor comment changes, and remove useless code.

	* sinfo.ads: Add ??? comment.

2009-04-10  Vincent Celier  <celier@adacore.com>

	* vms_data.ads: Add missing GNAT SYNC VMS qualifiers -main= and -U

From-SVN: r145914
This commit is contained in:
Arnaud Charlet 2009-04-10 16:48:28 +02:00
parent 8a78c50d6e
commit cb73686833
5 changed files with 36 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/ChangeLog
View File

@ -1,3 +1,15 @@
2009-04-10 Bob Duff <duff@adacore.com>
* rtsfind.ads: Minor code change: make RE_Unit_Table constant.
* rtsfind.adb: Minor comment changes, and remove useless code.
* sinfo.ads: Add ??? comment.
2009-04-10 Vincent Celier <celier@adacore.com>
* vms_data.ads: Add missing GNAT SYNC VMS qualifiers -main= and -U
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference, case 'Tag): If the tagged

15
gcc/ada/rtsfind.adb
View File

@ -596,9 +596,9 @@ package body Rtsfind is
procedure Save_Private_Visibility;
-- If the current unit is the body of child unit or the spec of a
-- private child unit, the private declarations of the parent (s)
-- are visible. If the unit to be loaded is another public sibling,
-- its compilation will affect the visibility of the common ancestors.
-- private child unit, the private declarations of the parent(s) are
-- visible. If the unit to be loaded is another public sibling, its
-- compilation will affect the visibility of the common ancestors.
-- Indicate those that must be restored.
procedure Restore_Private_Visibility;
@ -666,13 +666,6 @@ package body Rtsfind is
U.Uname := Get_Unit_Name (U_Id);
U.Withed := False;
declare
Loaded : Boolean;
pragma Warnings (Off, Loaded);
begin
Loaded := Is_Loaded (U.Uname);
end;
-- Now do the load call, note that setting Error_Node to Empty is
-- a signal to Load_Unit that we will regard a failure to find the
-- file as a fatal error, and that it should not output any kind
@ -730,7 +723,7 @@ package body Rtsfind is
if not Analyzed (Cunit (U.Unum)) then
-- If the unit is already loaded through a limited_with clauses,
-- If the unit is already loaded through a limited_with clause,
-- the relevant entities must already be available. We do not
-- want to load and analyze the unit because this would create
-- a real semantic dependence when the purpose of the limited_with

2
gcc/ada/rtsfind.ads
View File

@ -1607,7 +1607,7 @@ package Rtsfind is
-- function to determine the unit containing the given entity. This table
-- is sorted in order of package names.
RE_Unit_Table : array (RE_Id) of RTU_Id := (
RE_Unit_Table : constant array (RE_Id) of RTU_Id := (
RE_Null => RTU_Null,

3
gcc/ada/sinfo.ads
View File

@ -1135,7 +1135,8 @@ package Sinfo is
-- This flag is set in the N_With_Clause node that is implicitly
-- generated for runtime units that are loaded by the expander, and also
-- for package System, if it is loaded implicitly by a use of the
-- 'Address or 'Tag attribute.
-- 'Address or 'Tag attribute. ???There are other implicit with clauses
-- as well.
-- Includes_Infinities (Flag11-Sem)
-- This flag is present in N_Range nodes. It is set for the range of

17
gcc/ada/vms_data.ads
View File

@ -6632,6 +6632,15 @@ package VMS_Data is
-- components of the GNAT RTL when building and analyzing the global
-- structure for checking the global rules.
S_Sync_Allproj : aliased constant S := "/ALL_PROJECTS " &
"-U";
-- /NOALL_PROJECTS (D)
-- /ALL_PROJECTS
--
-- When GNAT SYNC is used with a Project File and no source is
-- specified, the underlying tool gnatsync is called for all the
-- sources of all the Project Files in the project tree.
S_Sync_Ext : aliased constant S := "/EXTERNAL_REFERENCE=" & '"' &
"-X" & '"';
-- /EXTERNAL_REFERENCE="name=val"
@ -6656,6 +6665,12 @@ package VMS_Data is
--
-- Follow links when parsing project files
S_Sync_Main : aliased constant S := "/MAIN_SUBPROGRAM=@" &
"-main=@";
-- /MAIN_SUBPROGRAM=filename
--
-- Specify the name of the file containing the main subprogram
S_Sync_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" &
"DEFAULT " &
"-vP0 " &
@ -6748,9 +6763,11 @@ package VMS_Data is
Sync_Switches : aliased constant Switches :=
(S_Sync_Add 'Access,
S_Sync_All 'Access,
S_Sync_Allproj 'Access,
S_Sync_Ext 'Access,
S_Sync_Follow 'Access,
S_Sync_Files 'Access,
S_Sync_Main 'Access,
S_Sync_Mess 'Access,
S_Sync_Project 'Access,
S_Sync_Quiet 'Access,