From e47681ab0db1f572d15e6c04dd789a17652dda3d Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 14 Jan 2007 21:50:24 +0000
Subject: [PATCH] * Remove reming usage of errno.
git-svn-id: trunk@5981 -
---
rtl/inc/sockets.inc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/inc/sockets.inc b/rtl/inc/sockets.inc
index f7739b4f81..a93fae88ba 100644
--- a/rtl/inc/sockets.inc
+++ b/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.}