paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add macro translation

Browse Source 
git-svn-id: trunk@40781 -
This commit is contained in:
michael 2019-01-06 11:39:36 +00:00
parent 59cd593331
commit be42c5b97d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1191,6 +1191,8 @@ const
GNUTLS_TL_NO_DUPLICATE_KEY = 1 shl 3; GNUTLS_TL_NO_DUPLICATE_KEY = 1 shl 3;
GNUTLS_TL_GET_COPY = 1 shl 4; GNUTLS_TL_GET_COPY = 1 shl 4;
procedure gnutls_transport_set_int(s : tgnutls_session_t; r : cint);
procedure LoadGnuTLS(alib : String = ''); procedure LoadGnuTLS(alib : String = '');
procedure FreeGnuTLS; procedure FreeGnuTLS;
Function GnuTLSloaded : Boolean; Function GnuTLSloaded : Boolean;
@ -1201,6 +1203,12 @@ implementation
uses uses
SysUtils, dynlibs; SysUtils, dynlibs;
procedure gnutls_transport_set_int(s : tgnutls_session_t; r : cint);
begin
gnutls_transport_set_int2(s,r,r);
end;
var var
hlib : tlibhandle; hlib : tlibhandle;
LoadedLibName : String; LoadedLibName : String;