finding the openssl blowup that resurrected itself

openssl continues to be a real anchor on the feet of a swimmer.

diff --git a/nucleus/library/crypto/ssl_init.cpp b/nucleus/library/crypto/ssl_init.cpp
index 5f5501eac6d636959b88415b3d692a6642c6edf9..a5c98a289a101f3c3c0499b1ce92ac2ced91cc49 100644 (file)
--- a/nucleus/library/crypto/ssl_init.cpp
+++ b/nucleus/library/crypto/ssl_init.cpp
@@ -31,7 +31,7 @@ using namespace structures;
 
 namespace crypto {
 
-//#define DEBUG_SSL
+#define DEBUG_SSL
   // uncomment to cause more debugging information to be generated, plus
   // more checking to be performed in the SSL support.
 
@@ -55,6 +55,7 @@ ssl_init::ssl_init()
 {
   FUNCDEF("ctor");
 
+  LOG("prior to provider setup");
   // also load the default provider or the standard, still accepted, algorithms will not be available.
   OSSL_PROVIDER *default_provider = OSSL_PROVIDER_load(NULL_POINTER, "default");
   if (!default_provider) {
@@ -68,15 +69,8 @@ ssl_init::ssl_init()
     exit(1);
   }
 //hmmm: do we need to clean up those providers?
+  LOG("after provider setup");
 
-#ifdef DEBUG_SSL
-  LOG("prior to crypto debug init");
-  CRYPTO_malloc_debug_init();
-  LOG("prior to dbg set options");
-  CRYPTO_dbg_set_options(V_CRYPTO_MDEBUG_ALL);
-  LOG("prior to mem ctrl");
-  CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON);
-#endif
   LOG("prior to rand seed");
   RAND_seed(random_bytes(SEED_SIZE).observe(), SEED_SIZE);
   LOG("after rand seed");
@@ -87,16 +81,6 @@ ssl_init::~ssl_init()
   FUNCDEF("destructor");
   LOG("prior to crypto cleanup");
   CRYPTO_cleanup_all_ex_data();
-
-//hmmm: deprecated
-//  LOG("prior to err remove state");
-//  ERR_remove_thread_state(NULL);
-
-
-//THIS HAD TO be removed in most recent openssl; does it exist?
-//  LOG("prior to mem leaks fp");
-//  CRYPTO_mem_leaks_fp(stderr);
-//  LOG("after mem leaks fp");
 }
 
 const chaos &ssl_init::randomizer() const { return c_rando; }

diff --git a/nucleus/library/tests_crypto/test_blowfish_crypto.cpp b/nucleus/library/tests_crypto/test_blowfish_crypto.cpp
index 6ae43d55aa673b7d867a7fbec66f946210bd190d..db3c92a5df970b362ad8864991e2ac39283467a4 100644 (file)
--- a/nucleus/library/tests_crypto/test_blowfish_crypto.cpp
+++ b/nucleus/library/tests_crypto/test_blowfish_crypto.cpp
@@ -108,7 +108,7 @@ int test_blowfish::execute()
 
   while (_threads.threads()) {
 #ifdef DEBUG_BLOWFISH
-    LOG("cleaning debris.");
+    LOG("periodic debris cleaning.");
 #endif
     _threads.clean_debris();
     time_control::sleep_ms(1000);