mpi/c: add missing OPAL_CR_EXIT_LIBRARY() in [un]pack[_external]

Author: ggouaillardet

ompi/mpi/c/pack.c

@@ -13,7 +13,7 @@
  * Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
  * Copyright (c) 2013      Los Alamos National Security, LLC.  All rights
  *                         reserved.
- * Copyright (c) 2015      Research Organization for Information Science
+ * Copyright (c) 2015-2016 Research Organization for Information Science
  *                         and Technology (RIST). All rights reserved.
  * $COPYRIGHT$
  *
@@ -97,6 +97,8 @@ int MPI_Pack(const void *inbuf, int incount, MPI_Datatype datatype,
     *position += size;
     OBJ_DESTRUCT( &local_convertor );
 
+    OPAL_CR_EXIT_LIBRARY();
+
     /* All done.  Note that the convertor returns 1 upon success, not
        OMPI_SUCCESS. */
     OMPI_ERRHANDLER_RETURN((rc == 1) ? OMPI_SUCCESS : OMPI_ERROR,

ompi/mpi/c/pack_external.c

@@ -13,7 +13,7 @@
  * Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
  * Copyright (c) 2013      Los Alamos National Security, LLC.  All rights
  *                         reserved.
- * Copyright (c) 2015      Research Organization for Information Science
+ * Copyright (c) 2015-2016 Research Organization for Information Science
  *                         and Technology (RIST). All rights reserved.
  * $COPYRIGHT$
  *
@@ -101,6 +101,8 @@ int MPI_Pack_external(const char datarep[], const void *inbuf, int incount,
     *position += size;
     OBJ_DESTRUCT( &local_convertor );
 
+    OPAL_CR_EXIT_LIBRARY();
+
     /* All done.  Note that the convertor returns 1 upon success, not
        OMPI_SUCCESS. */
     OMPI_ERRHANDLER_RETURN((rc == 1) ? OMPI_SUCCESS : OMPI_ERROR,

ompi/mpi/c/unpack.c

@@ -10,7 +10,7 @@
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
  * Copyright (c) 2006-2013 Cisco Systems, Inc.  All rights reserved.
- * Copyright (c) 2015      Research Organization for Information Science
+ * Copyright (c) 2015-2016 Research Organization for Information Science
  *                         and Technology (RIST). All rights reserved.
  * $COPYRIGHT$
  *
@@ -106,6 +106,8 @@ int MPI_Unpack(const void *inbuf, int insize, int *position,
 
     }
 
+    OPAL_CR_EXIT_LIBRARY();
+
     OMPI_ERRHANDLER_RETURN((rc == 1) ? OMPI_SUCCESS : OMPI_ERROR,
                            comm, MPI_ERR_UNKNOWN, FUNC_NAME);
 

ompi/mpi/c/unpack_external.c

@@ -13,7 +13,7 @@
  * Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
  * Copyright (c) 2013      Los Alamos National Security, LLC.  All rights
  *                         reserved.
- * Copyright (c) 2015      Research Organization for Information Science
+ * Copyright (c) 2015-2016 Research Organization for Information Science
  *                         and Technology (RIST). All rights reserved.
  * $COPYRIGHT$
  *
@@ -93,6 +93,8 @@ int MPI_Unpack_external (const char datarep[], const void *inbuf, MPI_Aint insiz
     *position += size;
     OBJ_DESTRUCT( &local_convertor );
 
+    OPAL_CR_EXIT_LIBRARY();
+
     /* All done.  Note that the convertor returns 1 upon success, not
        OMPI_SUCCESS. */
     OMPI_ERRHANDLER_RETURN((rc == 1) ? OMPI_SUCCESS : OMPI_ERROR,