External pack/unpack fixes.

This commit was SVN r10223.

ompi/mpi/c/pack_external.c

@@ -56,6 +56,8 @@ int MPI_Pack_external(char *datarep, void *inbuf, int incount,
         }
     }
 
+    OBJ_CONSTRUCT(&local_convertor, ompi_convertor_t);
+
     /* The resulting convertor will be set to the position zero */
     ompi_convertor_copy_and_prepare_for_send( ompi_mpi_external32_convertor,
                                               datatype, incount, inbuf, 0, &local_convertor );

ompi/mpi/c/pack_external_size.c

@@ -47,6 +47,9 @@ int MPI_Pack_external_size(char *datarep, int incount,
             return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_TYPE, FUNC_NAME);
         }
     }
+
+    OBJ_CONSTRUCT(&local_convertor, ompi_convertor_t);
+
     /* the resulting convertor will be set to the position ZERO */
     ompi_convertor_copy_and_prepare_for_send( ompi_mpi_external32_convertor,
                                               datatype, incount, NULL, 0, &local_convertor );
@@ -55,5 +58,5 @@ int MPI_Pack_external_size(char *datarep, int incount,
     *size = (MPI_Aint)length;
     OBJ_DESTRUCT( &local_convertor );
     
-    return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
+    return OMPI_SUCCESS;
 }

ompi/mpi/c/unpack_external.c

@@ -53,9 +53,11 @@ int MPI_Unpack_external (char *datarep, void *inbuf, MPI_Aint insize,
         }
     }
 
+    OBJ_CONSTRUCT(&local_convertor, ompi_convertor_t);
+
     /* the resulting convertor will be set to the position ZERO */
-    ompi_convertor_copy_and_prepare_for_send( ompi_mpi_external32_convertor,
-                                              datatype, outcount, NULL, 0, &local_convertor );
+    ompi_convertor_copy_and_prepare_for_recv( ompi_mpi_external32_convertor,
+                                              datatype, outcount, outbuf, 0, &local_convertor );
 
     /* Check for truncation */
     ompi_convertor_get_packed_size( &local_convertor, &size );