[multiple changes]

2011-08-29  Pascal Obry  <obry@adacore.com>

	* prj-nmsc.adb: Minor reformatting.

2011-08-29  Jose Ruiz  <ruiz@adacore.com>

	* a-exetim.ads (Interrupt_Clocks_Supported,
	Separate_Interrupt_Clocks_Supported, Clock_For_Interrupts): Add these
	definitions to be compliant with AI-0171.

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

	* a-ngelfu.adb: Add comments.

From-SVN: r178201

gcc/ada/ChangeLog

+2011-08-29  Pascal Obry  <obry@adacore.com>
+
+	* prj-nmsc.adb: Minor reformatting.
+
+2011-08-29  Jose Ruiz  <ruiz@adacore.com>
+
+	* a-exetim.ads (Interrupt_Clocks_Supported,
+	Separate_Interrupt_Clocks_Supported, Clock_For_Interrupts): Add these
+	definitions to be compliant with AI-0171.
+
+2011-08-29  Robert Dewar  <dewar@adacore.com>
+
+	* a-ngelfu.adb: Add comments.
+
 2011-08-29  Geert Bosch  <bosch@adacore.com>
 
 	* a-ngelfu.adb (Tan): Do not raise Constraint_Error if the argument is

gcc/ada/a-exetim.ads

@@ -72,6 +72,11 @@ package Ada.Execution_Time is
        TS : Ada.Real_Time.Time_Span := Ada.Real_Time.Time_Span_Zero)
        return CPU_Time;
 
+   Interrupt_Clocks_Supported          : constant Boolean := False;
+   Separate_Interrupt_Clocks_Supported : constant Boolean := False;
+
+   function Clock_For_Interrupts return CPU_Time;
+
 private
 
    type CPU_Time is new Ada.Real_Time.Time;

gcc/ada/a-ngelfu.adb

@@ -916,6 +916,11 @@ package body Ada.Numerics.Generic_Elementary_Functions is
          return X;
       end if;
 
+      --  Note: if X is exactly pi/2, then we should raise an exception, since
+      --  the result would overflow. But for all floating-point formats we deal
+      --  with, it is impossible for X to be exactly pi/2, and the result is
+      --  always in range.
+
       return Float_Type'Base (Aux.Tan (Double (X)));
    end Tan;
 

gcc/ada/prj-nmsc.adb

@@ -151,9 +151,9 @@ package body Prj.Nmsc is
    --  be discarded as soon as we have finished processing the project
 
    type Tree_Processing_Data is record
-      Tree           : Project_Tree_Ref;
-      Node_Tree      : Prj.Tree.Project_Node_Tree_Ref;
-      Flags          : Prj.Processing_Flags;
+      Tree      : Project_Tree_Ref;
+      Node_Tree : Prj.Tree.Project_Node_Tree_Ref;
+      Flags     : Prj.Processing_Flags;
    end record;
    --  Temporary data which is needed while parsing a project. It does not need
    --  to be kept in memory once a project has been fully loaded, but is
@@ -6851,8 +6851,8 @@ package body Prj.Nmsc is
       --  several times, and to avoid cycles that may be introduced by symbolic
       --  links.
 
-      File_Pattern    : GNAT.Regexp.Regexp;
-      --  Pattern to use when matching file names.
+      File_Pattern : GNAT.Regexp.Regexp;
+      --  Pattern to use when matching file names
 
       Visited : Recursive_Dirs.Instance;