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

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

diff --git a/gcc/ada/g-socthi.adb b/gcc/ada/g-socthi.adb
index fe7119e3a561c9ea98668d187e0c90417a6b303b..76d82a8a413b21f0c7c64940aa7ec1c9ccc79c63 100644 (file)
--- a/gcc/ada/g-socthi.adb
+++ b/gcc/ada/g-socthi.adb
@@ -57,8 +57,6 @@ package body GNAT.Sockets.Thin is
    --  non-blocking mode and we spend a period of time Quantum between
    --  two attempts on a blocking operation.
 
-   Unknown_System_Error : constant String := "Unknown system error";
-
    --  Comments required for following functions ???
 
    function Syscall_Accept