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;
-
-void SIMIX_request_init(void)
-{
- req_todo = xbt_heap_new(5,NULL);
- sync_req_positions = xbt_os_mutex_init();
-}
-
-void SIMIX_request_destroy(void)
-{
- xbt_heap_free(req_todo);
- xbt_os_mutex_destroy(sync_req_positions);
-}
-
/* FIXME: we may want to save the initialization of issuer... */
-XBT_INLINE smx_req_t SIMIX_req_mine() {
+XBT_INLINE smx_req_t SIMIX_req_mine()
+{
smx_process_t issuer = SIMIX_process_self();
return &issuer->request;
}
void SIMIX_request_push()
{
smx_process_t issuer = SIMIX_process_self();
+
if (issuer != simix_global->maestro_process){
issuer->request.issuer = issuer;
-
- 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",
- 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);
-
- 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;
-}
-
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) issued by %s (%p)", SIMIX_request_name(req->call), req->call,
+ req->issuer->name, req->issuer);
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))
);