Make sure to protect the finalize call so tools like ompi_info

do not segv.

This commit was SVN r14054.

ompi/mca/crcp/base/crcp_base_close.c

@@ -28,7 +28,9 @@
 int ompi_crcp_base_close(void)
 {
     /* Close the selected component */
-    ompi_crcp.crcp_finalize();
+    if( NULL != ompi_crcp.crcp_finalize ) {
+        ompi_crcp.crcp_finalize();
+    }
 
     /* Close all available modules that are open */
     mca_base_components_close(ompi_crcp_base_output,

opal/mca/crs/base/crs_base_close.c

@@ -25,7 +25,9 @@
 int opal_crs_base_close(void)
 {
     /* Call the component's finalize routine */
-    opal_crs.crs_finalize();
+    if( NULL != opal_crs.crs_finalize ) {
+        opal_crs.crs_finalize();
+    }
 
     /* Close all available modules that are open */
     mca_base_components_close(opal_crs_base_output,

orte/mca/filem/base/filem_base_close.c

@@ -29,7 +29,9 @@
 int orte_filem_base_close(void)
 {
     /* Close the selected component */
-    orte_filem.filem_finalize();
+    if( NULL != orte_filem.filem_finalize ) {
+        orte_filem.filem_finalize();
+    }
 
     /* Close all available modules that are open */
     mca_base_components_close(orte_filem_base_output,

orte/mca/snapc/base/snapc_base_close.c

@@ -30,7 +30,9 @@ int orte_snapc_base_close(void)
 {
 
     /* Close the selected component */
-    orte_snapc.snapc_finalize();
+    if( NULL != orte_snapc.snapc_finalize ) {
+        orte_snapc.snapc_finalize();
+    }
 
     /* Close all available modules that are open */
     mca_base_components_close(orte_snapc_base_output,