From 8477055dcc9ff3a48926159b314ceeb665940942 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 20 Aug 2008 14:07:45 +0200 Subject: [PATCH] g-stheme.adb: Minor reformatting 2008-08-20 Robert Dewar * g-stheme.adb: Minor reformatting From-SVN: r139276 --- gcc/ada/g-stheme.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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; -- 2.30.2