MPI_Request ref = (MPI_Request)a;
MPI_Request req = (MPI_Request)b;
- xbt_assert0(ref, "Cannot match recv against null reference");
- xbt_assert0(req, "Cannot match recv against null request");
+ xbt_assert(ref, "Cannot match recv against null reference");
+ xbt_assert(req, "Cannot match recv against null request");
return req->comm == ref->comm
&& (ref->src == MPI_ANY_SOURCE || req->src == ref->src)
&& (ref->tag == MPI_ANY_TAG || req->tag == ref->tag);
MPI_Request ref = (MPI_Request)a;
MPI_Request req = (MPI_Request)b;
- xbt_assert0(ref, "Cannot match send against null reference");
- xbt_assert0(req, "Cannot match send against null request");
+ xbt_assert(ref, "Cannot match send against null reference");
+ xbt_assert(req, "Cannot match send against null request");
return req->comm == ref->comm
&& (req->src == MPI_ANY_SOURCE || req->src == ref->src)
&& (req->tag == MPI_ANY_TAG || req->tag == ref->tag);
{
smx_rdv_t mailbox;
- xbt_assert0(!request->action,
+ xbt_assert(!request->action,
"Cannot (re)start a non-finished communication");
if(request->flags & RECV) {
print_request("New recv", request);
comms = xbt_dynar_new(sizeof(smx_action_t), NULL);
map = xbt_new(int, count);
size = 0;
- DEBUG0("Wait for one of");
+ XBT_DEBUG("Wait for one of");
for(i = 0; i < count; i++) {
if(requests[i] != MPI_REQUEST_NULL) {
print_request(" ", requests[i]);
MPI_Datatype recvtype, MPI_Comm comm)
{
int system_tag = 666;
- int rank, size, other, index, sendsize, recvsize;
+ int rank, size, other, index, sendsize;
MPI_Request *requests;
rank = smpi_comm_rank(comm);
size = smpi_comm_size(comm);
sendsize = smpi_datatype_size(sendtype);
- recvsize = smpi_datatype_size(recvtype);
// Local copy from self
memcpy(&((char *) recvbuf)[displs[rank]], sendbuf,
sendcount * sendsize * sizeof(char));
MPI_Datatype recvtype, int root, MPI_Comm comm)
{
int system_tag = 666;
- int rank, size, dst, index, sendsize, recvsize;
+ int rank, size, dst, index, recvsize;
MPI_Request *requests;
rank = smpi_comm_rank(comm);
smpi_mpi_recv(recvbuf, recvcount, recvtype, root, system_tag, comm,
MPI_STATUS_IGNORE);
} else {
- sendsize = smpi_datatype_size(sendtype);
recvsize = smpi_datatype_size(recvtype);
// Local copy from root
memcpy(recvbuf, &((char *) sendbuf)[displs[root]],