request->refcount++;
if(request->old_type->has_subtype == 0){
oldbuf = request->buf;
- if (oldbuf && request->size!=0){
+ if (!_xbt_replay_is_active() && oldbuf && request->size!=0){
request->buf = xbt_malloc(request->size);
memcpy(request->buf,oldbuf,request->size);
}
flag = simcall_comm_test((*request)->action);
if (flag) {
finish_wait(request, status);
+ if (*request != MPI_REQUEST_NULL && !((*request)->flags & PERSISTENT))
*request = MPI_REQUEST_NULL;
}
}
if(i != -1) {
*index = map[i];
finish_wait(&requests[*index], status);
+ if (requests[*index] != MPI_REQUEST_NULL && (requests[*index]->flags & NON_PERSISTENT))
requests[*index] = MPI_REQUEST_NULL;
flag = 1;
}
}
finish_wait(request, status);
- *request = MPI_REQUEST_NULL;
+ if (*request != MPI_REQUEST_NULL && ((*request)->flags & NON_PERSISTENT))
+ *request = MPI_REQUEST_NULL;
// FIXME for a detached send, finish_wait is not called:
}
size=0;//so we free the dynar but don't do the waitany call
index=i;
finish_wait(&requests[i], status);//cleanup if refcount = 0
+ if (requests[i] != MPI_REQUEST_NULL && (requests[i]->flags & NON_PERSISTENT))
requests[i]=MPI_REQUEST_NULL;//set to null
break;
}
if (i != -1) {
index = map[i];
finish_wait(&requests[index], status);
+ if (requests[i] != MPI_REQUEST_NULL && (requests[i]->flags & NON_PERSISTENT))
requests[index] = MPI_REQUEST_NULL;
}
}
index = smpi_mpi_waitany(count, requests, pstat);
if (index == MPI_UNDEFINED)
break;
+ if (requests[index] != MPI_REQUEST_NULL && (requests[index]->flags & NON_PERSISTENT))
requests[index]=MPI_REQUEST_NULL;
}
if (status != MPI_STATUSES_IGNORE) {
if(status != MPI_STATUSES_IGNORE) {
status[index] = *pstat;
}
+ if (requests[index] != MPI_REQUEST_NULL && (requests[index]->flags & NON_PERSISTENT))
requests[index]=MPI_REQUEST_NULL;
}else{
return MPI_UNDEFINED;
if(status != MPI_STATUSES_IGNORE) {
status[i] = *pstat;
}
+ if (requests[i]->flags & NON_PERSISTENT)
requests[i]=MPI_REQUEST_NULL;
-
}
}else{
count_dead++;