diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 12:07:45 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 12:07:45 +0000 |
commit | a2460e9d3984d78fcadb046d6297efb590e49043 (patch) | |
tree | 380604297e79bace56cddb197e27c05c37a3fc4c /gcc/ada/g-stheme.adb | |
parent | 60e7c9857d31b808a103a071a58bd24cd21e4016 (diff) | |
download | gcc-a2460e9d3984d78fcadb046d6297efb590e49043.tar.gz |
2008-08-20 Robert Dewar <dewar@adacore.com>
* g-stheme.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139276 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-stheme.adb')
-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 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; |