sem_res.adb, xsinfo.adb: Minor reformatting.

2010-10-26  Robert Dewar  <dewar@adacore.com>

	* sem_res.adb, xsinfo.adb: Minor reformatting.

From-SVN: r165950

gcc/ada/ChangeLog

+2010-10-26  Robert Dewar  <dewar@adacore.com>
+
+	* sem_res.adb, xsinfo.adb: Minor reformatting.
+
 2010-10-26  Bob Duff  <duff@adacore.com>
 
 	* namet.adb (Finalize): More cleanup of statistics printouts.

gcc/ada/sem_res.adb

@@ -5279,8 +5279,8 @@ package body Sem_Res is
            and then Check_Infinite_Recursion (N)
          then
             --  Here we detected and flagged an infinite recursion, so we do
-            --  not need to test the case below for further warnings. Also, if
-            --  we now have a raise SE node, we are all done.
+            --  not need to test the case below for further warnings. Also we
+            --  are all done if we now have a raise SE node.
 
             if Nkind (N) = N_Raise_Storage_Error then
                return;

gcc/ada/xsinfo.adb

@@ -241,7 +241,8 @@ begin
 
       Getline;
    end loop;
-   --  Can't get here; above loop only left via raise
+
+   --  Can't get here since above loop only left via raise
 
 exception
    when Done =>