X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/c04d5150e9097138a24534447acb8aec17acab19..eaf53edbc38a2987348e92205a2fd2f1982bc2e1:/lcore.pas?ds=sidebyside diff --git a/lcore.pas b/lcore.pas index 99e6339..7db6b3e 100755 --- a/lcore.pas +++ b/lcore.pas @@ -573,7 +573,16 @@ begin internalclose(0); end else begin - internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif}); + {$ifdef win32} + if getlasterror=WSAEWOULDBLOCK then begin + //the asynchronous nature of windows messages means we sometimes + //get here with the buffer full + //so do nothing in that case + end else + {$endif} + begin + internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif}); + end end; end;