فهرست منبع

* Remove reming usage of errno.

git-svn-id: trunk@5981 -
daniel 18 سال پیش
والد
کامیت
e47681ab0d
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      rtl/inc/sockets.inc

+ 1 - 1
rtl/inc/sockets.inc

@@ -66,7 +66,7 @@ begin
           end;
       end;
       if r=-1 then
-        case errno of
+        case socketerror of
           EsockEBADF:
 {          EsysENOTSOCK:}   {Why is this constant not defined? (DM)}
             inoutres:=6;    {Invalid file handle.}