--- rpl/src/rpl.c	2012/08/22 10:47:18	1.116
+++ rpl/src/rpl.c	2012/10/14 21:37:11	1.122
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.10
+  RPL/2 (R) version 4.1.11
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -80,6 +80,9 @@ rplinit(int argc, char *argv[], char *en
 
 	struct_processus					*s_etat_processus;
 
+	struct_liste_variables_statiques	*l_element_statique_courant;
+	struct_liste_variables_statiques	*l_element_statique_suivant;
+
 	struct_table_variables_partagees	s_variables_partagees;
 
 	struct sigaction					action;
@@ -251,6 +254,11 @@ rplinit(int argc, char *argv[], char *en
 			&attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
 #	ifndef SEMAPHORES_NOMMES
 		sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #	else
@@ -406,6 +414,23 @@ rplinit(int argc, char *argv[], char *en
 		}
 #	endif
 
+	if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 	action.sa_handler = interruption1;
 	action.sa_flags = 0;
 
@@ -1928,6 +1953,7 @@ rplinit(int argc, char *argv[], char *en
 			gettimeofday(&((*s_etat_processus).horodatage_profilage), NULL);
 
 			(*s_etat_processus).liste_mutexes = NULL;
+			(*s_etat_processus).sections_critiques = 0;
 
 			(*s_etat_processus).test_instruction = 'N';
 			(*s_etat_processus).nombre_arguments = 0;
@@ -1963,14 +1989,12 @@ rplinit(int argc, char *argv[], char *en
 			(*s_etat_processus).l_liste_variables_par_niveau = NULL;
 			(*s_etat_processus).gel_liste_variables = d_faux;
 			(*s_etat_processus).pointeur_variable_courante = NULL;
-			(*s_etat_processus).s_liste_variables_statiques = NULL;
-			(*s_etat_processus).nombre_variables_statiques = 0;
-			(*s_etat_processus).nombre_variables_statiques_allouees = 0;
+			(*s_etat_processus).pointeur_variable_statique_courante = NULL;
+			(*s_etat_processus).l_liste_variables_statiques = NULL;
 			(*s_etat_processus).niveau_courant = 0;
 			(*s_etat_processus).niveau_initial = 0;
 			(*s_etat_processus).creation_variables_statiques = d_faux;
 			(*s_etat_processus).creation_variables_partagees = d_faux;
-			(*s_etat_processus).position_variable_statique_courante = 0;
 
 			(*s_etat_processus).s_bibliotheques = NULL;
 			(*s_etat_processus).s_instructions_externes = NULL;
@@ -2910,6 +2934,11 @@ rplinit(int argc, char *argv[], char *en
 						}
 					}
 
+					for(i = 0; i < (*s_etat_processus).sections_critiques; i++)
+					{
+						pthread_mutex_unlock(&mutex_sections_critiques);
+					}
+
 					liberation(s_etat_processus, (*s_etat_processus).at_exit);
 					liberation(s_etat_processus, (*s_etat_processus).at_poke);
 
@@ -3336,17 +3365,17 @@ rplinit(int argc, char *argv[], char *en
 							(*s_etat_processus).s_arbre_variables, d_vrai);
 					free((*s_etat_processus).pointeurs_caracteres_variables);
 
-					for(i = 0; i < (*s_etat_processus)
-							.nombre_variables_statiques; i++)
+					l_element_statique_courant = (*s_etat_processus)
+							.l_liste_variables_statiques;
+
+					while(l_element_statique_courant != NULL)
 					{
-						liberation(s_etat_processus, (*s_etat_processus)
-								.s_liste_variables_statiques[i].objet);
-						free((*s_etat_processus)
-								.s_liste_variables_statiques[i].nom);
+						l_element_statique_suivant =
+							(*l_element_statique_courant).suivant;
+						free(l_element_statique_courant);
+						l_element_statique_courant = l_element_statique_suivant;
 					}
 
-					free((*s_etat_processus).s_liste_variables_statiques);
-
 					for(i = 0; i < (*((*s_etat_processus)
 							.s_liste_variables_partagees)).nombre_variables;
 							i++)
@@ -3703,6 +3732,7 @@ rplinit(int argc, char *argv[], char *en
 
 	pthread_mutex_destroy(&((*s_etat_processus).mutex));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
+	pthread_mutex_destroy(&mutex_sections_critiques);
 
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&((*s_etat_processus).semaphore_fork));
@@ -3715,9 +3745,6 @@ rplinit(int argc, char *argv[], char *en
 
 	free((*s_etat_processus).localisation);
 
-	pthread_mutex_destroy(&mutex_liste_threads);
-	pthread_mutex_destroy(&mutex_gestionnaires_signaux_atomique);
-
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&semaphore_gestionnaires_signaux);
 	sem_destroy(&semaphore_gestionnaires_signaux);
@@ -3739,6 +3766,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	free(arg_exec);
+	arret_thread_signaux(s_etat_processus);
 	free(s_etat_processus);
 
 #	ifdef DEBUG_MEMOIRE