From cb73686833844c5e5d24339de05f51057654d7c1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 10 Apr 2009 16:48:28 +0200 Subject: [PATCH] [multiple changes] 2009-04-10 Bob Duff * 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 * vms_data.ads: Add missing GNAT SYNC VMS qualifiers -main= and -U From-SVN: r145914 --- gcc/ada/ChangeLog | 12 ++++++++++++ gcc/ada/rtsfind.adb | 15 ++++----------- gcc/ada/rtsfind.ads | 2 +- gcc/ada/sinfo.ads | 3 ++- gcc/ada/vms_data.ads | 17 +++++++++++++++++ 5 files changed, 36 insertions(+), 13 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a0c2729405e..d89e65ac7b2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,15 @@ +2009-04-10 Bob Duff + + * 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 + + * vms_data.ads: Add missing GNAT SYNC VMS qualifiers -main= and -U + 2009-04-10 Ed Schonberg * exp_attr.adb (Expand_N_Attribute_Reference, case 'Tag): If the tagged diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index fda3b2ff082..e27a2dffa78 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -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 diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 314dc83c8a4..7b8422e77da 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -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, diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 90c10f90575..fd3a0852ee9 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -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 diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index ada55a30a0b..595fa5e1dc0 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -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, -- 2.30.2