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

+ Corrected GetSocketOptions

Browse Source
This commit is contained in:
michael 2000-06-19 13:31:46 +00:00
parent 206ea5435c
commit 9fee5cffce
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/socketsh.inc
View File

@ -103,7 +103,7 @@ Function Shutdown(Sock:Longint;How:Longint):Longint;
Function GetSocketName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
Function GetPeerName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
Function SetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;optlen:longint):Longint;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;optlen:longint):Longint;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;Var optlen:longint):Longint;
Function SocketPair(Domain,SocketType,Protocol:Longint;var Pair:TSockArray):Longint;
{Text Support}
@ -120,7 +120,10 @@ Function Connect(Sock:longint;const addr:TInetSockAddr;var SockIn,SockOut:file):
{
$Log$
Revision 1.6 2000-06-02 17:30:43 marco
Revision 1.7 2000-06-19 13:31:46 michael
+ Corrected GetSocketOptions
Revision 1.6 2000/06/02 17:30:43 marco
* added some constants for getsocketoptions under a linux define.
Allows server example to work ok.

7
rtl/linux/sockets.pp
View File

@ -207,7 +207,7 @@ end;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;optlen:longint):Longint;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;Var optlen:longint):Longint;
begin
GetSocketOptions:=SocketCall(Socket_Sys_GetSockOpt,Sock,Level,OptName,Longint(@OptVal),OptLen,0);
end;
@ -320,7 +320,10 @@ end.
{
$Log$
Revision 1.14 2000-03-16 15:24:37 marco
Revision 1.15 2000-06-19 13:31:46 michael
+ Corrected GetSocketOptions
Revision 1.14 2000/03/16 15:24:37 marco
* Put one BSD incompability under an ifndef BSD
Revision 1.13 2000/02/09 16:59:32 peter

7
rtl/win32/sockets.pp
View File

@ -155,7 +155,7 @@ begin
SocketError:=0;
end;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;optlen:longint):Longint;
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;Var optlen:longint):Longint;
begin
GetSocketOptions:=WinSock.GetSockOpt(Sock,Level,OptName,OptVal,OptLen);
if GetSocketOptions<0 then
@ -211,7 +211,10 @@ finalization
end.
{
$Log$
Revision 1.5 2000-02-09 16:59:34 peter
Revision 1.6 2000-06-19 13:32:18 michael
+ Corrected GetSocketOptions
Revision 1.5 2000/02/09 16:59:34 peter
* truncated log
Revision 1.4 2000/01/07 16:41:52 daniel