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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145914 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a0c2729..d89e65a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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

diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb
index fda3b2f..e27a2df 100644 (file)
--- 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 314dc83..7b8422e 100644 (file)
--- 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 90c10f9..fd3a085 100644 (file)
--- 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 ada55a3..595fa5e 100644 (file)
--- 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,