/[lcore]/trunk/lsocket.pas
ViewVC logotype

Diff of /trunk/lsocket.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by plugwash, Thu Feb 4 22:47:07 2010 UTC revision 71 by beware, Wed Feb 10 03:34:48 2010 UTC
# Line 177  Line 177 
177    begin    begin
178      result := getpeername(sock,addr,addrlen);      result := getpeername(sock,addr,addrlen);
179    end;    end;
180      function system_getsocketname(Sock: LongInt;var Addr;var Addrlen: LongInt):LongInt;
181      begin
182        result := getsocketname(sock,addr,addrlen);
183      end;
184    function system_listen(Sock: LongInt; MaxConnect: LongInt):Boolean;    function system_listen(Sock: LongInt; MaxConnect: LongInt):Boolean;
185    begin    begin
186      result := listen(sock,maxconnect);      result := listen(sock,maxconnect);
# Line 686  Line 690 
690    {$ifdef win32}    {$ifdef win32}
691      winsock.getsockname(self.fdhandlein,psockaddr(@addr)^,i);      winsock.getsockname(self.fdhandlein,psockaddr(@addr)^,i);
692    {$else}    {$else}
693      getsocketname(self.fdhandlein,addr,i);      system_getsocketname(self.fdhandlein,addr,i);
694    {$endif}    {$endif}
695    binip := inaddrvtobinip(addr);    binip := inaddrvtobinip(addr);
696    converttov4(binip);    converttov4(binip);
# Line 737  Line 741 
741      winsock.getsockname(self.fdhandlein,psockaddrin(@addr)^,i);      winsock.getsockname(self.fdhandlein,psockaddrin(@addr)^,i);
742    
743    {$else}    {$else}
744      getsocketname(self.fdhandlein,addr,i);      system_getsocketname(self.fdhandlein,addr,i);
745    
746    {$endif}    {$endif}
747    result := inttostr(htons(addr.InAddr.port));    result := inttostr(htons(addr.InAddr.port));

Legend:
Removed from v.70  
changed lines
  Added in v.71

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22