From: plugwash Date: Fri, 23 Jan 2009 18:52:08 +0000 (+0000) Subject: fix line endings X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/be01aa2e4e4e54fd8bb3ea27ac3c6b7978553b6e?ds=inline fix line endings git-svn-id: file:///svnroot/lcore/trunk@28 b1de8a11-f9be-4011-bde0-cc7ace90066a --- diff --git a/lcore.pas b/lcore.pas index 77bf4f0..7db6b3e 100755 --- a/lcore.pas +++ b/lcore.pas @@ -573,16 +573,16 @@ begin internalclose(0); end else begin - {$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 + {$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; end;