[multiple changes]

2009-04-29  Thomas Quinot  <quinot@adacore.com>

	* sem_ch12.adb: Minor reformatting

	* sem_aggr.adb: Minor reformatting

	* sem_ch6.adb, sem_cat.ads: Minor reformatting

	* sem_ch10.adb, gnat1drv.adb, prj-nmsc.adb: Minor reformatting

2009-04-29  Quentin Ochem  <ochem@adacore.com>

	* prj.ads (Source_Id): Now general pointer type.

From-SVN: r146938

9 files changed, 33 insertions, 18 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 29f8ea9..43a1075 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,19 @@
 2009-04-29  Thomas Quinot  <quinot@adacore.com>
 
+	* sem_ch12.adb: Minor reformatting
+
+	* sem_aggr.adb: Minor reformatting
+
+	* sem_ch6.adb, sem_cat.ads: Minor reformatting
+
+	* sem_ch10.adb, gnat1drv.adb, prj-nmsc.adb: Minor reformatting
+
+2009-04-29  Quentin Ochem  <ochem@adacore.com>
+
+	* prj.ads (Source_Id): Now general pointer type.
+
+2009-04-29  Thomas Quinot  <quinot@adacore.com>
+
 	* exp_ch7.adb, rtsfind.adb: Minor reformatting
 
 	* sem_res.adb: Minor reformatting
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index f8fb53a..4dec895 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -512,7 +512,7 @@ begin
 
       --  If we have a corresponding spec, and it comes from source
       --  or it is not a generated spec for a child subprogram body,
-      --  then we need object code for the spec unit as well
+      --  then we need object code for the spec unit as well.
 
       if Nkind (Unit (Main_Unit_Node)) in N_Unit_Body
         and then not Acts_As_Spec (Main_Unit_Node)
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index 372f950..9c1aea0 100644
--- a/gcc/ada/prj-nmsc.adb
+++ b/gcc/ada/prj-nmsc.adb
@@ -256,8 +256,8 @@ package body Prj.Nmsc is
    function Suffix_Matches
      (Filename : String;
       Suffix   : File_Name_Type) return Boolean;
-   --  True if the filename ends with the given suffix. It always returns False
-   --  if Suffix is No_Name
+   --  True if the file name ends with the given suffix. Always returns False
+   --  if Suffix is No_Name.
 
    procedure Replace_Into_Name_Buffer
      (Str         : String;
@@ -7290,7 +7290,7 @@ package body Prj.Nmsc is
       --  Returns True if the file belongs to the current language and we
       --  should stop searching for matching languages. Not that a given header
       --  file could belong to several languages (C and C++ for instance). Thus
-      --  if we found a header we'll check whether it matches other languages
+      --  if we found a header we'll check whether it matches other languages.
 
       ---------------------------
       -- Check_File_Based_Lang --
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index a0ccdbe..26bf2da 100644
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -398,7 +398,7 @@ package Prj is
                             Body_Suffix     => No_File);
 
    type Source_Data;
-   type Source_Id is access Source_Data;
+   type Source_Id is access all Source_Data;
 
    No_Source : constant Source_Id := null;
 
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 86c74cf..40f15ae 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -3116,7 +3116,7 @@ package body Sem_Aggr is
 
             --  Now collect components from all other ancestors, beginning
             --  with the current type. If the type has unknown discriminants
-            --  use the component list of the underlying_record_view, which
+            --  use the component list of the Underlying_Record_View, which
             --  needs to be used for the subsequent expansion of the aggregate
             --  into assignments.
 
diff --git a/gcc/ada/sem_cat.ads b/gcc/ada/sem_cat.ads
index c86bb3c..cc667aa 100644
--- a/gcc/ada/sem_cat.ads
+++ b/gcc/ada/sem_cat.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2009, 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- --
@@ -113,9 +113,8 @@ package Sem_Cat is
    --  Apply semantic checks given in  E2.3(10-14)
 
    procedure Validate_RCI_Subprogram_Declaration (N : Node_Id);
-   --  Check for RCI unit subprogram declarations with respect to
-   --  in-lined subprogram and subprogram with access parameter or
-   --  limited type parameter without Read and Write.
+   --  Check RCI subprogram declarations for illegal inlining and formals not
+   --  supporting external streaming.
 
    procedure Validate_Remote_Access_To_Class_Wide_Type (N : Node_Id);
    --  Checks that Storage_Pool and Storage_Size attribute references are
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb
index 82b221f..8882713 100644
--- a/gcc/ada/sem_ch10.adb
+++ b/gcc/ada/sem_ch10.adb
@@ -734,7 +734,7 @@ package body Sem_Ch10 is
                   --  in its scope. Finally we create a Units table entry for
                   --  the subprogram declaration, to maintain a one-to-one
                   --  correspondence with compilation unit nodes. This is
-                  --  critical for the tree traversals performed by Inspector.
+                  --  critical for the tree traversals performed by Codepeer.
 
                   declare
                      Loc : constant Source_Ptr := Sloc (N);
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 1491170..e56a0f3 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -11878,6 +11878,7 @@ package body Sem_Ch12 is
 
       procedure Save_References (N : Node_Id) is
          Loc : constant Source_Ptr := Sloc (N);
+
       begin
          if N = Empty then
             null;
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 569800c..c44a48b 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -2618,8 +2618,8 @@ package body Sem_Ch6 is
    --  Start of processing for Analyze_Subprogram_Declaration
 
    begin
-      --  For a null procedure. capture the profile before analysis, for
-      --  expansion at the freeze point, and at each point of call.
+      --  For a null procedure, capture the profile before analysis, for
+      --  expansion at the freeze point and at each point of call.
       --  The body will only be used if the procedure has preconditions.
       --  In that case the body is analyzed at the freeze point.
 
@@ -2631,7 +2631,8 @@ package body Sem_Ch6 is
            Make_Subprogram_Body (Loc,
              Specification =>
                New_Copy_Tree (Specification (N)),
-             Declarations => New_List,
+             Declarations =>
+               New_List,
              Handled_Statement_Sequence =>
                Make_Handled_Sequence_Of_Statements (Loc,
                  Statements => New_List (Make_Null_Statement (Loc))));
@@ -4424,10 +4425,10 @@ package body Sem_Ch6 is
          then
             Set_Is_Overriding_Operation (Subp);
 
-            --  If style checks are enabled, indicate that the indicator
-            --  is missing. However, at the point of declaration, the type
-            --  of which this is a primitive operation may be private, in
-            --  which case the indicator would be premature.
+            --  If style checks are enabled, indicate that the indicator is
+            --  missing. However, at the point of declaration, the type of
+            --  which this is a primitive operation may be private, in which
+            --  case the indicator would be premature.
 
             if Has_Private_Declaration (Etype (Subp))
               or else Has_Private_Declaration (Etype (First_Formal (Subp)))