XBT_LOG_NEW_DEFAULT_SUBCATEGORY(simix_smurf, simix,
"Logging specific to SIMIX (SMURF)");
-/* Requests to handle at the end of this round of scheduling user processes */
-static xbt_heap_t req_todo;
-/* to protect the write actions in the heap */
-static xbt_os_mutex_t sync_req_positions;
+/* Tables with the requests to handle at the end of this round of scheduling
+ * user processes. There is one for each thread of execution. */
+static xbt_swag_t *req_lists;
void SIMIX_request_init(void)
{
- req_todo = xbt_heap_new(5,NULL);
- sync_req_positions = xbt_os_mutex_init();
+ s_smx_req_t req;
+ int i, nthreads = SIMIX_context_get_nthreads();
+
+ req_lists = xbt_new0(xbt_swag_t, nthreads);
+ for(i=0; i < nthreads; i++)
+ req_lists[i] = xbt_swag_new(xbt_swag_offset(req, reqtable_hookup));
+
}
void SIMIX_request_destroy(void)
{
- xbt_heap_free(req_todo);
- xbt_os_mutex_destroy(sync_req_positions);
+ int i, nthreads = SIMIX_context_get_nthreads();
+
+ for(i=0; i < nthreads; i++)
+ xbt_swag_free(req_lists[i]);
+
+ xbt_free(req_lists);
+}
+
+xbt_swag_t SIMIX_request_get_reqlist(int thread_pid)
+{
+ return req_lists[thread_pid];
}
/* FIXME: we may want to save the initialization of issuer... */
void SIMIX_request_push()
{
+ xbt_swag_t req_table;
smx_process_t issuer = SIMIX_process_self();
+
if (issuer != simix_global->maestro_process){
issuer->request.issuer = issuer;
+ req_table = SIMIX_request_get_reqlist(SIMIX_context_get_thread_id());
+
+ xbt_swag_insert_at_tail(&issuer->request, req_table);
- if (SIMIX_context_is_parallel())
- xbt_os_mutex_acquire(sync_req_positions);
- xbt_heap_push(req_todo,&issuer->request,issuer->pid);
- DEBUG4("Pushed request %s (%d) of %s; now %d requests waiting",
+ XBT_DEBUG("Pushed request %s (%d) of %s",
SIMIX_request_name(issuer->request.call), issuer->request.call,
- issuer->name,xbt_heap_size(req_todo));
- if (SIMIX_context_is_parallel())
- xbt_os_mutex_release(sync_req_positions);
+ issuer->name);
- DEBUG3("Yield process '%s' on request of type %s (%d)", issuer->name,
+ XBT_DEBUG("Yield process '%s' on request of type %s (%d)", issuer->name,
SIMIX_request_name(issuer->request.call), issuer->request.call);
SIMIX_process_yield();
} else {
smx_req_t SIMIX_request_pop(void)
{
- smx_req_t req = xbt_heap_pop(req_todo);
- if(req)
- DEBUG4("Popped request %s (%d) of %s; now %d requests waiting",
- SIMIX_request_name(req->issuer->request.call),
- req->issuer->request.call,
- req->issuer->name,xbt_heap_size(req_todo));
- return req;
+ int i;
+ smx_req_t req = NULL;
+ int nthreads = SIMIX_context_get_nthreads();
+
+ for(i=0; i < nthreads; i++){
+ if((req = xbt_swag_extract(req_lists[i]))){
+ XBT_DEBUG("Popped request %s (%d) of %s",
+ SIMIX_request_name(req->issuer->request.call),
+ req->issuer->request.call,
+ req->issuer->name);
+ return req;
+ }
+ }
+
+ return NULL;
}
void SIMIX_request_answer(smx_req_t req)
{
if (req->issuer != simix_global->maestro_process){
- DEBUG2("Answer request %s (%d)", SIMIX_request_name(req->call), req->call);
+ XBT_DEBUG("Answer request %s (%d)", SIMIX_request_name(req->call), req->call);
req->issuer->request.call = REQ_NO_REQ;
xbt_dynar_push_as(simix_global->process_to_run, smx_process_t, req->issuer);
}
void SIMIX_request_pre(smx_req_t req, int value)
{
- switch (req->call) {
+ switch (req->call) {
case REQ_COMM_TEST:
SIMIX_pre_comm_test(req);
break;
break;
case REQ_COMM_WAIT:
- SIMIX_pre_comm_wait(req, value);
+ SIMIX_pre_comm_wait(req,
+ req->comm_wait.comm,
+ req->comm_wait.timeout,
+ value);
break;
case REQ_COMM_WAITANY:
SIMIX_pre_comm_waitany(req, value);
break;
+ case REQ_COMM_SEND:
+ {
+ smx_action_t comm = SIMIX_comm_isend(
+ req->issuer,
+ req->comm_send.rdv,
+ req->comm_send.task_size,
+ req->comm_send.rate,
+ req->comm_send.src_buff,
+ req->comm_send.src_buff_size,
+ req->comm_send.match_fun,
+ req->comm_send.data,
+ 0);
+ SIMIX_pre_comm_wait(req, comm, req->comm_send.timeout, 0);
+ break;
+ }
+
case REQ_COMM_ISEND:
req->comm_isend.result = SIMIX_comm_isend(
req->issuer,
SIMIX_request_answer(req);
break;
+ case REQ_COMM_RECV:
+ {
+ smx_action_t comm = SIMIX_comm_irecv(
+ req->issuer,
+ req->comm_recv.rdv,
+ req->comm_recv.dst_buff,
+ req->comm_recv.dst_buff_size,
+ req->comm_recv.match_fun,
+ req->comm_recv.data);
+ SIMIX_pre_comm_wait(req, comm, req->comm_recv.timeout, 0);
+ break;
+ }
+
case REQ_COMM_IRECV:
req->comm_irecv.result = SIMIX_comm_irecv(
req->issuer,
SIMIX_request_answer(req);
break;
- case REQ_COMM_GET_SRC_BUFF:
- req->comm_get_src_buff.result =
- SIMIX_comm_get_src_buff(req->comm_get_src_buff.comm);
- SIMIX_request_answer(req);
- break;
-
- case REQ_COMM_GET_DST_BUFF:
- req->comm_get_dst_buff.result =
- SIMIX_comm_get_dst_buff(req->comm_get_dst_buff.comm);
- SIMIX_request_answer(req);
- break;
-
- case REQ_COMM_GET_SRC_BUFF_SIZE:
- req->comm_get_src_buff_size.result =
- SIMIX_comm_get_src_buff_size(req->comm_get_src_buff_size.comm);
- SIMIX_request_answer(req);
- break;
-
- case REQ_COMM_GET_DST_BUFF_SIZE:
- req->comm_get_dst_buff_size.result =
- SIMIX_comm_get_dst_buff_size(req->comm_get_dst_buff_size.comm);
- SIMIX_request_answer(req);
- break;
-
case REQ_COMM_GET_SRC_PROC:
req->comm_get_src_proc.result =
SIMIX_comm_get_src_proc(req->comm_get_src_proc.comm);
break;
case REQ_PROCESS_KILL:
- SIMIX_process_kill(req->process_kill.process, req->issuer);
+ SIMIX_process_kill(req->process_kill.process);
+ SIMIX_request_answer(req);
+ break;
+
+ case REQ_PROCESS_KILLALL:
+ SIMIX_process_killall(req->issuer);
+ SIMIX_request_answer(req);
+ break;
+
+ case REQ_PROCESS_CLEANUP:
+ SIMIX_process_cleanup(req->process_cleanup.process);
SIMIX_request_answer(req);
break;
case REQ_PROCESS_CHANGE_HOST:
- SIMIX_process_change_host(
+ SIMIX_pre_process_change_host(
req->process_change_host.process,
- req->process_change_host.source,
req->process_change_host.dest);
SIMIX_request_answer(req);
break;
break;
case REQ_NO_REQ:
- THROW2(arg_error,0,"Asked to do the noop syscall on %s@%s",
+ THROWF(arg_error,0,"Asked to do the noop syscall on %s@%s",
SIMIX_process_get_name(req->issuer),
SIMIX_host_get_name(SIMIX_process_get_host(req->issuer))
);