- xbt_dynar_t storages = MSG_storages_as_dynar();
- if(!xbt_dynar_is_empty(storages)){
- for (unsigned long index = 0; index < xbt_dynar_length(storages) - 1; index++) {
- jobject jstorage = (jobject) xbt_lib_get_level(xbt_dynar_get_as(storages,index,msg_storage_t), JAVA_STORAGE_LEVEL);
- if (jstorage)
- jstorage_unref(env, jstorage);
- }
- }
- xbt_dynar_free(&storages);
+ for (auto const& elm : java_storage_map)
+ jstorage_unref(env, elm.second);
+
+ /* Display the status of remaining threads. None should survive, but who knows */
+ jclass clsProcess = jxbt_get_class(env, "org/simgrid/msg/Process");
+ jmethodID idDebug = jxbt_get_static_jmethod(env, clsProcess, "debugAllThreads", "()V");
+ xbt_assert(idDebug != nullptr, "Method Process.debugAllThreads() not found...");
+ env->CallStaticVoidMethod(clsProcess, idDebug);