Add some finalization logic when universe isn't found and orte_init returns per MCA parameter.

This commit was SVN r6362.

orte/runtime/orte_init_stage1.c

@@ -27,6 +27,7 @@
 #include "opal/event/event.h"
 #include "opal/util/output.h"
 #include "opal/threads/mutex.h"
+#include "opal/runtime/opal.h"
 #include "dps/dps.h"
 #include "mca/mca.h"
 #include "mca/base/base.h"
@@ -202,6 +203,20 @@ int orte_init_stage1(void)
                 return rc;
             }
             if (exit_if_not_exist) {
+                /* cleanup the subsystems that were already opened */
+                orte_wait_finalize();
+                orte_ns_base_close();
+                orte_gpr_base_close();
+                orte_schema_base_close();
+                orte_rml_base_close();
+                orte_dps_close();
+                orte_errmgr_base_close();
+                opal_progress_finalize();
+                opal_event_fini();
+                orte_sys_info_finalize();
+                orte_proc_info_finalize();
+                orte_univ_info_finalize();
+                opal_finalize();
                 return ORTE_ERR_UNREACH;
             }
             if (ORTE_ERR_NOT_FOUND != ret) {

orte/runtime/orte_system_finalize.c

@@ -26,6 +26,8 @@
 #include "dps/dps.h"
 #include "mca/ns/base/base.h"
 #include "mca/gpr/base/base.h"
+#include "mca/errmgr/base/base.h"
+#include "mca/schema/base/base.h"
 #include "mca/iof/base/base.h"
 #include "mca/rmgr/base/base.h"
 #include "opal/util/if.h"
@@ -62,9 +64,11 @@ int orte_system_finalize(void)
 
     orte_ns_base_close();
     orte_gpr_base_close();
+    orte_schema_base_close();
     orte_rml_base_close();
     orte_dps_close();
-
+    orte_errmgr_base_close();
+    
     opal_progress_finalize();
 
     opal_event_fini();