fix line endings

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 99e633974383a075aa99c86854c3d6cb6b365bba..7db6b3ef2e5e50b5a54043ee0989a3fe7b10eace 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -573,7 +573,16 @@ begin
           internalclose(0);\r
 \r
         end else begin\r
           internalclose(0);\r
 \r
         end else begin\r

-          internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});\r
+          {$ifdef win32}\r
+          if getlasterror=WSAEWOULDBLOCK then begin\r
+            //the asynchronous nature of windows messages means we sometimes\r
+            //get here with the buffer full\r
+            //so do nothing in that case\r
+          end else\r
+          {$endif}\r
+          begin\r
+            internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});\r
+          end  \r

         end;\r
       end;\r
 \r
         end;\r
       end;\r
 \r