Procházet zdrojové kódy

* Write not-loaded functions in case of load fail

git-svn-id: trunk@32805 -
michael před 9 roky
rodič
revize
602cce97ac
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      packages/openssl/examples/test1.pas

+ 1 - 1
packages/openssl/examples/test1.pas

@@ -9,6 +9,6 @@ begin
   if InitSSLInterface then
     Writeln('Success')
   else
-    Writeln('Holy shit!');
+    Writeln('Load failed, missing functions: ',OpenSSL_unavailable_functions);
 end.