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

* Merging revisions 42867 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42867 | michael | 2019-08-29 08:44:01 +0200 (Thu, 29 Aug 2019) | 1 line
    
    Fix bug ID #36023, deprecate sslleay
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42868 -
This commit is contained in:
michael 2019-08-29 06:45:00 +00:00
parent f6681cb340
commit 7e962b39e2
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/openssl/examples/test1.pas
View File

@ -16,5 +16,8 @@ begin
Writeln('Load ',Bools[B],', missing functions: ');
if OpenSSL_unavailable_functions<>'' then
Writeln(OpenSSL_unavailable_functions);
if b then
writeln('Version : ',OpenSSLGetVersion(0));
end.

2
packages/openssl/src/openssl.pas
View File

@ -1150,7 +1150,7 @@ var
function EvpPkeyAssign(pkey: PEVP_PKEY; _type: cInt; key: Prsa): cInt;
function EvpGetDigestByName(Name: String): PEVP_MD;
procedure EVPcleanup;
function SSLeayversion(t: cInt): string;
function SSLeayversion(t: cInt): string; deprecated 'For 1.1+ use OpenSSL_version';
procedure ErrErrorString(e: cInt; var buf: string; len: cInt);
function ErrGetError: cInt;
procedure ErrClearError;