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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 09bd2d8e239e819911d936f19cd2772f3750cb6d..8758874c4639006e3e8d22eb427d8891f5bd198f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 72f3cf1d39fb5c92ea91c876c00b5f12956c3be2..1e6644c12f6e7f7b3e66cde30ab93a18318518ac 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/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;
 

diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads
index 700f3de6a39aecb187e0b4904ebf4592986f8330..f223711f39a279c5c6e0c8e5d6c9201472d84016 100644 (file)
--- a/gcc/ada/treepr.ads
+++ b/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