-- ones: there is a specific variant of this function in g-socthi-mingw.adb.
with Ada.Unchecked_Conversion;
+
with System.CRTL;
separate (GNAT.Sockets.Thin)
+
+--------------------------
+-- Socket_Error_Message --
+--------------------------
+
function Socket_Error_Message
(Errno : Integer) return C.Strings.chars_ptr
is
begin
C_Msg := To_Chars_Ptr (System.CRTL.strerror (Errno));
+
if C_Msg = C.Strings.Null_Ptr then
return Unknown_System_Error;
else
Analyze_Expression (Else_Expr);
end if;
- if not Is_Overloaded (Then_Expr) then
+ if not Is_Overloaded (Then_Expr) then
Set_Etype (N, Etype (Then_Expr));
else
declare