+ Corrected GetSocketOptions

rtl/inc/socketsh.inc

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

rtl/linux/sockets.pp

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

rtl/win32/sockets.pp

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