[multiple changes]
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
parent
8a78c50d6e
commit
cb73686833
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
|
|
|
|||
Loading…
Reference in New Issue