g-stheme.adb: Minor reformatting

2008-08-20  Robert Dewar  <dewar@adacore.com>

	* g-stheme.adb: Minor reformatting

From-SVN: r139276

diff --git a/gcc/ada/g-stheme.adb b/gcc/ada/g-stheme.adb
index 5222f448dcf43f0acc43ce17ac6f11b156d5953e..8d118d550a40bc209aaca6cf4efa46e3a583a437 100644 (file)
--- a/gcc/ada/g-stheme.adb
+++ b/gcc/ada/g-stheme.adb
@@ -51,7 +51,8 @@ package body Host_Error_Messages is
       use Interfaces.C.Strings;
       function TCP
         (P : char_array_access; Nul_Check : Boolean := False) return chars_ptr
-        renames To_Chars_Ptr;
+         renames To_Chars_Ptr;
+
    begin
       case H_Errno is
          when SOSC.HOST_NOT_FOUND =>
@@ -66,7 +67,7 @@ package body Host_Error_Messages is
          when SOSC.NO_DATA        =>
             return TCP (Messages.NO_DATA'Access);
 
-         when others                   =>
+         when others              =>
             return TCP (Messages.Unknown_Error'Access);
 
       end case;