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

* Fix by Dokkie8844 to treat error codes by GnuTLS in a more graceful manner. Fixes issue #40195

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-05 10:25:44 +01:00
parent 6941409295
commit 8e024b2606
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/gnutls/src/gnutlssockets.pp
View File

@ -588,7 +588,9 @@ Var
begin
P:=PByte(@Buffer);
Result:=Check(gnutls_record_send(Fsession,P,Count));
repeat
Result:=Check(gnutls_record_send(FSession,P,Count));
until (Result <> GNUTLS_E_AGAIN) and (Result <> GNUTLS_E_INTERRUPTED);
if Result<0 then
Result:=-1;
end;
@ -600,7 +602,9 @@ Var
begin
P:=PByte(@Buffer);
Result:=Check(gnutls_record_recv(FSession,P,Count));
repeat
Result:=Check(gnutls_record_recv(FSession,P,Count));
until (Result <> GNUTLS_E_AGAIN) and (Result <> GNUTLS_E_INTERRUPTED);
if Result<0 then
Result:=-1;
end;