paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 13:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r43693 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43693 | michael | 2019-12-15 18:13:08 +0100 (Sun, 15 Dec 2019) | 1 line
    
    * Fix bug #36443, patch from Andrew H. Allow non-blocking read
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43728 -
This commit is contained in:
michael 2019-12-23 13:28:44 +00:00
parent 9017588d3f
commit 4e1e808c25
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/openssl/src/opensslsockets.pp
View File

@ -298,6 +298,8 @@ begin
repeat
Result:=FSSL.Read(@Buffer ,Count);
e:=FSSL.GetError(Result);
if (e=SSL_ERROR_WANT_READ) and (Socket.IOTimeout>0) then
e:=SSL_ERROR_ZERO_RETURN;
until Not (e in [SSL_ERROR_WANT_READ,SSL_ERROR_WANT_WRITE]);
if (E=SSL_ERROR_ZERO_RETURN) then
Result:=0