Преглед на файлове

Fix size of packed data free after MPI send

Samuel Thibault преди 5 години
родител
ревизия
c15b2b8192
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      mpi/src/mpi/starpu_mpi_mpi.c

+ 1 - 1
mpi/src/mpi/starpu_mpi_mpi.c

@@ -856,7 +856,7 @@ static void _starpu_mpi_handle_request_termination(struct _starpu_mpi_req *req)
 					int ret;
 					ret = MPI_Wait(&req->backend->size_req, MPI_STATUS_IGNORE);
 					STARPU_MPI_ASSERT_MSG(ret == MPI_SUCCESS, "MPI_Wait returning %s", _starpu_mpi_get_mpi_error_code(ret));
-					starpu_free_on_node_flags(STARPU_MAIN_RAM, req->ptr, req->backend->envelope->size, 0);
+					starpu_free_on_node_flags(STARPU_MAIN_RAM, req->ptr, req->count, 0);
 					req->ptr = NULL;
 				}
 				else if (req->request_type == RECV_REQ)