paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove reming usage of errno.

Browse Source 
git-svn-id: trunk@5981 -
This commit is contained in:
daniel 2007-01-14 21:50:24 +00:00
parent f1067607b6
commit e47681ab0d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/sockets.inc
View File

@ -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.}