--- rpl/src/rpl.c	2012/12/14 14:19:50	1.126
+++ rpl/src/rpl.c	2012/12/17 21:22:44	1.127
@@ -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;
 
@@ -3425,10 +3431,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 +5675,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 +5691,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().