--- rpl/src/rpl.c	2012/12/14 14:19:50	1.126
+++ rpl/src/rpl.c	2013/02/23 18:32:15	1.132
@@ -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,9 +80,15 @@ 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_arbre_variables_partagees	*s_arbre_variables_partagees;
+	struct_liste_variables_partagees	*l_liste_variables_partagees;
+
 	struct sigaction					action;
 	struct sigaction					registre;
 
@@ -267,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
@@ -424,11 +435,11 @@ rplinit(int argc, char *argv[], char *en
 
 	if ((*s_etat_processus).langue == 'F')
 	{
-		printf("+++Copyright (C) 1989 à 2011, 2012 BERTRAND Joël\n");
+		printf("+++Copyright (C) 1989 à 2012, 2013 BERTRAND Joël\n");
 	}
 	else
 	{
-		printf("+++Copyright (C) 1989 to 2011, 2012 BERTRAND Joel\n");
+		printf("+++Copyright (C) 1989 to 2012, 2013 BERTRAND Joel\n");
 	}
 
 	if (getenv("HOME") != NULL)
@@ -3425,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;
@@ -5662,7 +5680,7 @@ rplinit(int argc, char *argv[], char *en
 					 */
 
 					liberation_arbre_variables_partagees(s_etat_processus,
-							(*s_etat_processus).s_arbre_variables);
+							(*(*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);
@@ -5678,6 +5696,17 @@ rplinit(int argc, char *argv[], char *en
 						l_element_statique_courant = l_element_statique_suivant;
 					}
 
+					l_element_partage_courant = (*(*s_etat_processus)
+							.l_liste_variables_partagees);
+
+					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é
 					 * depuis rpl() [librpl] et non main().
@@ -6015,6 +6044,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);
+	pthread_mutex_destroy(&mutex_liste_variables_partagees);
 
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&((*s_etat_processus).semaphore_fork));