+static int match_recv(void* a, void* b) {
+ 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");
+ return req->comm == ref->comm
+ && (ref->src == MPI_ANY_SOURCE || req->src == ref->src)
+ && (ref->tag == MPI_ANY_TAG || req->tag == ref->tag);
+}
+
+static int match_send(void* a, void* b) {
+ 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");
+ return req->comm == ref->comm
+ && (req->src == MPI_ANY_SOURCE || req->src == ref->src)
+ && (req->tag == MPI_ANY_TAG || req->tag == ref->tag);
+}
+