--- rpl/src/rpl.c	2012/10/19 19:05:52	1.124
+++ rpl/src/rpl.c	2012/12/18 13:19:39	1.129
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
+  RPL/2 (R) version 4.1.12
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -80,10 +80,14 @@ rplinit(int argc, char *argv[], char *en
 
 	struct_processus					*s_etat_processus;
 
+	struct_liste_variables_partagees	*l_element_partage_courant;
+	struct_liste_variables_partagees	*l_element_partage_suivant;
+
 	struct_liste_variables_statiques	*l_element_statique_courant;
 	struct_liste_variables_statiques	*l_element_statique_suivant;
 
-	struct_table_variables_partagees	s_variables_partagees;
+	struct_arbre_variables_partagees	*s_arbre_variables_partagees;
+	struct_liste_variables_partagees	*l_liste_variables_partagees;
 
 	struct sigaction					action;
 	struct sigaction					registre;
@@ -269,6 +273,11 @@ rplinit(int argc, char *argv[], char *en
 	pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
 #	ifndef SEMAPHORES_NOMMES
 		sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #	else
@@ -305,18 +314,6 @@ rplinit(int argc, char *argv[], char *en
 			&attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
-	(*s_etat_processus).s_liste_variables_partagees = &s_variables_partagees;
-
-	s_variables_partagees.nombre_variables = 0;
-	s_variables_partagees.nombre_variables_allouees = 0;
-	s_variables_partagees.table = NULL;
-
-	pthread_mutexattr_init(&attributs_mutex);
-	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
-	pthread_mutex_init(&((*((*s_etat_processus).s_liste_variables_partagees))
-			.mutex), &attributs_mutex);
-	pthread_mutexattr_destroy(&attributs_mutex);
-
 	(*s_etat_processus).chemin_fichiers_temporaires =
 			recherche_chemin_fichiers_temporaires(s_etat_processus);
 
@@ -3439,10 +3436,17 @@ rplinit(int argc, char *argv[], char *en
 
 			(*s_etat_processus).s_arbre_variables = NULL;
 			(*s_etat_processus).l_liste_variables_par_niveau = NULL;
+			(*s_etat_processus).l_liste_variables_statiques = NULL;
 			(*s_etat_processus).gel_liste_variables = d_faux;
+			s_arbre_variables_partagees = NULL;
+			l_liste_variables_partagees = NULL;
+			(*s_etat_processus).s_arbre_variables_partagees =
+					&s_arbre_variables_partagees;
+			(*s_etat_processus).l_liste_variables_partagees =
+					&l_liste_variables_partagees;
 			(*s_etat_processus).pointeur_variable_courante = NULL;
 			(*s_etat_processus).pointeur_variable_statique_courante = NULL;
-			(*s_etat_processus).l_liste_variables_statiques = NULL;
+			(*s_etat_processus).pointeur_variable_partagee_courante = NULL;
 			(*s_etat_processus).niveau_courant = 0;
 			(*s_etat_processus).niveau_initial = 0;
 			(*s_etat_processus).creation_variables_statiques = d_faux;
@@ -5675,6 +5679,8 @@ rplinit(int argc, char *argv[], char *en
 					 * le libérer...
 					 */
 
+					liberation_arbre_variables_partagees(s_etat_processus,
+							(*(*s_etat_processus).s_arbre_variables_partagees));
 					liberation_arbre_variables(s_etat_processus,
 							(*s_etat_processus).s_arbre_variables, d_vrai);
 					free((*s_etat_processus).pointeurs_caracteres_variables);
@@ -5690,19 +5696,16 @@ rplinit(int argc, char *argv[], char *en
 						l_element_statique_courant = l_element_statique_suivant;
 					}
 
-					for(i = 0; i < (*((*s_etat_processus)
-							.s_liste_variables_partagees)).nombre_variables;
-							i++)
-					{
-						liberation(s_etat_processus, (*((*s_etat_processus)
-								.s_liste_variables_partagees)).table[i].objet);
-						free((*((*s_etat_processus)
-								.s_liste_variables_partagees)).table[i].nom);
-					}
+					l_element_partage_courant = (*(*s_etat_processus)
+							.l_liste_variables_partagees);
 
-					free((struct_variable_partagee *)
-							(*((*s_etat_processus).s_liste_variables_partagees))
-							.table);
+					while(l_element_partage_courant != NULL)
+					{
+						l_element_partage_suivant =
+								(*l_element_partage_courant).suivant;
+						free(l_element_partage_courant);
+						l_element_partage_courant = l_element_partage_suivant;
+					}
 
 					/*
 					 * Si resultats est non nul, rplinit a été appelé
@@ -6035,14 +6038,13 @@ rplinit(int argc, char *argv[], char *en
 	closelog();
 
 	pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes));
-	pthread_mutex_destroy(&((*((*s_etat_processus).s_liste_variables_partagees))
-			.mutex));
 
 	retrait_thread(s_etat_processus);
 
 	pthread_mutex_destroy(&((*s_etat_processus).mutex));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
 	pthread_mutex_destroy(&mutex_sections_critiques);
+	pthread_mutex_destroy(&mutex_liste_variables_partagees);
 
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&((*s_etat_processus).semaphore_fork));