From: Robert Dewar <dewar@adacore.com>
Date: Wed, 20 Aug 2008 12:07:45 +0000 (+0200)
Subject: g-stheme.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8477055dcc9ff3a48926159b314ceeb665940942;p=gcc.git

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 5222f448dcf..8d118d550a4 100644
--- 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;