浏览代码

mpi/src/starpu_mpi.c: free envelope once sent

Nathalie Furmento 10 年之前
父节点
当前提交
4b7e9ef312
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      mpi/src/starpu_mpi.c

+ 1 - 0
mpi/src/starpu_mpi.c

@@ -515,6 +515,7 @@ static void _starpu_mpi_irecv_data_func(struct _starpu_mpi_req *req)
 		_STARPU_MPI_COMM_TO_DEBUG(sizeof(struct _starpu_mpi_envelope), MPI_BYTE, req->node_tag.rank, _STARPU_MPI_TAG_ENVELOPE, _STARPU_MPI_TAG_ENVELOPE);
 		req->ret = MPI_Send(_envelope, sizeof(struct _starpu_mpi_envelope), MPI_BYTE, req->node_tag.rank, _STARPU_MPI_TAG_ENVELOPE, req->node_tag.comm);
 		STARPU_MPI_ASSERT_MSG(req->ret == MPI_SUCCESS, "MPI_Send returning %s", _starpu_mpi_get_mpi_code(req->ret));
+		free(envelope);
 	}
 
 	if (req->sync)