X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/110275bdfe31a33027e51860ed41f199da963cef..9696c1a327d9f7439c42d72097c9eec20afb3c4a:/src/msg/global.c diff --git a/src/msg/global.c b/src/msg/global.c index fee4cb9039..19b502f5d0 100644 --- a/src/msg/global.c +++ b/src/msg/global.c @@ -30,6 +30,7 @@ void MSG_global_init(void) msg_global = xbt_new0(s_MSG_Global_t,1); surf_init(&argc, argv); /* Initialize some common structures */ + xbt_context_init(); msg_global->host = xbt_fifo_new(); msg_global->process_to_run = xbt_fifo_new(); msg_global->process_list = xbt_fifo_new(); @@ -120,88 +121,58 @@ MSG_error_t MSG_main(void) fflush(stderr); surf_solve(); /* Takes traces into account. Returns 0.0 */ - while (xbt_fifo_size(msg_global->process_list)) { +/* xbt_fifo_size(msg_global->process_to_run) */ + while (1) { + xbt_context_empty_trash(); while ((process = xbt_fifo_pop(msg_global->process_to_run))) { +/* fprintf(stderr,"-> %s (%d)\n",process->name, process->simdata->PID); */ msg_global->current_process = process; - xbt_context_yield(process->simdata->context); + xbt_context_schedule(process->simdata->context); msg_global->current_process = NULL; } Before = MSG_getClock(); elapsed_time = surf_solve(); Now = MSG_getClock(); - if (elapsed_time==0.0) - break; - -/* /\* Handle Failures *\/ */ -/* { */ -/* xbt_fifo_t failedHostList = MSG_buildFailedHostList(Before,Now); */ -/* m_host_t host = NULL; */ -/* TBX_HashTable_Bucket_t b; */ -/* TBX_HashTable_t failedProcessList = TBX_HashTable_newList(); */ - -/* while((host=xbt_fifo_pop(failedHostList))) { */ -/* simdata_host_t h_simdata= host->simdata; */ -/* TBX_HashTable_t process_list= h_simdata->process; */ - -/* h_simdata->state = HOST_DOWN; */ - -/* for (b=TBX_HashTable_getFirstBucket(process_list);b; */ -/* b=TBX_HashTable_getNextBucket(process_list,b)) { */ -/* m_process_t p = b->content; */ -/* simdata_process_t p_simdata = p->simdata; */ - -/* if(!TBX_HashTable_isInList(failedProcessList,p,TBX_basicHash)) */ -/* TBX_HashTable_insert(failedProcessList,p,TBX_basicHash); */ - -/* fprintf(stderr,"MSG: %s(%d) on %s(%d): Has died while ", */ -/* p->name,p_simdata->PID, */ -/* p_simdata->host->name,h_simdata->PID); */ -/* for (i=0; imax_channel; i++) { */ -/* if (h_simdata->sleeping[i] == p_simdata->context) { */ -/* fprintf(stderr,"listening on channel %d.\n",i); */ -/* break; */ -/* } */ -/* } */ -/* if (i==msg_global->max_channel) { */ -/* if(p_simdata->waiting_task) { */ -/* fprintf(stderr,"waiting for %s to finish.\n",p_simdata->waiting_task->name); */ -/* MarkAsFailed(p_simdata->waiting_task,failedProcessList); */ -/* } else { /\* Must be trying to put a task somewhere *\/ */ -/* if(p_simdata->put_host) { */ -/* fprintf(stderr,"trying to send a task on Host %s, channel %d.\n", */ -/* p_simdata->put_host->name, p_simdata->put_channel); */ -/* } else { */ -/* fprintf(stderr,"... WTF! UNKNOWN STATUS. Please report this bug.\n"); */ -/* } */ -/* } */ -/* } */ -/* } */ -/* } */ -/* xbt_fifo_freeFIFO(failedHostList); */ -/* for (b=TBX_HashTable_getFirstBucket(failedProcessList);b; */ -/* b=TBX_HashTable_getNextBucket(failedProcessList,b)) { */ -/* m_process_t p = b->content; */ -/* xbt_fifo_insert(msg_global->process_to_run, p); /\* Brutal... *\/ */ -/* } */ -/* TBX_HashTable_freeList(failedProcessList,NULL); */ +/* fprintf(stderr, "====== %Lg =====\n",Now); */ +/* if (elapsed_time==0.0) { */ +/* fprintf(stderr, "No change in time\n"); */ /* } */ - + if (elapsed_time<0.0) { + break; + } { surf_action_t action = NULL; surf_resource_t resource = NULL; + m_task_t task = NULL; xbt_dynar_foreach(resource_list, i, resource) { while ((action = xbt_swag_extract(resource->common_public->states. failed_action_set))) { -/* xbt_fifo_insert(msg_global->process_to_run, process); */ + task = action->data; + if(task) { + int _cursor; +/* fprintf(stderr,"** %s **\n",task->name); */ + xbt_dynar_foreach(task->simdata->sleeping,_cursor,process) { + xbt_fifo_unshift(msg_global->process_to_run, process); + } + process=NULL; + } } while ((action = xbt_swag_extract(resource->common_public->states. done_action_set))) { -/* xbt_fifo_insert(msg_global->process_to_run, process); */ + task = action->data; + if(task) { + int _cursor; +/* fprintf(stderr,"** %s **\n",task->name); */ + xbt_dynar_foreach(task->simdata->sleeping,_cursor,process) { + xbt_fifo_unshift(msg_global->process_to_run, process); + } + process=NULL; + } } } } @@ -216,7 +187,7 @@ MSG_error_t MSG_main(void) fprintf(stderr,"MSG: %d processes are still running, waiting for something.\n", nbprocess); /* List the process and their state */ - fprintf(stderr,"MSG: () on (): .\n"); + fprintf(stderr,"MSG: () on : .\n"); while ((process=xbt_fifo_pop(msg_global->process_list))) { simdata_process_t p_simdata = (simdata_process_t) process->simdata; simdata_host_t h_simdata=(simdata_host_t)p_simdata->host->simdata; @@ -231,16 +202,22 @@ MSG_error_t MSG_main(void) } } if (i==msg_global->max_channel) { - if(p_simdata->waiting_task) - fprintf(stderr,"Waiting for %s to finish.\n",p_simdata->waiting_task->name); + if(p_simdata->waiting_task) { + if(p_simdata->waiting_task->simdata->compute) + fprintf(stderr,"Waiting for %s to finish.\n",p_simdata->waiting_task->name); + else if (p_simdata->waiting_task->simdata->comm) + fprintf(stderr,"Waiting for %s to be finished transfered.\n", + p_simdata->waiting_task->name); + else + fprintf(stderr,"UNKNOWN STATUS. Please report this bug.\n"); + } else { /* Must be trying to put a task somewhere */ - CRITICAL0("Well! I don't know. I have to fix this part of the code. ;)"); -/* if(p_simdata->put_host) { */ -/* fprintf(stderr,"Trying to send a task on Host %s, channel %d.\n", */ -/* p_simdata->put_host->name, p_simdata->put_channel); */ -/* } else { */ -/* fprintf(stderr,"UNKNOWN STATUS. Please report this bug.\n"); */ -/* } */ + if(p_simdata->put_host) { + fprintf(stderr,"Trying to send a task on Host %s, channel %d.\n", + p_simdata->put_host->name, p_simdata->put_channel); + } else { + fprintf(stderr,"UNKNOWN STATUS. Please report this bug.\n"); + } } } } @@ -299,6 +276,8 @@ MSG_error_t MSG_clean(void) xbt_fifo_item_t i = NULL; m_host_t h = NULL; + xbt_context_exit(); + xbt_fifo_foreach(msg_global->host,i,h,m_host_t) { __MSG_host_destroy(h); }