[mpich2-commits] r3981 - mpich2/trunk/src/mpi/coll

[goodell at mcs.anl.gov]

Author: goodell
Date: 2009-03-09 11:24:47 -0500 (Mon, 09 Mar 2009)
New Revision: 3981

Modified:
   mpich2/trunk/src/mpi/coll/allgatherv.c
Log:
Cleanup warnings in allgatherv.c.

No reviewer.

Modified: mpich2/trunk/src/mpi/coll/allgatherv.c
===================================================================
--- mpich2/trunk/src/mpi/coll/allgatherv.c	2009-03-09 08:19:25 UTC (rev 3980)
+++ mpich2/trunk/src/mpi/coll/allgatherv.c	2009-03-09 16:24:47 UTC (rev 3981)
@@ -75,7 +75,7 @@
 {
     static const char FCNAME[] = "MPIR_Allgatherv";
     MPI_Comm comm;
-    int        comm_size, rank, j, i, jnext, left, right;
+    int        comm_size, rank, j, i, left, right;
     int        mpi_errno = MPI_SUCCESS;
     MPI_Status status;
     MPI_Aint recvbuf_extent, recvtype_extent, recvtype_true_extent, 
@@ -703,7 +703,7 @@
         int soffset, roffset;
 	int torecv, tosend, min;
 	int sendnow, recvnow;
-	int smsg_len, rmsg_len, sindex, rindex;
+	int sindex, rindex;
 
         if (sendbuf != MPI_IN_PLACE) {
             /* First, load the "local" version in the recvbuf. */
@@ -743,8 +743,8 @@
         while (tosend || torecv) { /* While we have data to send or receive */
             sendnow = ((recvcounts[sindex] - soffset) > min) ? min : (recvcounts[sindex] - soffset);
             recvnow = ((recvcounts[rindex] - roffset) > min) ? min : (recvcounts[rindex] - roffset);
-            sbuf = recvbuf + ((displs[sindex] + soffset) * recvtype_extent);
-            rbuf = recvbuf + ((displs[rindex] + roffset) * recvtype_extent);
+            sbuf = (char *)recvbuf + ((displs[sindex] + soffset) * recvtype_extent);
+            rbuf = (char *)recvbuf + ((displs[rindex] + roffset) * recvtype_extent);
 
             /* Protect against wrap-around of indices */
             if (!tosend)