* Makefile.generic: Add missing substitution on object_deps handling.

	PR ada/5909:
	* Make-lang.in (check-ada): Enable ACATS test suite.

	* exp_ch3.adb:
	(Freeze_Array_Type): We do not need an initialization routine for types
	derived from String or Wide_String. They should be treated the same
	as String and Wide_String themselves. This caused problems with the
	use of Initialize_Scalars.

	* exp_ch5.adb:
	(Expand_Assign_Record): Do component-wise assignment of non-byte aligned
	composites. This allows use of component clauses that are not byte
	aligned.

	* sem_prag.adb:
	(Analyze_Pragma, case Pack): Generate warning and ignore pack if there
	is an attempt to pack an array of atomic objects.

	* make.adb, prj-env.adb, prj-env.ads: Minor reformatting

	* g-dirope.adb:
	(Basename): Check for drive letters in a pathname only on DOS based OS.

	* make.adb:
	(Gnatmake): When unable to change dir to the object dir, display the
	content of the parent dir of the obj dir, to try to understand why this
	happens.

	* Make-lang.in: Makefile automatically updated

	* sem_ch12.adb:
	(Inline_Instance_Body): Indicate that the save/restore of use_clauses
	should not be done in Save/Restore_Scope_Stack, because it is performed
	locally.

	* sem_ch8.adb:
	(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
	whether use clauses should be removed/restored.

	* sem_ch8.ads:
	(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
	whether use clauses should be removed/restored.


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

1 files changed, 10 insertions, 12 deletions

diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads
index 7ea02870198..8730ccb52d2 100644
--- a/gcc/ada/prj-env.ads
+++ b/gcc/ada/prj-env.ads
@@ -66,8 +66,7 @@ package Prj.Env is
 
    function Ada_Include_Path
      (Project   : Project_Id;
-      Recursive : Boolean)
-      return      String;
+      Recursive : Boolean) return String;
    --  Get the ADA_INCLUDE_PATH of a Project file. If Recursive it True,
    --  get all the source directories of the imported and modified project
    --  files (recursively). If Recursive is False, just get the path for the
@@ -76,8 +75,7 @@ package Prj.Env is
 
    function Ada_Objects_Path
      (Project             : Project_Id;
-      Including_Libraries : Boolean := True)
-      return                String_Access;
+      Including_Libraries : Boolean := True) return String_Access;
    --  Get the ADA_OBJECTS_PATH of a Project file. For the first call, compute
    --  it and cache it. When Including_Libraries is False, do not include the
    --  object directories of the library projects, and do not cache the result.
@@ -86,7 +84,7 @@ package Prj.Env is
      (Project             : Project_Id;
       Including_Libraries : Boolean);
    --  Set the env vars for additional project path files, after
-   --  creating if necessary the path files.
+   --  creating the path files if necessary.
 
    procedure Delete_All_Path_Files;
    --  Delete all temporary path files that have been created by
@@ -94,22 +92,23 @@ package Prj.Env is
 
    function Path_Name_Of_Library_Unit_Body
      (Name    : String;
-      Project : Project_Id)
-      return    String;
-   --  Returns the Path of a library unit.
+      Project : Project_Id) return String;
+   --  Returns the Path of a library unit
 
    function File_Name_Of_Library_Unit_Body
      (Name              : String;
       Project           : Project_Id;
       Main_Project_Only : Boolean := True;
-      Full_Path         : Boolean := False)
-      return              String;
+      Full_Path         : Boolean := False) return String;
    --  Returns the file name of a library unit, in canonical case. Name may or
    --  may not have an extension (corresponding to the naming scheme of the
    --  project). If there is no body with this name, but there is a spec, the
    --  name of the spec is returned.
+   --
    --  If Full_Path is False (the default), the simple file name is returned.
+   --
    --  If Full_Path is True, the absolute path name is returned.
+   --
    --  If neither a body nor a spec can be found, an empty string is returned.
    --  If Main_Project_Only is True, the unit must be an immediate source of
    --  Project. If it is False, it may be a source of one of its imported
@@ -117,8 +116,7 @@ package Prj.Env is
 
    function Project_Of
      (Name         : String;
-      Main_Project : Project_Id)
-      return         Project_Id;
+      Main_Project : Project_Id) return Project_Id;
    --  Get the project of a source. The source file name may be truncated
    --  (".adb" or ".ads" may be missing). If the source is in a project being
    --  extended, return the ultimate extending project. If it is not a source