--- rpl/src/gestion_variables_statiques.c	2012/12/13 16:59:41	1.42
+++ rpl/src/gestion_variables_statiques.c	2015/02/19 11:01:20	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -144,12 +144,9 @@ creation_variable_statique(struct_proces
 
 		(*(*s_etat_processus).s_arbre_variables).feuille = NULL;
 		(*(*s_etat_processus).s_arbre_variables).feuille_statique = NULL;
-		(*(*s_etat_processus).s_arbre_variables).feuille_partagee = NULL;
 		(*(*s_etat_processus).s_arbre_variables).noeuds_utilises = 0;
 		(*(*s_etat_processus).s_arbre_variables).indice_tableau_pere = -1;
 		(*(*s_etat_processus).s_arbre_variables).noeud_pere = NULL;
-		INITIALISATION_MUTEX((*(*s_etat_processus).s_arbre_variables)
-				.mutex_feuille_partagee);
 
 		if (((*(*s_etat_processus).s_arbre_variables).noeuds =
 				allocation_tableau_noeuds(s_etat_processus)) == NULL)
@@ -199,13 +196,7 @@ creation_variable_statique(struct_proces
 			 		.pointeurs_caracteres_variables[*ptr]]).feuille_statique
 					= NULL;
 			(*(*l_variable_courante).noeuds[(*s_etat_processus)
-			 		.pointeurs_caracteres_variables[*ptr]]).feuille_partagee
-					= NULL;
-			(*(*l_variable_courante).noeuds[(*s_etat_processus)
 			 		.pointeurs_caracteres_variables[*ptr]]).noeuds_utilises = 0;
-			INITIALISATION_MUTEX((*(*l_variable_courante).noeuds
-					[(*s_etat_processus).pointeurs_caracteres_variables[*ptr]])
-					.mutex_feuille_partagee);
 
 			// Le champ noeud_pere de la structure créée pointe sur
 			// la structure parente et l'indice tableau_pere correspond à la
@@ -387,7 +378,7 @@ retrait_variable_statique(struct_process
 		(*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
 	}
 
-	return erreur;
+	return(erreur);
 }