g-stheme.adb, [...] (Host_Error_Message): Return a string...

[gcc.git] / gcc / ada / g-socket.adb

diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb
index f65b2709ea299c276df2934ff2faf70920d4c7ca..d5b74c6d0491a5961df68c753e6067ab0bdd82ad 100644 (file)
--- a/gcc/ada/g-socket.adb
+++ b/gcc/ada/g-socket.adb
@@ -1709,7 +1709,7 @@ package body GNAT.Sockets is
    begin
       raise Host_Error with
         Err_Code_Image (H_Error)
-        & C.Strings.Value (Host_Error_Messages.Host_Error_Message (H_Error));
+          & Host_Error_Messages.Host_Error_Message (H_Error);
    end Raise_Host_Error;
 
    ------------------------