--- rpl/src/rpl.c	2013/03/21 11:30:31	1.136
+++ rpl/src/rpl.c	2013/05/23 12:45:08	1.144
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
+  RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3404,6 +3404,7 @@ rplinit(int argc, char *argv[], char *en
 
 			(*s_etat_processus).liste_mutexes = NULL;
 			(*s_etat_processus).sections_critiques = 0;
+			(*s_etat_processus).initialisation_scheduler = d_faux;
 
 			(*s_etat_processus).test_instruction = 'N';
 			(*s_etat_processus).nombre_arguments = 0;
@@ -4483,7 +4484,7 @@ rplinit(int argc, char *argv[], char *en
 					{
 						(*s_etat_processus).erreur_systeme = d_es;
 						encart(s_etat_processus,
-								(unsigned long) (5 * 1000000));
+								(integer8) (5 * 1000000));
 
 						if ((*s_etat_processus).erreur_systeme != d_es)
 						{
@@ -4905,6 +4906,8 @@ rplinit(int argc, char *argv[], char *en
 							return(EXIT_FAILURE);
 						}
 
+						empilement_pile_systeme(s_etat_processus);
+
 						if (evaluation(s_etat_processus, s_objet, 'E')
 								== d_erreur)
 						{
@@ -5139,15 +5142,95 @@ rplinit(int argc, char *argv[], char *en
 
 								if (erreur == d_absence_erreur)
 								{
-									if (((*s_etat_processus).var_volatile_alarme
-											== 0) && ((*s_etat_processus)
+									if (((*s_etat_processus)
 											.arret_depuis_abort == 0) &&
 											((*s_etat_processus).at_exit
 											!= NULL))
 									{
+										// Permet de traiter ATEXIT
+										// même après réception d'un SIGINT.
+										(*s_etat_processus)
+												.var_volatile_alarme = 0;
+										(*s_etat_processus)
+												.var_volatile_requete_arret = 0;
+
+										if ((*s_etat_processus).profilage ==
+												d_vrai)
+										{
+											profilage(s_etat_processus,
+													"ATEXIT");
+										}
+
 										erreur = evaluation(s_etat_processus,
 												(*s_etat_processus).at_exit,
 												'E');
+
+										if ((*s_etat_processus).profilage ==
+												d_vrai)
+										{
+											profilage(s_etat_processus, NULL);
+										}
+
+										if (((*s_etat_processus)
+												.erreur_execution != d_ex) ||
+												((*s_etat_processus).exception
+												!= d_ep) || ((*s_etat_processus)
+												.erreur_systeme != d_es))
+										{
+											printf("%s [%d]\n", message =
+													messages(s_etat_processus),
+													(int) getpid());
+											free(message);
+
+											if (test_cfsf(s_etat_processus, 51)
+													== d_faux)
+											{
+												printf("%s", ds_beep);
+											}
+
+											if ((*s_etat_processus).core ==
+													d_vrai)
+											{
+												printf("\n");
+
+												if ((*s_etat_processus).langue
+														== 'F')
+												{
+													printf("+++Information : Gé"
+															"nération du fichie"
+															"r rpl-core "
+															"[%d]\n", (int)
+															getpid());
+												}
+												else
+												{
+													printf("+++Information : Wr"
+															"iting rpl-core fil"
+															"e [%d]\n",
+															(int) getpid());
+												}
+
+												rplcore(s_etat_processus);
+
+												if ((*s_etat_processus).langue
+														== 'F')
+												{
+													printf("+++Information : Pr"
+															"ocessus tracé [%d]"
+															"\n",
+															(int) getpid());
+												}
+												else
+												{
+													printf("+++Information : Do"
+															"ne [%d]\n", (int)
+															getpid());
+												}
+
+												printf("\n");
+												fflush(stdout);
+											}
+										}
 									}
 								}
 							}
@@ -5160,15 +5243,95 @@ rplinit(int argc, char *argv[], char *en
 
 								if (erreur == d_absence_erreur)
 								{
-									if (((*s_etat_processus).var_volatile_alarme
-											== 0) && ((*s_etat_processus)
+									if (((*s_etat_processus)
 											.arret_depuis_abort == 0) &&
 											((*s_etat_processus).at_exit
 											!= NULL))
 									{
+										// Permet de traiter ATEXIT
+										// même après réception d'un SIGINT.
+										(*s_etat_processus)
+												.var_volatile_alarme = 0;
+										(*s_etat_processus)
+												.var_volatile_requete_arret = 0;
+
+										if ((*s_etat_processus).profilage ==
+												d_vrai)
+										{
+											profilage(s_etat_processus,
+													"ATEXIT");
+										}
+
 										erreur = evaluation(s_etat_processus,
 												(*s_etat_processus).at_exit,
 												'E');
+
+										if ((*s_etat_processus).profilage ==
+												d_vrai)
+										{
+											profilage(s_etat_processus, NULL);
+										}
+
+										if (((*s_etat_processus)
+												.erreur_execution != d_ex) ||
+												((*s_etat_processus).exception
+												!= d_ep) || ((*s_etat_processus)
+												.erreur_systeme != d_es))
+										{
+											printf("%s [%d]\n", message =
+													messages(s_etat_processus),
+													(int) getpid());
+											free(message);
+
+											if (test_cfsf(s_etat_processus, 51)
+													== d_faux)
+											{
+												printf("%s", ds_beep);
+											}
+
+											if ((*s_etat_processus).core ==
+													d_vrai)
+											{
+												printf("\n");
+
+												if ((*s_etat_processus).langue
+														== 'F')
+												{
+													printf("+++Information : Gé"
+															"nération du fichie"
+															"r rpl-core "
+															"[%d]\n", (int)
+															getpid());
+												}
+												else
+												{
+													printf("+++Information : Wr"
+															"iting rpl-core fil"
+															"e [%d]\n",
+															(int) getpid());
+												}
+
+												rplcore(s_etat_processus);
+
+												if ((*s_etat_processus).langue
+														== 'F')
+												{
+													printf("+++Information : Pr"
+															"ocessus tracé [%d]"
+															"\n",
+															(int) getpid());
+												}
+												else
+												{
+													printf("+++Information : Do"
+															"ne [%d]\n", (int)
+															getpid());
+												}
+
+												printf("\n");
+												fflush(stdout);
+											}
+										}
 									}
 								}
 							}
@@ -5515,8 +5678,6 @@ rplinit(int argc, char *argv[], char *en
 							}
 						}
 
-						pthread_mutex_unlock(&((*s_etat_processus).mutex));
-
 						if ((*s_etat_processus)
 								.nombre_interruptions_non_affectees != 0)
 						{
@@ -5524,6 +5685,7 @@ rplinit(int argc, char *argv[], char *en
 									s_etat_processus);
 						}
 
+						pthread_mutex_unlock(&((*s_etat_processus).mutex));
 						nanosleep(&attente, NULL);
 						scrutation_interruptions(s_etat_processus);
 						pthread_mutex_lock(&((*s_etat_processus).mutex));