[mpich-commits] r10658 - mpich2/trunk/src/mpi/romio/adio/common
goodell at mcs.anl.gov
goodell at mcs.anl.gov
Wed Nov 21 14:56:28 CST 2012
Author: goodell
Date: 2012-11-21 14:56:27 -0600 (Wed, 21 Nov 2012)
New Revision: 10658
Modified:
mpich2/trunk/src/mpi/romio/adio/common/iscontig.c
Log:
fix overzealous MPICH2-->MPICH rename
No reviewer.
Modified: mpich2/trunk/src/mpi/romio/adio/common/iscontig.c
===================================================================
--- mpich2/trunk/src/mpi/romio/adio/common/iscontig.c 2012-11-21 20:56:27 UTC (rev 10657)
+++ mpich2/trunk/src/mpi/romio/adio/common/iscontig.c 2012-11-21 20:56:27 UTC (rev 10658)
@@ -9,7 +9,7 @@
#include "mpisgi2.h"
#endif */
-#if (defined(MPICH) || defined(MPICH))
+#if defined(MPICH)
/* MPICH also provides this routine */
void MPIR_Datatype_iscontig(MPI_Datatype datatype, int *flag);
@@ -17,19 +17,16 @@
{
MPIR_Datatype_iscontig(datatype, flag);
- /* if it is MPICH and the datatype is reported as contigous,
- check if the true_lb is non-zero, and if so, mark the
- datatype as noncontiguous */
-#ifdef MPICH
+ /* if the datatype is reported as contigous, check if the true_lb is
+ * non-zero, and if so, mark the datatype as noncontiguous */
if (*flag) {
MPI_Aint true_extent, true_lb;
-
+
MPI_Type_get_true_extent(datatype, &true_lb, &true_extent);
if (true_lb > 0)
*flag = 0;
}
-#endif
}
#elif (defined(MPIHP) && defined(HAVE_MPI_INFO))
More information about the commits
mailing list