eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Moved blocking check to sockets class

This commit is contained in:
mysticbbs 2012-07-14 15:04:10 -04:00
parent 51875b54df
commit d9e78661d3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/bbs_io.pas
View File

@ -195,10 +195,11 @@ Begin
If Not TBBSCore(Core).LocalMode Then Begin If Not TBBSCore(Core).LocalMode Then Begin
Res := TBBSCore(Core).Client.WriteBuf(OutBuffer, OutBufPos); Res := TBBSCore(Core).Client.WriteBuf(OutBuffer, OutBufPos);
(* Moved to m_sockets_class 1.10a14
While (Res = -1) and (WSAGetLastError = EWOULDBLOCK) Do Begin While (Res = -1) and (WSAGetLastError = EWOULDBLOCK) Do Begin
WaitMS(10); WaitMS(10);
Res := TBBSCore(Core).Client.WriteBuf(OutBuffer, OutBufPos); Res := TBBSCore(Core).Client.WriteBuf(OutBuffer, OutBufPos);
End; End;*)
End; End;
OutBufPos := 0; OutBufPos := 0;