- memcpy(recvbuf, sendbuf, count * datatype->size * sizeof(char)); // initiliaze recv buf with my own snd buf
-
- // i can not use: 'request->forward = size-1;' (which would progagate size-1 receive reqs)
- // since we should op values as soon as one receiving request matches.
- for (i = 0; i < size - 1; i++) {
- // reminder: for smpi_create_request() the src is always the process sending.
- src = i < root ? i : i + 1;
- retval = smpi_create_request(tmpbufs[i], count, datatype,
- src, root, tag, comm, &(tabrequest[i]));
- if (NULL != tabrequest[i] && MPI_SUCCESS == retval) {
- if (MPI_SUCCESS == retval) {
- smpi_mpi_irecv(tabrequest[i]);
- }
- }
+ }
+ int rank_traced = smpi_comm_rank(MPI_COMM_WORLD);
+ TRACE_smpi_ptp_in(rank_traced, -1, -1, __FUNCTION__);
+#endif
+ if (index == NULL) {
+ retval = MPI_ERR_ARG;
+ } else {
+ *index = smpi_mpi_waitany(count, requests, status);
+ retval = MPI_SUCCESS;
+ }
+#ifdef HAVE_TRACING
+ int src_traced, dst_traced, is_wait_for_receive;
+ xbt_dynar_get_cpy(srcs, *index, &src_traced);
+ xbt_dynar_get_cpy(dsts, *index, &dst_traced);
+ xbt_dynar_get_cpy(recvs, *index, &is_wait_for_receive);
+ if (is_wait_for_receive) {
+ TRACE_smpi_recv(rank_traced, src_traced, dst_traced);
+ }
+ TRACE_smpi_ptp_out(rank_traced, src_traced, dst_traced, __FUNCTION__);
+ //clean-up of dynars
+ xbt_free(srcs);
+ xbt_free(dsts);
+ xbt_free(recvs);
+#endif
+ smpi_bench_begin(-1, NULL);
+ return retval;
+}
+
+int MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])
+{
+
+ smpi_bench_end(-1, NULL); //FIXME
+#ifdef HAVE_TRACING
+ //save information from requests
+ int i;
+ xbt_dynar_t srcs = xbt_dynar_new(sizeof(int), xbt_free);
+ xbt_dynar_t dsts = xbt_dynar_new(sizeof(int), xbt_free);
+ xbt_dynar_t recvs = xbt_dynar_new(sizeof(int), xbt_free);
+ for (i = 0; i < count; i++) {
+ MPI_Request req = requests[i]; //all req should be valid in Waitall
+ int *asrc = xbt_new(int, 1);
+ int *adst = xbt_new(int, 1);
+ int *arecv = xbt_new(int, 1);
+ *asrc = req->src;
+ *adst = req->dst;
+ *arecv = req->recv;
+ xbt_dynar_insert_at(srcs, i, asrc);
+ xbt_dynar_insert_at(dsts, i, adst);
+ xbt_dynar_insert_at(recvs, i, arecv);
+ }
+ int rank_traced = smpi_comm_rank (MPI_COMM_WORLD);
+ TRACE_smpi_ptp_in(rank_traced, -1, -1, __FUNCTION__);
+#endif
+ smpi_mpi_waitall(count, requests, status);
+#ifdef HAVE_TRACING
+ for (i = 0; i < count; i++) {
+ int src_traced, dst_traced, is_wait_for_receive;
+ xbt_dynar_get_cpy(srcs, i, &src_traced);
+ xbt_dynar_get_cpy(dsts, i, &dst_traced);
+ xbt_dynar_get_cpy(recvs, i, &is_wait_for_receive);
+ if (is_wait_for_receive) {
+ TRACE_smpi_recv(rank_traced, src_traced, dst_traced);