浏览代码

* 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;
       end;
       end;
       if r=-1 then
       if r=-1 then
-        case errno of
+        case socketerror of
           EsockEBADF:
           EsockEBADF:
 {          EsysENOTSOCK:}   {Why is this constant not defined? (DM)}
 {          EsysENOTSOCK:}   {Why is this constant not defined? (DM)}
             inoutres:=6;    {Invalid file handle.}
             inoutres:=6;    {Invalid file handle.}