par.adb: Minor reformatting Add ??? comment for possible bad comment

2009-07-15  Robert Dewar  <dewar@adacore.com>

	* par.adb: Minor reformatting
	Add ??? comment for possible bad comment

	* par-ch10.adb: Minor reformatting

From-SVN: r149677

gcc/ada/ChangeLog

+2009-07-15  Robert Dewar  <dewar@adacore.com>
+
+	* par.adb: Minor reformatting
+	Add ??? comment for possible bad comment
+
+	* par-ch10.adb: Minor reformatting
+
 2009-07-15  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_warn.adb (Warn_On_Constant_Condition): if the constant condition
@@ -29,8 +36,6 @@
 
 2009-07-15  Robert Dewar  <dewar@adacore.com>
 
-	* debug.adb: Add -gnatd.O to output SCO table
-
 	* lib-writ.adb (Write_Unit_Information): Use SCO_Output to output SCO
 	information.
 

gcc/ada/par-ch10.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          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- --
@@ -243,6 +243,7 @@ package body Ch10 is
       if Token = Tok_Private then
          Private_Sloc := Token_Ptr;
          Set_Keyword_Casing (Current_Source_File, Determine_Token_Casing);
+
          if Style_Check then
             Style.Check_Indentation;
          end if;
@@ -321,6 +322,7 @@ package body Ch10 is
       --  it hasn't already been done on seeing a WITH or PRIVATE.
 
       Set_Keyword_Casing (Current_Source_File, Determine_Token_Casing);
+
       if Style_Check then
          Style.Check_Indentation;
       end if;
@@ -1059,7 +1061,6 @@ package body Ch10 is
 
       Set_Proper_Body  (Subunit_Node, Body_Node);
       return Subunit_Node;
-
    end P_Subunit;
 
    ------------------