sem_prag.adb, treepr.ads: Minor reformatting.

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

	* sem_prag.adb, treepr.ads: Minor reformatting.

From-SVN: r189567

gcc/ada/ChangeLog

 2012-07-17  Robert Dewar  <dewar@adacore.com>
 
+	* sem_prag.adb, treepr.ads: Minor reformatting.
+
+2012-07-17  Robert Dewar  <dewar@adacore.com>
+
 	* exp_ch9.adb: Minor code reorganization.
 	* exp_ch3.adb: Minor code improvement.
 

gcc/ada/sem_prag.adb

@@ -7661,6 +7661,7 @@ package body Sem_Prag is
             GNAT_Pragma;
 
             if Warn_On_Obsolescent_Feature then
+               --  Following message is obsolete ???
                Error_Msg_N
                  ("'G'N'A'T pragma cpp'_class is now obsolete and has no " &
                   "effect; replace it by pragma import?", N);
@@ -7670,13 +7671,12 @@ package body Sem_Prag is
 
             Rewrite (N,
               Make_Pragma (Loc,
-                Chars => Name_Import,
+                Chars                        => Name_Import,
                 Pragma_Argument_Associations =>
                   New_List (
                     Make_Pragma_Argument_Association (Loc,
                       Expression => Make_Identifier (Loc, Name_CPP)),
-                    New_Copy
-                      (First (Pragma_Argument_Associations (N))))));
+                    New_Copy (First (Pragma_Argument_Associations (N))))));
             Analyze (N);
          end CPP_Class;
 

gcc/ada/treepr.ads

@@ -74,6 +74,7 @@ package Treepr is
    procedure psloc (Loc : Source_Ptr);
    pragma Export (Ada, psloc);
    --  Prints the sloc Loc
+   --  Why is this here??? use the routines in Sprint instead ???
 
    --  The following are no longer needed; you can use pp or ppp instead