diff options
author | Robert Dewar <dewar@adacore.com> | 2008-08-20 14:07:45 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 14:07:45 +0200 |
commit | 8477055dcc9ff3a48926159b314ceeb665940942 (patch) | |
tree | 380604297e79bace56cddb197e27c05c37a3fc4c /gcc | |
parent | 8173c2769abaaa73f651aee4b60b3c48bed03164 (diff) | |
download | gcc-8477055dcc9ff3a48926159b314ceeb665940942.zip gcc-8477055dcc9ff3a48926159b314ceeb665940942.tar.gz gcc-8477055dcc9ff3a48926159b314ceeb665940942.tar.bz2 |
g-stheme.adb: Minor reformatting
2008-08-20 Robert Dewar <dewar@adacore.com>
* g-stheme.adb: Minor reformatting
From-SVN: r139276
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/g-stheme.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/g-stheme.adb b/gcc/ada/g-stheme.adb index 5222f44..8d118d5 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; |