static void smx_ctx_cojava_create_coroutine(smx_ctx_cojava_t context) { JNIEnv *env = get_current_thread_env(); jclass coclass = (*env)->FindClass(env, "java/dyn/Coroutine"); xbt_assert((coclass != NULL), "Can't find coroutine class ! :("); jobject jcoroutine = (*env)->NewObject(env, coclass, coroutine_init, context->jprocess); if (jcoroutine == NULL) { FILE *conf= fopen("/proc/sys/vm/max_map_count","r"); if (conf) { int limit=-1; if(fscanf(conf,"%d",&limit) != 1) xbt_die("Error while creating a new coroutine. Parse error."); fclose(conf); if (limit!=-1 && SIMIX_process_count() > (limit - 100) /2) xbt_die("Error while creating a new coroutine. " "This seem due to the the vm.max_map_count system limit that is only equal to %d while we already have %d coroutines. " "Please check the install documentation to see how to increase this limit", limit, SIMIX_process_count()); if (limit == -1) xbt_die("Error while creating a new coroutine. " "This seems to be a non-linux system, disabling the automatic verification that the system limit on the amount of memory maps is high enough."); xbt_die("Error while creating a new coroutine. "); } } jcoroutine = (*env)->NewGlobalRef(env, jcoroutine); context->jcoroutine = jcoroutine; }
void smpi_process_init(int *argc, char ***argv) { int index=-1; smpi_process_data_t data; smx_process_t proc; if (argc && argv) { proc = SIMIX_process_self(); //FIXME: dirty cleanup method to avoid using msg cleanup functions on these processes when using MSG+SMPI SIMIX_process_set_cleanup_function(proc, MSG_process_cleanup_from_SIMIX); char* instance_id = (*argv)[1]; int rank = xbt_str_parse_int((*argv)[2], "Invalid rank: %s"); index = smpi_process_index_of_smx_process(proc); if(!index_to_process_data){ index_to_process_data=(int*)xbt_malloc(SIMIX_process_count()*sizeof(int)); } if(smpi_privatize_global_variables){ /* Now using segment index of the process */ index = proc->segment_index; /* Done at the process's creation */ SMPI_switch_data_segment(index); } MPI_Comm* temp_comm_world; xbt_bar_t temp_bar; smpi_deployment_register_process(instance_id, rank, index, &temp_comm_world, &temp_bar); data = smpi_process_remote_data(index); data->comm_world = temp_comm_world; if(temp_bar != NULL) data->finalization_barrier = temp_bar; data->index = index; data->instance_id = instance_id; data->replaying = 0; //xbt_free(simcall_process_get_data(proc)); simdata_process_t simdata = static_cast<simdata_process_t>(simcall_process_get_data(proc)); simdata->data = data; if (*argc > 3) { free((*argv)[1]); memmove(&(*argv)[0], &(*argv)[2], sizeof(char *) * (*argc - 2)); (*argv)[(*argc) - 1] = NULL; (*argv)[(*argc) - 2] = NULL; } (*argc)-=2; data->argc = argc; data->argv = argv; // set the process attached to the mailbox simcall_mbox_set_receiver(data->mailbox_small, proc); XBT_DEBUG("<%d> New process in the game: %p", index, proc); } xbt_assert(smpi_process_data(), "smpi_process_data() returned NULL. You probably gave a NULL parameter to MPI_Init. Although it's required by " "MPI-2, this is currently not supported by SMPI."); }
void smpi_global_init(void) { int i; MPI_Group group; char name[MAILBOX_NAME_MAXLEN]; int smpirun=0; if (!MC_is_active()) { global_timer = xbt_os_timer_new(); xbt_os_walltimer_start(global_timer); } if (process_count == 0){ process_count = SIMIX_process_count(); smpirun=1; } smpi_universe_size = process_count; process_data = xbt_new0(smpi_process_data_t, process_count); for (i = 0; i < process_count; i++) { process_data[i] = xbt_new(s_smpi_process_data_t, 1); //process_data[i]->index = i; process_data[i]->argc = NULL; process_data[i]->argv = NULL; process_data[i]->mailbox = simcall_rdv_create(get_mailbox_name(name, i)); process_data[i]->mailbox_small = simcall_rdv_create(get_mailbox_name_small(name, i)); process_data[i]->mailboxes_mutex = xbt_mutex_init(); process_data[i]->timer = xbt_os_timer_new(); if (MC_is_active()) MC_ignore_heap(process_data[i]->timer, xbt_os_timer_size()); process_data[i]->comm_self = MPI_COMM_NULL; process_data[i]->comm_intra = MPI_COMM_NULL; process_data[i]->comm_world = NULL; process_data[i]->state = SMPI_UNINITIALIZED; process_data[i]->sampling = 0; process_data[i]->finalization_barrier = NULL; } //if the process was launched through smpirun script //we generate a global mpi_comm_world //if not, we let MPI_COMM_NULL, and the comm world //will be private to each mpi instance if(smpirun){ group = smpi_group_new(process_count); MPI_COMM_WORLD = smpi_comm_new(group, NULL); MPI_Attr_put(MPI_COMM_WORLD, MPI_UNIVERSE_SIZE, (void *)(MPI_Aint)process_count); xbt_bar_t bar=xbt_barrier_init(process_count); for (i = 0; i < process_count; i++) { smpi_group_set_mapping(group, i, i); process_data[i]->finalization_barrier = bar; } } }
/** * @brief (in kernel mode) unpack the simcall and activate the handler * * This function is generated from src/simix/simcalls.in */ void SIMIX_simcall_handle(smx_simcall_t simcall, int value) { XBT_DEBUG("Handling simcall %p: %s", simcall, SIMIX_simcall_name(simcall->call)); SIMCALL_SET_MC_VALUE(simcall, value); if (simcall->issuer->context->iwannadie && simcall->call != SIMCALL_PROCESS_CLEANUP) return; switch (simcall->call) { case SIMCALL_HOST_GET_BY_NAME: simcall->result.dp = SIMIX_host_get_by_name( simcall->args[0].cc); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_NAME: simcall->result.cc = SIMIX_host_get_name((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_ON: SIMIX_host_on((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_OFF: simcall_HANDLER_host_off(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_PROPERTIES: simcall->result.dp = SIMIX_host_get_properties((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_CORE: simcall->result.i = SIMIX_host_get_core((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_PROCESS_LIST: simcall->result.dp = SIMIX_host_get_process_list((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_SPEED: simcall->result.d = SIMIX_host_get_speed((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_AVAILABLE_SPEED: simcall->result.d = SIMIX_host_get_available_speed((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_STATE: simcall->result.i = SIMIX_host_get_state((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_CURRENT_POWER_PEAK: simcall->result.d = SIMIX_host_get_current_power_peak((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_POWER_PEAK_AT: simcall->result.d = SIMIX_host_get_power_peak_at((smx_host_t) simcall->args[0].dp, simcall->args[1].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_NB_PSTATES: simcall->result.i = SIMIX_host_get_nb_pstates((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_SET_POWER_PEAK_AT: SIMIX_host_set_power_peak_at((smx_host_t) simcall->args[0].dp, simcall->args[1].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_CONSUMED_ENERGY: simcall->result.d = SIMIX_host_get_consumed_energy((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTE: simcall->result.dp = SIMIX_host_execute( simcall->args[0].cc,(smx_host_t) simcall->args[1].dp, simcall->args[2].d, simcall->args[3].d, simcall->args[4].d, simcall->args[5].ul); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_PARALLEL_EXECUTE: simcall->result.dp = SIMIX_host_parallel_execute( simcall->args[0].cc, simcall->args[1].i,(smx_host_t*) simcall->args[2].dp,(double*) simcall->args[3].dp,(double*) simcall->args[4].dp, simcall->args[5].d, simcall->args[6].d); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_DESTROY: SIMIX_host_execution_destroy((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_CANCEL: SIMIX_host_execution_cancel((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_GET_REMAINS: simcall->result.d = SIMIX_host_execution_get_remains((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_GET_STATE: simcall->result.i = SIMIX_host_execution_get_state((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_SET_PRIORITY: SIMIX_host_execution_set_priority((smx_synchro_t) simcall->args[0].dp, simcall->args[1].d); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_SET_BOUND: SIMIX_host_execution_set_bound((smx_synchro_t) simcall->args[0].dp, simcall->args[1].d); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_SET_AFFINITY: SIMIX_host_execution_set_affinity((smx_synchro_t) simcall->args[0].dp,(smx_host_t) simcall->args[1].dp, simcall->args[2].ul); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_EXECUTION_WAIT: simcall_HANDLER_host_execution_wait(simcall , (smx_synchro_t) simcall->args[0].dp); break; case SIMCALL_HOST_GET_MOUNTED_STORAGE_LIST: simcall->result.dp = SIMIX_host_get_mounted_storage_list((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_ATTACHED_STORAGE_LIST: simcall->result.dp = SIMIX_host_get_attached_storage_list((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_GET_PARAMS: SIMIX_host_get_params((smx_host_t) simcall->args[0].dp,(ws_params_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_HOST_SET_PARAMS: SIMIX_host_set_params((smx_host_t) simcall->args[0].dp,(ws_params_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_CREATE: simcall->result.dp = SIMIX_vm_create( simcall->args[0].cc,(smx_host_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_START: SIMIX_vm_start((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_GET_STATE: simcall->result.i = SIMIX_vm_get_state((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_MIGRATE: SIMIX_vm_migrate((smx_host_t) simcall->args[0].dp,(smx_host_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_GET_PM: simcall->result.dp = SIMIX_vm_get_pm((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_SET_BOUND: SIMIX_vm_set_bound((smx_host_t) simcall->args[0].dp, simcall->args[1].d); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_SET_AFFINITY: SIMIX_vm_set_affinity((smx_host_t) simcall->args[0].dp,(smx_host_t) simcall->args[1].dp, simcall->args[2].ul); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_DESTROY: SIMIX_vm_destroy((smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_SUSPEND: simcall_HANDLER_vm_suspend(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_RESUME: simcall_HANDLER_vm_resume(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_SHUTDOWN: simcall_HANDLER_vm_shutdown(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_SAVE: simcall_HANDLER_vm_save(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_VM_RESTORE: simcall_HANDLER_vm_restore(simcall , (smx_host_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_CREATE: simcall_HANDLER_process_create(simcall , (smx_process_t*) simcall->args[0].dp, simcall->args[1].cc, (xbt_main_func_t) simcall->args[2].fp, simcall->args[3].dp, simcall->args[4].cc, simcall->args[5].d, simcall->args[6].i, (char**) simcall->args[7].dp, (xbt_dict_t) simcall->args[8].dp, simcall->args[9].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_KILL: simcall_HANDLER_process_kill(simcall , (smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_KILLALL: simcall_HANDLER_process_killall(simcall , simcall->args[0].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_CLEANUP: SIMIX_process_cleanup((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_CHANGE_HOST: simcall_HANDLER_process_change_host(simcall , (smx_process_t) simcall->args[0].dp, (smx_host_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_SUSPEND: simcall_HANDLER_process_suspend(simcall , (smx_process_t) simcall->args[0].dp); break; case SIMCALL_PROCESS_RESUME: simcall_HANDLER_process_resume(simcall , (smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_COUNT: simcall->result.i = SIMIX_process_count(); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_PID: simcall->result.i = SIMIX_process_get_PID((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_PPID: simcall->result.i = SIMIX_process_get_PPID((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_DATA: simcall->result.dp = SIMIX_process_get_data((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_SET_DATA: SIMIX_process_set_data((smx_process_t) simcall->args[0].dp, simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_HOST: simcall->result.dp = SIMIX_process_get_host((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_NAME: simcall->result.cc = SIMIX_process_get_name((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_IS_SUSPENDED: simcall->result.i = SIMIX_process_is_suspended((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_GET_PROPERTIES: simcall->result.dp = SIMIX_process_get_properties((smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_JOIN: simcall_HANDLER_process_join(simcall , (smx_process_t) simcall->args[0].dp, simcall->args[1].d); break; case SIMCALL_PROCESS_SLEEP: simcall_HANDLER_process_sleep(simcall , simcall->args[0].d); break; case SIMCALL_PROCESS_ON_EXIT: SIMIX_process_on_exit((smx_process_t) simcall->args[0].dp,(int_f_pvoid_pvoid_t) simcall->args[1].fp, simcall->args[2].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_AUTO_RESTART_SET: SIMIX_process_auto_restart_set((smx_process_t) simcall->args[0].dp, simcall->args[1].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_PROCESS_RESTART: simcall->result.dp = simcall_HANDLER_process_restart(simcall , (smx_process_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_CREATE: simcall->result.dp = SIMIX_rdv_create( simcall->args[0].cc); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_DESTROY: SIMIX_rdv_destroy((smx_rdv_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_COMM_COUNT_BY_HOST: simcall->result.ui = SIMIX_rdv_comm_count_by_host((smx_rdv_t) simcall->args[0].dp,(smx_host_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_GET_HEAD: simcall->result.dp = SIMIX_rdv_get_head((smx_rdv_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_SET_RECEIVER: SIMIX_rdv_set_receiver((smx_rdv_t) simcall->args[0].dp,(smx_process_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_RDV_GET_RECEIVER: simcall->result.dp = SIMIX_rdv_get_receiver((smx_rdv_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_IPROBE: simcall->result.dp = simcall_HANDLER_comm_iprobe(simcall , (smx_rdv_t) simcall->args[0].dp, simcall->args[1].i, simcall->args[2].i, simcall->args[3].i, (simix_match_func_t) simcall->args[4].fp, simcall->args[5].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_SEND: simcall_HANDLER_comm_send(simcall , (smx_process_t) simcall->args[0].dp, (smx_rdv_t) simcall->args[1].dp, simcall->args[2].d, simcall->args[3].d, simcall->args[4].dp, simcall->args[5].sz, (simix_match_func_t) simcall->args[6].fp, (simix_copy_data_func_t) simcall->args[7].fp, simcall->args[8].dp, simcall->args[9].d); break; case SIMCALL_COMM_ISEND: simcall->result.dp = simcall_HANDLER_comm_isend(simcall , (smx_process_t) simcall->args[0].dp, (smx_rdv_t) simcall->args[1].dp, simcall->args[2].d, simcall->args[3].d, simcall->args[4].dp, simcall->args[5].sz, (simix_match_func_t) simcall->args[6].fp, (simix_clean_func_t) simcall->args[7].fp, (simix_copy_data_func_t) simcall->args[8].fp, simcall->args[9].dp, simcall->args[10].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_RECV: simcall_HANDLER_comm_recv(simcall , (smx_rdv_t) simcall->args[0].dp, simcall->args[1].dp, (size_t*) simcall->args[2].dp, (simix_match_func_t) simcall->args[3].fp, (simix_copy_data_func_t) simcall->args[4].fp, simcall->args[5].dp, simcall->args[6].d, simcall->args[7].d); break; case SIMCALL_COMM_IRECV: simcall->result.dp = simcall_HANDLER_comm_irecv(simcall , (smx_rdv_t) simcall->args[0].dp, simcall->args[1].dp, (size_t*) simcall->args[2].dp, (simix_match_func_t) simcall->args[3].fp, (simix_copy_data_func_t) simcall->args[4].fp, simcall->args[5].dp, simcall->args[6].d); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_CANCEL: SIMIX_comm_cancel((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_WAITANY: simcall_HANDLER_comm_waitany(simcall , (xbt_dynar_t) simcall->args[0].dp); break; case SIMCALL_COMM_WAIT: simcall_HANDLER_comm_wait(simcall , (smx_synchro_t) simcall->args[0].dp, simcall->args[1].d); break; case SIMCALL_COMM_TEST: simcall_HANDLER_comm_test(simcall , (smx_synchro_t) simcall->args[0].dp); break; case SIMCALL_COMM_TESTANY: simcall_HANDLER_comm_testany(simcall , (xbt_dynar_t) simcall->args[0].dp); break; case SIMCALL_COMM_GET_REMAINS: simcall->result.d = SIMIX_comm_get_remains((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_GET_STATE: simcall->result.i = SIMIX_comm_get_state((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_GET_SRC_DATA: simcall->result.dp = SIMIX_comm_get_src_data((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_GET_DST_DATA: simcall->result.dp = SIMIX_comm_get_dst_data((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_GET_SRC_PROC: simcall->result.dp = SIMIX_comm_get_src_proc((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COMM_GET_DST_PROC: simcall->result.dp = SIMIX_comm_get_dst_proc((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_MUTEX_INIT: simcall->result.dp = simcall_HANDLER_mutex_init(simcall ); SIMIX_simcall_answer(simcall); break; case SIMCALL_MUTEX_DESTROY: SIMIX_mutex_destroy((smx_mutex_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_MUTEX_LOCK: simcall_HANDLER_mutex_lock(simcall , (smx_mutex_t) simcall->args[0].dp); break; case SIMCALL_MUTEX_TRYLOCK: simcall->result.i = simcall_HANDLER_mutex_trylock(simcall , (smx_mutex_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_MUTEX_UNLOCK: simcall_HANDLER_mutex_unlock(simcall , (smx_mutex_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COND_INIT: simcall->result.dp = SIMIX_cond_init(); SIMIX_simcall_answer(simcall); break; case SIMCALL_COND_DESTROY: SIMIX_cond_destroy((smx_cond_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COND_SIGNAL: SIMIX_cond_signal((smx_cond_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_COND_WAIT: simcall_HANDLER_cond_wait(simcall , (smx_cond_t) simcall->args[0].dp, (smx_mutex_t) simcall->args[1].dp); break; case SIMCALL_COND_WAIT_TIMEOUT: simcall_HANDLER_cond_wait_timeout(simcall , (smx_cond_t) simcall->args[0].dp, (smx_mutex_t) simcall->args[1].dp, simcall->args[2].d); break; case SIMCALL_COND_BROADCAST: SIMIX_cond_broadcast((smx_cond_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_SEM_INIT: simcall->result.dp = SIMIX_sem_init( simcall->args[0].ui); SIMIX_simcall_answer(simcall); break; case SIMCALL_SEM_DESTROY: SIMIX_sem_destroy((smx_sem_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_SEM_RELEASE: simcall_HANDLER_sem_release(simcall , (smx_sem_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_SEM_WOULD_BLOCK: simcall->result.i = simcall_HANDLER_sem_would_block(simcall , (smx_sem_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_SEM_ACQUIRE: simcall_HANDLER_sem_acquire(simcall , (smx_sem_t) simcall->args[0].dp); break; case SIMCALL_SEM_ACQUIRE_TIMEOUT: simcall_HANDLER_sem_acquire_timeout(simcall , (smx_sem_t) simcall->args[0].dp, simcall->args[1].d); break; case SIMCALL_SEM_GET_CAPACITY: simcall->result.i = simcall_HANDLER_sem_get_capacity(simcall , (smx_sem_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_READ: simcall_HANDLER_file_read(simcall , (smx_file_t) simcall->args[0].dp, simcall->args[1].sgsz, (smx_host_t) simcall->args[2].dp); break; case SIMCALL_FILE_WRITE: simcall_HANDLER_file_write(simcall , (smx_file_t) simcall->args[0].dp, simcall->args[1].sgsz, (smx_host_t) simcall->args[2].dp); break; case SIMCALL_FILE_OPEN: simcall_HANDLER_file_open(simcall , simcall->args[0].cc, (smx_host_t) simcall->args[1].dp); break; case SIMCALL_FILE_CLOSE: simcall_HANDLER_file_close(simcall , (smx_file_t) simcall->args[0].dp, (smx_host_t) simcall->args[1].dp); break; case SIMCALL_FILE_UNLINK: simcall->result.i = SIMIX_file_unlink((smx_file_t) simcall->args[0].dp,(smx_host_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_GET_SIZE: simcall->result.sgsz = simcall_HANDLER_file_get_size(simcall , (smx_file_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_TELL: simcall->result.sgsz = simcall_HANDLER_file_tell(simcall , (smx_file_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_SEEK: simcall->result.i = simcall_HANDLER_file_seek(simcall , (smx_file_t) simcall->args[0].dp, simcall->args[1].sgoff, simcall->args[2].i); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_GET_INFO: simcall->result.dp = simcall_HANDLER_file_get_info(simcall , (smx_file_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_FILE_MOVE: simcall->result.i = simcall_HANDLER_file_move(simcall , (smx_file_t) simcall->args[0].dp, simcall->args[1].cc); SIMIX_simcall_answer(simcall); break; case SIMCALL_STORAGE_GET_FREE_SIZE: simcall->result.sgsz = simcall_HANDLER_storage_get_free_size(simcall , (smx_storage_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_STORAGE_GET_USED_SIZE: simcall->result.sgsz = simcall_HANDLER_storage_get_used_size(simcall , (smx_storage_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_STORAGE_GET_PROPERTIES: simcall->result.dp = SIMIX_storage_get_properties((smx_storage_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_STORAGE_GET_CONTENT: simcall->result.dp = SIMIX_storage_get_content((smx_storage_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_ASR_GET_PROPERTIES: simcall->result.dp = simcall_HANDLER_asr_get_properties(simcall , simcall->args[0].cc); SIMIX_simcall_answer(simcall); break; #ifdef HAVE_LATENCY_BOUND_TRACKING case SIMCALL_COMM_IS_LATENCY_BOUNDED: simcall->result.i = SIMIX_comm_is_latency_bounded((smx_synchro_t) simcall->args[0].dp); SIMIX_simcall_answer(simcall); break; #endif #ifdef HAVE_TRACING case SIMCALL_SET_CATEGORY: SIMIX_set_category((smx_synchro_t) simcall->args[0].dp, simcall->args[1].cc); SIMIX_simcall_answer(simcall); break; #endif #ifdef HAVE_MC case SIMCALL_MC_SNAPSHOT: simcall->result.dp = simcall_HANDLER_mc_snapshot(simcall ); SIMIX_simcall_answer(simcall); break; case SIMCALL_MC_COMPARE_SNAPSHOTS: simcall->result.i = simcall_HANDLER_mc_compare_snapshots(simcall , (mc_snapshot_t) simcall->args[0].dp, (mc_snapshot_t) simcall->args[1].dp); SIMIX_simcall_answer(simcall); break; case SIMCALL_MC_RANDOM: simcall->result.i = simcall_HANDLER_mc_random(simcall , simcall->args[0].i, simcall->args[1].i); SIMIX_simcall_answer(simcall); break; #endif case NUM_SIMCALLS: break; case SIMCALL_NONE: THROWF(arg_error,0,"Asked to do the noop syscall on %s@%s", SIMIX_process_get_name(simcall->issuer), SIMIX_host_get_name(SIMIX_process_get_host(simcall->issuer)) ); break; } }
/** @brief Return the current number MSG processes. */ int MSG_process_get_number() { return SIMIX_process_count(); }
void SIMIX_request_pre(smx_req_t req, int value) { switch (req->call) { case REQ_COMM_TEST: SIMIX_pre_comm_test(req); break; case REQ_COMM_TESTANY: SIMIX_pre_comm_testany(req, value); break; case REQ_COMM_WAIT: 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, req->comm_isend.rdv, req->comm_isend.task_size, req->comm_isend.rate, req->comm_isend.src_buff, req->comm_isend.src_buff_size, req->comm_isend.match_fun, req->comm_isend.data, req->comm_isend.detached); 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, req->comm_irecv.rdv, req->comm_irecv.dst_buff, req->comm_irecv.dst_buff_size, req->comm_irecv.match_fun, req->comm_irecv.data); SIMIX_request_answer(req); break; case REQ_COMM_DESTROY: SIMIX_comm_destroy(req->comm_destroy.comm); SIMIX_request_answer(req); break; case REQ_COMM_CANCEL: SIMIX_comm_cancel(req->comm_cancel.comm); SIMIX_request_answer(req); break; case REQ_COMM_GET_REMAINS: req->comm_get_remains.result = SIMIX_comm_get_remains(req->comm_get_remains.comm); SIMIX_request_answer(req); break; case REQ_COMM_GET_STATE: req->comm_get_state.result = SIMIX_comm_get_state(req->comm_get_state.comm); SIMIX_request_answer(req); break; case REQ_COMM_GET_SRC_DATA: req->comm_get_src_data.result = SIMIX_comm_get_src_data(req->comm_get_src_data.comm); SIMIX_request_answer(req); break; case REQ_COMM_GET_DST_DATA: req->comm_get_dst_data.result = SIMIX_comm_get_dst_data(req->comm_get_dst_data.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); SIMIX_request_answer(req); break; case REQ_COMM_GET_DST_PROC: req->comm_get_dst_proc.result = SIMIX_comm_get_dst_proc(req->comm_get_dst_proc.comm); SIMIX_request_answer(req); break; #ifdef HAVE_LATENCY_BOUND_TRACKING case REQ_COMM_IS_LATENCY_BOUNDED: req->comm_is_latency_bounded.result = SIMIX_comm_is_latency_bounded(req->comm_is_latency_bounded.comm); SIMIX_request_answer(req); break; #endif case REQ_RDV_CREATE: req->rdv_create.result = SIMIX_rdv_create(req->rdv_create.name); SIMIX_request_answer(req); break; case REQ_RDV_DESTROY: SIMIX_rdv_destroy(req->rdv_destroy.rdv); SIMIX_request_answer(req); break; case REQ_RDV_GEY_BY_NAME: req->rdv_get_by_name.result = SIMIX_rdv_get_by_name(req->rdv_get_by_name.name); SIMIX_request_answer(req); break; case REQ_RDV_COMM_COUNT_BY_HOST: req->rdv_comm_count_by_host.result = SIMIX_rdv_comm_count_by_host( req->rdv_comm_count_by_host.rdv, req->rdv_comm_count_by_host.host); SIMIX_request_answer(req); break; case REQ_RDV_GET_HEAD: req->rdv_get_head.result = SIMIX_rdv_get_head(req->rdv_get_head.rdv); SIMIX_request_answer(req); break; case REQ_HOST_GET_BY_NAME: req->host_get_by_name.result = SIMIX_host_get_by_name(req->host_get_by_name.name); SIMIX_request_answer(req); break; case REQ_HOST_GET_NAME: req->host_get_name.result = SIMIX_host_get_name(req->host_get_name.host); SIMIX_request_answer(req); break; case REQ_HOST_GET_PROPERTIES: req->host_get_properties.result = SIMIX_host_get_properties(req->host_get_properties.host); SIMIX_request_answer(req); break; case REQ_HOST_GET_SPEED: req->host_get_speed.result = SIMIX_host_get_speed(req->host_get_speed.host); SIMIX_request_answer(req); break; case REQ_HOST_GET_AVAILABLE_SPEED: req->host_get_available_speed.result = SIMIX_host_get_available_speed(req->host_get_available_speed.host); SIMIX_request_answer(req); break; case REQ_HOST_GET_STATE: req->host_get_state.result = SIMIX_host_get_state(req->host_get_state.host); SIMIX_request_answer(req); break; case REQ_HOST_GET_DATA: req->host_get_data.result = SIMIX_host_get_data(req->host_get_data.host); SIMIX_request_answer(req); break; case REQ_HOST_SET_DATA: SIMIX_host_set_data(req->host_set_data.host, req->host_set_data.data); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTE: req->host_execute.result = SIMIX_host_execute( req->host_execute.name, req->host_execute.host, req->host_execute.computation_amount, req->host_execute.priority); SIMIX_request_answer(req); break; case REQ_HOST_PARALLEL_EXECUTE: req->host_parallel_execute.result = SIMIX_host_parallel_execute( req->host_parallel_execute.name, req->host_parallel_execute.host_nb, req->host_parallel_execute.host_list, req->host_parallel_execute.computation_amount, req->host_parallel_execute.communication_amount, req->host_parallel_execute.amount, req->host_parallel_execute.rate); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_DESTROY: SIMIX_host_execution_destroy(req->host_execution_destroy.execution); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_CANCEL: SIMIX_host_execution_cancel(req->host_execution_cancel.execution); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_GET_REMAINS: req->host_execution_get_remains.result = SIMIX_host_execution_get_remains(req->host_execution_get_remains.execution); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_GET_STATE: req->host_execution_get_state.result = SIMIX_host_execution_get_state(req->host_execution_get_state.execution); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_SET_PRIORITY: SIMIX_host_execution_set_priority( req->host_execution_set_priority.execution, req->host_execution_set_priority.priority); SIMIX_request_answer(req); break; case REQ_HOST_EXECUTION_WAIT: SIMIX_pre_host_execution_wait(req); break; case REQ_PROCESS_CREATE: SIMIX_process_create( req->process_create.process, req->process_create.name, req->process_create.code, req->process_create.data, req->process_create.hostname, req->process_create.argc, req->process_create.argv, req->process_create.properties); SIMIX_request_answer(req); break; case REQ_PROCESS_KILL: 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( req->process_change_host.process, req->process_change_host.source, req->process_change_host.dest); SIMIX_request_answer(req); break; case REQ_PROCESS_SUSPEND: SIMIX_pre_process_suspend(req); break; case REQ_PROCESS_RESUME: SIMIX_process_resume(req->process_resume.process, req->issuer); SIMIX_request_answer(req); break; case REQ_PROCESS_COUNT: req->process_count.result = SIMIX_process_count(); SIMIX_request_answer(req); break; case REQ_PROCESS_GET_DATA: req->process_get_data.result = SIMIX_process_get_data(req->process_get_data.process); SIMIX_request_answer(req); break; case REQ_PROCESS_SET_DATA: SIMIX_process_set_data( req->process_set_data.process, req->process_set_data.data); SIMIX_request_answer(req); break; case REQ_PROCESS_GET_HOST: req->process_get_host.result = SIMIX_process_get_host(req->process_get_host.process); SIMIX_request_answer(req); break; case REQ_PROCESS_GET_NAME: req->process_get_name.result = SIMIX_process_get_name(req->process_get_name.process); SIMIX_request_answer(req); break; case REQ_PROCESS_IS_SUSPENDED: req->process_is_suspended.result = SIMIX_process_is_suspended(req->process_is_suspended.process); SIMIX_request_answer(req); break; case REQ_PROCESS_GET_PROPERTIES: req->process_get_properties.result = SIMIX_process_get_properties(req->process_get_properties.process); SIMIX_request_answer(req); break; case REQ_PROCESS_SLEEP: SIMIX_pre_process_sleep(req); break; #ifdef HAVE_TRACING case REQ_SET_CATEGORY: SIMIX_set_category( req->set_category.action, req->set_category.category); SIMIX_request_answer(req); break; #endif case REQ_MUTEX_INIT: req->mutex_init.result = SIMIX_mutex_init(); SIMIX_request_answer(req); break; case REQ_MUTEX_DESTROY: SIMIX_mutex_destroy(req->mutex_destroy.mutex); SIMIX_request_answer(req); break; case REQ_MUTEX_LOCK: SIMIX_pre_mutex_lock(req); break; case REQ_MUTEX_TRYLOCK: req->mutex_trylock.result = SIMIX_mutex_trylock(req->mutex_trylock.mutex, req->issuer); SIMIX_request_answer(req); break; case REQ_MUTEX_UNLOCK: SIMIX_mutex_unlock(req->mutex_unlock.mutex, req->issuer); SIMIX_request_answer(req); break; case REQ_COND_INIT: req->cond_init.result = SIMIX_cond_init(); SIMIX_request_answer(req); break; case REQ_COND_DESTROY: SIMIX_cond_destroy(req->cond_destroy.cond); SIMIX_request_answer(req); break; case REQ_COND_SIGNAL: SIMIX_cond_signal(req->cond_signal.cond); SIMIX_request_answer(req); break; case REQ_COND_WAIT: SIMIX_pre_cond_wait(req); break; case REQ_COND_WAIT_TIMEOUT: SIMIX_pre_cond_wait_timeout(req); break; case REQ_COND_BROADCAST: SIMIX_cond_broadcast(req->cond_broadcast.cond); SIMIX_request_answer(req); break; case REQ_SEM_INIT: req->sem_init.result = SIMIX_sem_init(req->sem_init.capacity); SIMIX_request_answer(req); break; case REQ_SEM_DESTROY: SIMIX_sem_destroy(req->sem_destroy.sem); SIMIX_request_answer(req); break; case REQ_SEM_RELEASE: SIMIX_sem_release(req->sem_release.sem); SIMIX_request_answer(req); break; case REQ_SEM_WOULD_BLOCK: req->sem_would_block.result = SIMIX_sem_would_block(req->sem_would_block.sem); SIMIX_request_answer(req); break; case REQ_SEM_ACQUIRE: SIMIX_pre_sem_acquire(req); break; case REQ_SEM_ACQUIRE_TIMEOUT: SIMIX_pre_sem_acquire_timeout(req); break; case REQ_SEM_GET_CAPACITY: req->sem_get_capacity.result = SIMIX_sem_get_capacity(req->sem_get_capacity.sem); SIMIX_request_answer(req); break; case REQ_NO_REQ: 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)) ); break; } }