2011-08-03 Robert Dewar <dewar@adacore.com>

	* gnatcmd.adb, prj-proc.adb, mlib-prj.adb, prj.adb, makeutl.ads,
	prj-util.adb, prj-util.ads, prj-conf.adb, prj-env.adb: Minor
	reformatting.

2011-08-03  Javier Miranda  <miranda@adacore.com>

	* exp_util.adb (Is_VM_By_Copy_Actual): Include N_Slide nodes as actuals
	that must be passed by copy in VM targets.

2011-08-03  Emmanuel Briot  <briot@adacore.com>

	* prj.ads, prj-nmsc.adb (Files_Htable): removed this htable, which
	duplicates a similar htable now in the project tree.

2011-08-03  Claire Dross  <dross@adacore.com>

	* a-cfdlli.adb, a-cfhama.adb, a-cfhase.adb, a-cforma.adb, a-cforse.adb,
	a-cofove.adb ("=", Length, Is_Empty, Clear, Assign, Copy, Element,
	Replace_Element, Query_Element, Update_Element, Move, Insert, Prepend,
	Append, Delete, Delete_First, Delete_Last, Reverse_Element, Swap,
	Splice, First, First_Element, Last, Last_Element, Next, Previous, Find,
	Reverse_Find, Contains, Has_Element, Iterate, Reverse_Iterate, Capacity,
	Reserve_Length, Length, Strict_Equal, Left, Right): Data-structure
	update.

2011-08-03  Arnaud Charlet  <charlet@adacore.com>

	* s-taprop-posix.adb, s-taprop-linux.adb, s-taprop-tru64.adb
	(ATCB_Key): Removed, not always used.
	* s-tpopsp-posix.adb, s-tpopsp-posix-foreign.adb (ATCB_Key): Moved from
	s-taprop-posix.adb.
	* s-tpopsp-tls.adb: New file.
	* gcc-interface/Makefile.in: Use TLS implementation of s-tpopsp.adb on
	x86/x64/ia64/powerpc/sparc Linux.

2011-08-03  Arnaud Charlet  <charlet@adacore.com>

	* system-aix.ads, system-aix64.ads: Set ZCX_By_Default to True.
	* gcc-interface/Makefile.in: Switch to ZCX by default on AIX ports.

2011-08-03  Thomas Quinot  <quinot@adacore.com>

	* rtsfind.ads, exp_dist.adb, exp_dist.ads
	(Build_From_Any_Call, Build_To_Any_Call, Build_TypeCode_Call):
	Fix type selection for mapping integer types to PolyORB types.

2011-08-03  Bob Duff  <duff@adacore.com>

	* sem_ch7.adb: Minor comment clarification.

2011-08-03  Bob Duff  <duff@adacore.com>

	* sem_ch13.adb (Analyze_Enumeration_Representation_Clause): If we get
	an error analyzing a choice, skip further processing. Further
	processing could cause a crash or cascade errors.



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

1 files changed, 17 insertions, 13 deletions

diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb
index 58160e61d48..86a864266b4 100644
--- a/gcc/ada/prj.adb
+++ b/gcc/ada/prj.adb
@@ -413,7 +413,8 @@ package body Prj is
       Seen : Project_Boolean_Htable.Instance := Project_Boolean_Htable.Nil;
 
       procedure Recursive_Check
-        (Project : Project_Id; Tree : Project_Tree_Ref);
+        (Project : Project_Id;
+         Tree    : Project_Tree_Ref);
       --  Check if a project has already been seen. If not seen, mark it as
       --  Seen, Call Action, and check all its imported projects.
 
@@ -422,7 +423,8 @@ package body Prj is
       ---------------------
 
       procedure Recursive_Check
-        (Project : Project_Id; Tree : Project_Tree_Ref)
+        (Project : Project_Id;
+         Tree    : Project_Tree_Ref)
       is
          List : Project_List;
          Agg  : Aggregated_Project_List;
@@ -937,23 +939,25 @@ package body Prj is
       --  Visible tables
 
       if Tree.Is_Root_Tree then
+
          --  We cannot use 'Access here:
          --    "illegal attribute for discriminant-dependent component"
          --  However, we know this is valid since Shared and Shared_Data have
          --  the same lifetime and will always exist concurrently.
+
          Tree.Shared := Tree.Shared_Data'Unrestricted_Access;
-         Name_List_Table.Init          (Tree.Shared.Name_Lists);
-         Number_List_Table.Init        (Tree.Shared.Number_Lists);
-         String_Element_Table.Init     (Tree.Shared.String_Elements);
-         Variable_Element_Table.Init   (Tree.Shared.Variable_Elements);
-         Array_Element_Table.Init      (Tree.Shared.Array_Elements);
-         Array_Table.Init              (Tree.Shared.Arrays);
-         Package_Table.Init            (Tree.Shared.Packages);
+         Name_List_Table.Init        (Tree.Shared.Name_Lists);
+         Number_List_Table.Init      (Tree.Shared.Number_Lists);
+         String_Element_Table.Init   (Tree.Shared.String_Elements);
+         Variable_Element_Table.Init (Tree.Shared.Variable_Elements);
+         Array_Element_Table.Init    (Tree.Shared.Array_Elements);
+         Array_Table.Init            (Tree.Shared.Arrays);
+         Package_Table.Init          (Tree.Shared.Packages);
       end if;
 
-      Source_Paths_Htable.Reset     (Tree.Source_Paths_HT);
-      Source_Files_Htable.Reset     (Tree.Source_Files_HT);
-      Replaced_Source_HTable.Reset  (Tree.Replaced_Sources);
+      Source_Paths_Htable.Reset    (Tree.Source_Paths_HT);
+      Source_Files_Htable.Reset    (Tree.Source_Files_HT);
+      Replaced_Source_HTable.Reset (Tree.Replaced_Sources);
 
       Tree.Replaced_Source_Number := 0;
 
@@ -962,7 +966,7 @@ package body Prj is
 
       --  Private part table
 
-      Temp_Files_Table.Init       (Tree.Private_Part.Temp_Files);
+      Temp_Files_Table.Init (Tree.Private_Part.Temp_Files);
 
       Tree.Private_Part.Current_Source_Path_File := No_Path;
       Tree.Private_Part.Current_Object_Path_File := No_Path;