pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Fixed fpBind call.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@101 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2009-09-29 20:09:10 +00:00
parent b7a13ad29c
commit d36aba9935
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ssfpc.pas
View File

@ -515,7 +515,7 @@ end;
function Bind(s: TSocket; const addr: TVarSin): Integer; function Bind(s: TSocket; const addr: TVarSin): Integer;
begin begin
if fpBind(s, @addr, SizeOfVarSin(addr)) then if fpBind(s, @addr, SizeOfVarSin(addr)) = 0 then
Result := 0 Result := 0
else else
Result := SOCKET_ERROR; Result := SOCKET_ERROR;