- request->rdv = SIMIX_req_rdv_create(NULL);
- xbt_fifo_push(data->pending_sent, request);
-}
-
-void smpi_process_post_recv(MPI_Request request)
-{
- smpi_process_data_t data = smpi_process_data();
- xbt_fifo_item_t item;
- MPI_Request req;
-
- print_request("Irecv", request);
- xbt_fifo_foreach(data->pending_sent, item, req, MPI_Request) {
- if (req->comm == request->comm
- && (request->src == MPI_ANY_SOURCE || req->src == request->src)
- && (request->tag == MPI_ANY_TAG || req->tag == request->tag)) {
- print_request("Match found", req);
- xbt_fifo_remove_item(data->pending_sent, item);
- /* Materialize the *_ANY_* fields from the irecv request */
- req->match = request;
- request->src = req->src;
- request->tag = req->tag;
- request->rdv = req->rdv;
- request->match = req;
- return;
- }
- }
- request->rdv = SIMIX_req_rdv_create(NULL);
- xbt_fifo_push(data->pending_recv, request);