[multiple changes]

2012-07-12  Robert Dewar  <dewar@adacore.com>

	* make.adb, sem_ch9.adb, prj.adb, s-rident.ads, snames.ads-tmpl: Minor
	reformatting.

2012-07-12  Javier Miranda  <miranda@adacore.com>

	* exp_ch3.adb (Is_User_Defined_Equality): New subprogram.
	(Make_Neq_Body): New subprogram.
	(Make_Predefined_Primitive_Specs): Adding local variable
	Has_Predef_Eq_ Renaming to ensure that we enable the machinery
	which handles renamings of predefined primitive operators.

From-SVN: r189432

gcc/ada/ChangeLog

+2012-07-12  Robert Dewar  <dewar@adacore.com>
+
+	* make.adb, sem_ch9.adb, prj.adb, s-rident.ads, snames.ads-tmpl: Minor
+	reformatting.
+
+2012-07-12  Javier Miranda  <miranda@adacore.com>
+
+	* exp_ch3.adb (Is_User_Defined_Equality): New subprogram.
+	(Make_Neq_Body): New subprogram.
+	(Make_Predefined_Primitive_Specs): Adding local variable
+	Has_Predef_Eq_ Renaming to ensure that we enable the machinery
+	which handles renamings of predefined primitive operators.
+
 2012-07-09  Pascal Obry  <obry@adacore.com>
 
 	* prj.adb (For_Every_Project_Imported_Context): Make sure we

gcc/ada/make.adb

@@ -4807,8 +4807,10 @@ package body Make is
          return;
       end if;
 
-      --  Regenerate libraries, if there are any and if object files
-      --  have been regenerated.
+      --  Regenerate libraries, if there are any and if object files have been
+      --  regenerated. Note that we skip this in CodePeer mode because we don't
+      --  need libraries in this case, and more importantly, the object files
+      --  may not be present.
 
       if Main_Project /= No_Project
         and then not CodePeer_Mode

gcc/ada/prj.adb

@@ -599,12 +599,14 @@ package body Prj is
 
             function Has_Sources (P : Project_Id) return Boolean is
                Lang : Language_Ptr;
+
             begin
                Lang := P.Languages;
                while Lang /= No_Language_Index loop
                   if Lang.First_Source /= No_Source then
                      return True;
                   end if;
+
                   Lang := Lang.Next;
                end loop;
 
@@ -617,6 +619,7 @@ package body Prj is
 
             function Get_From_Tree (P : Project_Id) return Project_Id is
                List : Project_List := Tree.Projects;
+
             begin
                if not Has_Sources (P) then
                   while List /= null loop
@@ -625,6 +628,7 @@ package body Prj is
                      then
                         return List.Project;
                      end if;
+
                      List := List.Next;
                   end loop;
                end if;
@@ -632,8 +636,12 @@ package body Prj is
                return P;
             end Get_From_Tree;
 
+            --  Local variables
+
             List : Project_List;
 
+         --  Start of processing for Recursive_Check
+
          begin
             if not Seen_Name.Contains (Project.Name) then
 

gcc/ada/s-rident.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -30,16 +30,17 @@
 ------------------------------------------------------------------------------
 
 --  This package defines the set of restriction identifiers. It is a generic
---  package that is instantiated by the compiler/binder in package Rident, and
---  is instantiated in package System.Restrictions for use at run-time.
+--  package that is instantiated by the binder for output of the restrictions
+--  structure, and is instantiated in package System.Restrictions for use at
+--  run-time.
 
 --  The reason that we make this a generic package is so that in the case of
---  the instantiation in Rident for use at compile time and bind time, we can
---  generate normal image tables for the enumeration types, which are needed
---  for diagnostic and informational messages. At run-time we really do not
---  want to waste the space for these image tables, and they are not needed,
---  so we can do the instantiation under control of Discard_Names to remove
---  the tables.
+--  the instantiation in the binder, we can generate normal image tables for
+--  the enumeration types, which are needed for diagnostic and informational
+--  messages as well as for identification of restrictions. At run-time we
+--  really do not want to waste the space for these image tables, and they are
+--  not needed, so we can do the instantiation under control of Discard_Names
+--  to remove the tables.
 
 pragma Compiler_Unit;
 

gcc/ada/sem_ch9.adb

@@ -244,6 +244,9 @@ package body Sem_Ch9 is
                ----------------
 
                function Check_Node (N : Node_Id) return Traverse_Result is
+
+                  --  The following function belongs in sem_eval ???
+
                   function Is_Static_Function (Attr : Node_Id) return Boolean;
                   --  Given an attribute reference node Attr, return True if
                   --  Attr denotes a static function according to the rules in

gcc/ada/snames.ads-tmpl

@@ -953,18 +953,24 @@ package Snames is
    Last_Attribute_Name                 : constant Name_Id := N + $;
 
    --  Names of internal attributes. They are not real attributes but special
-   --  names used internally by GNAT in order to deal with certain delayed
-   --  aspects (Aspect_CPU, Aspect_Dispatching_Domain,
-   --  Aspect_Interrupt_Priority) that don't have corresponding pragmas or
-   --  user-referencable attributes. It is convenient to have these internal
-   --  attributes available in processing the aspects, since the normal
-   --  approach is to convert an aspect into its corresponding pragma or
-   --  attribute specification.
+   --  names used internally by GNAT in order to deal with delayed aspects
+   --  (Aspect_CPU, Aspect_Dispatching_Domain, Aspect_Interrupt_Priority) that
+   --  don't have corresponding pragmas or user-referencable attributes.
+
+   --  It is convenient to have these internal attributes available for
+   --  processing the aspects, since the normal approach is to convert an
+   --  aspect into its corresponding pragma or attribute specification.
+
+   --  These attributes do have Attribute_Id values so that case statements
+   --  on Attribute_Id include these cases, but they are NOT included in the
+   --  Attribute_Name subtype defined above, which is typically used in the
+   --  front end for checking syntax of submitted programs (where the use of
+   --  internal attributes is not permitted).
 
    First_Internal_Attribute_Name       : constant Name_Id := N + $;
-   Name_CPU                            : constant Name_Id := N + $; -- INT
-   Name_Dispatching_Domain             : constant Name_Id := N + $; -- INT
-   Name_Interrupt_Priority             : constant Name_Id := N + $; -- INT
+   Name_CPU                            : constant Name_Id := N + $;
+   Name_Dispatching_Domain             : constant Name_Id := N + $;
+   Name_Interrupt_Priority             : constant Name_Id := N + $;
    Last_Internal_Attribute_Name        : constant Name_Id := N + $;
 
    --  Names of recognized locking policy identifiers