paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 20:11:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Add type and constants to ease porting from Kylix libc unit

Browse Source 
to sockets unit.

git-svn-id: trunk@6414 -
This commit is contained in:
daniel 2007-02-11 12:21:01 +00:00
parent 57415a73a7
commit 8ff402109f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/socketsh.inc
View File

@ -36,6 +36,9 @@ const
SOCK_SEQPACKET = 5; { sequential packet socket } SOCK_SEQPACKET = 5; { sequential packet socket }
{$endif} {$endif}
INVALID_SOCKET = -1; { To ease porting from Kylix libc}
SOCKET_ERROR = -1; { unit to sockets unit.}
INADDR_ANY = CARDINAL(0); INADDR_ANY = CARDINAL(0);
INADDR_NONE = CARDINAL($FFFFFFFF); INADDR_NONE = CARDINAL($FFFFFFFF);
@ -154,6 +157,8 @@ type
sun_path : array[0..107] of char; sun_path : array[0..107] of char;
end; end;
Tsocket=longint; {To easy porting code from Kylix libc unit to sockets unit.}
Var Var
SocketError:cint; SocketError:cint;