[mpich2-commits] r4228 - mpich2/trunk/src/mpi/coll
goodell at mcs.anl.gov
goodell at mcs.anl.gov
Tue Mar 31 12:56:21 CDT 2009
Author: goodell
Date: 2009-03-31 12:56:21 -0500 (Tue, 31 Mar 2009)
New Revision: 4228
Modified:
mpich2/trunk/src/mpi/coll/helper_fns.c
Log:
Fix for MPIR_Localcopy with non-standard MPI_Aint sizes (ticket #505).
Reviewed by buntinas at .
Modified: mpich2/trunk/src/mpi/coll/helper_fns.c
===================================================================
--- mpich2/trunk/src/mpi/coll/helper_fns.c 2009-03-31 00:40:19 UTC (rev 4227)
+++ mpich2/trunk/src/mpi/coll/helper_fns.c 2009-03-31 17:56:21 UTC (rev 4228)
@@ -231,17 +231,17 @@
else if (sendtype_iscontig)
{
MPID_Segment seg;
- MPIDI_msg_sz_t last;
+ MPI_Aint last;
MPID_Segment_init(recvbuf, recvcount, recvtype, &seg, 0);
last = copy_sz;
MPID_Segment_unpack(&seg, 0, &last, (char*)sendbuf + sendtype_true_lb);
- MPIU_ERR_CHKANDJUMP(last != copy_sz, mpi_errno, MPI_ERR_TYPE, "**dtypemismatch");
+ MPIU_ERR_CHKANDJUMP(last != copy_sz, mpi_errno, MPI_ERR_TYPE, "**dtypemismatch");
}
else if (recvtype_iscontig)
{
MPID_Segment seg;
- MPIDI_msg_sz_t last;
+ MPI_Aint last;
MPID_Segment_init(sendbuf, sendcount, sendtype, &seg, 0);
last = copy_sz;
@@ -256,9 +256,9 @@
MPIDI_msg_sz_t sfirst;
MPID_Segment rseg;
MPIDI_msg_sz_t rfirst;
-
- MPIU_CHKLMEM_MALLOC(buf, char *, COPY_BUFFER_SZ, mpi_errno, "buf");
+ MPIU_CHKLMEM_MALLOC(buf, char *, COPY_BUFFER_SZ, mpi_errno, "buf");
+
MPID_Segment_init(sendbuf, sendcount, sendtype, &sseg, 0);
MPID_Segment_init(recvbuf, recvcount, recvtype, &rseg, 0);
More information about the mpich2-commits
mailing list