[mpich2-commits] r9474 - mpich2/trunk/src/mpe2/src/wrappers/src

[chan at mcs.anl.gov]

Author: chan
Date: 2012-02-13 13:18:50 -0600 (Mon, 13 Feb 2012)
New Revision: 9474

Modified:
   mpich2/trunk/src/mpe2/src/wrappers/src/log_mpi_core.c
Log:
fixed logging bug of MPI_Irsend() reported by Van Bui (vbui at mcs.anl.gov).



Modified: mpich2/trunk/src/mpe2/src/wrappers/src/log_mpi_core.c
===================================================================
--- mpich2/trunk/src/mpe2/src/wrappers/src/log_mpi_core.c	2012-02-09 23:16:55 UTC (rev 9473)
+++ mpich2/trunk/src/mpe2/src/wrappers/src/log_mpi_core.c	2012-02-13 19:18:50 UTC (rev 9474)
@@ -4582,6 +4582,7 @@
 MPI_Request * request;
 {
   int  returnVal;
+  int  size;
   MPE_LOG_STATE_DECL
   MPE_LOG_THREADSTM_DECL
 
@@ -4593,6 +4594,9 @@
   MPE_LOG_THREADSTM_GET
   MPE_LOG_THREAD_LOCK
   MPE_LOG_STATE_BEGIN(comm,MPE_IRSEND_ID)
+
+  PMPI_Type_size( datatype, &size );
+  MPE_LOG_COMM_SEND( comm, dest, tag, size * count )
   MPE_LOG_THREAD_UNLOCK
 
 #if defined( MAKE_SAFE_PMPI_CALL )