X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9f34e4c6b167e7c684ba096920e4702a8d584e3c..9e5cdd9be620581f49dd99be6c20b76aef95769f:/src/smpi/smpi_receiver.c diff --git a/src/smpi/smpi_receiver.c b/src/smpi/smpi_receiver.c index 0f56f84b9e..ff6d1d8f03 100644 --- a/src/smpi/smpi_receiver.c +++ b/src/smpi/smpi_receiver.c @@ -3,15 +3,14 @@ XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_receiver, smpi, "Logging specific to SMPI (receiver)"); -int smpi_receiver(int argc, char **argv) +int smpi_receiver(int argc, char*argv[]) { + smpi_host_data_t mydata = SIMIX_process_get_data(SIMIX_process_self()); smx_process_t self; - int index; + int index = mydata->index; xbt_fifo_t request_queue; - smx_mutex_t request_queue_mutex; xbt_fifo_t message_queue; - smx_mutex_t message_queue_mutex; int running_hosts_count; @@ -23,13 +22,8 @@ int smpi_receiver(int argc, char **argv) self = SIMIX_process_self(); - index = smpi_host_index(); - - request_queue = smpi_global->pending_recv_request_queues[index]; - request_queue_mutex = - smpi_global->pending_recv_request_queues_mutexes[index]; + request_queue = mydata->pending_recv_request_queue; message_queue = smpi_global->received_message_queues[index]; - message_queue_mutex = smpi_global->received_message_queues_mutexes[index]; smpi_global->receiver_processes[index] = self; @@ -37,17 +31,9 @@ int smpi_receiver(int argc, char **argv) // FIXME: better algorithm, maybe some kind of balanced tree? or a heap? - // FIXME: not the best way to request multiple locks... - SIMIX_mutex_lock(request_queue_mutex); - SIMIX_mutex_lock(message_queue_mutex); - for (request_item = xbt_fifo_get_first_item(request_queue); - NULL != request_item; - request_item = xbt_fifo_get_next_item(request_item)) { - request = xbt_fifo_get_item_content(request_item); - for (message_item = xbt_fifo_get_first_item(message_queue); - NULL != message_item; - message_item = xbt_fifo_get_next_item(message_item)) { - message = xbt_fifo_get_item_content(message_item); + xbt_fifo_foreach(request_queue,request_item,request,smpi_mpi_request_t){ + xbt_fifo_foreach(message_queue,message_item,message, smpi_received_message_t) { + if (request->comm == message->comm && (MPI_ANY_SOURCE == request->src || request->src == message->src) && (MPI_ANY_TAG == request->tag || request->tag == message->tag)) { @@ -64,9 +50,6 @@ int smpi_receiver(int argc, char **argv) message = NULL; stopsearch: - SIMIX_mutex_unlock(message_queue_mutex); - SIMIX_mutex_unlock(request_queue_mutex); - if (NULL == request || NULL == message) { SIMIX_process_suspend(self); } else { @@ -94,9 +77,7 @@ int smpi_receiver(int argc, char **argv) } - SIMIX_mutex_lock(smpi_global->running_hosts_count_mutex); running_hosts_count = smpi_global->running_hosts_count; - SIMIX_mutex_unlock(smpi_global->running_hosts_count_mutex); } while (0 < running_hosts_count);