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

Fix bug ID #36023, deprecate sslleay

Browse Source 
git-svn-id: trunk@42867 -
This commit is contained in:
michael 2019-08-29 06:44:01 +00:00
parent 022c4dded2
commit aa5b2bb027
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;