Fix bug ID #36023, deprecate sslleay

git-svn-id: trunk@42867 -

packages/openssl/examples/test1.pas

@@ -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.
 

packages/openssl/src/openssl.pas

@@ -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;