diff options
| -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; |