|
From: <sv...@va...> - 2006-03-08 15:27:40
|
Author: sewardj
Date: 2006-03-08 15:27:37 +0000 (Wed, 08 Mar 2006)
New Revision: 5727
Log:
New wrapper, and an MPICH build fix.
Modified:
trunk/auxprogs/mpiwrap.c
Modified: trunk/auxprogs/mpiwrap.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/auxprogs/mpiwrap.c 2006-03-08 15:26:10 UTC (rev 5726)
+++ trunk/auxprogs/mpiwrap.c 2006-03-08 15:27:37 UTC (rev 5727)
@@ -280,7 +280,9 @@
else if (ty =3D=3D MPI_2INT) fprintf(f,"2INT");
else if (ty =3D=3D MPI_UB) fprintf(f,"UB");
else if (ty =3D=3D MPI_LB) fprintf(f,"LB");
+#if defined(MPI_WCHAR)
else if (ty =3D=3D MPI_WCHAR) fprintf(f,"WCHAR");
+#endif
else if (ty =3D=3D MPI_LONG_LONG_INT) fprintf(f,"LONG_LONG_INT");
else if (ty =3D=3D MPI_LONG_LONG) fprintf(f,"LONG_LONG");
else if (ty =3D=3D MPI_UNSIGNED_LONG_LONG) fprintf(f,"UNSIGNED_LONG_L=
ONG");
@@ -1330,6 +1332,29 @@
=20
/*------------------------------------------------------------*/
/*--- ---*/
+/*--- Sec 7.3, Error codes and classes ---*/
+/*--- ---*/
+/*------------------------------------------------------------*/
+
+/* --- Error_string --- */
+int WRAPPER_FOR(PMPI_Error_string)( int errorcode, char* string, int* re=
sultlen )
+{
+ OrigFn fn;
+ int err;
+ VALGRIND_GET_ORIG_FN(fn);
+ before("Error_string");
+ check_writable_untyped(resultlen, sizeof(int));
+ check_writable_untyped(string, MPI_MAX_ERROR_STRING);
+ CALL_FN_W_WWW(err, fn, errorcode,string,resultlen);
+ /* Don't bother to paint the result; we assume the real function
+ will have filled it with defined characters :-) */
+ after("Error_string", err);
+ return err;
+}
+
+
+/*------------------------------------------------------------*/
+/*--- ---*/
/*--- Sec 7.5, Startup ---*/
/*--- ---*/
/*------------------------------------------------------------*/
@@ -1442,7 +1467,6 @@
NO_OP_WRAPPER(Errhandler_set)
=20
UNIMPLEMENTED_WRAPPER(Error_class)
-UNIMPLEMENTED_WRAPPER(Error_string)
=20
UNIMPLEMENTED_WRAPPER(Finalized)
=20
|