--- rpl/src/gestion_variables.c	2013/03/20 17:11:44	1.70
+++ rpl/src/gestion_variables.c	2015/01/05 15:32:15	1.86
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.20
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1531,6 +1531,15 @@ retrait_variables_par_niveau(struct_proc
 				break;
 			}
 
+			if (((*s_etat_processus).at_exit != NULL) &&
+					((*s_etat_processus).niveau_courant == 0))
+			{
+				// Il y a une routine ATEXIT enregistrée. On ne détruit pas
+				// les variables globales qui pourraient y être utilisées.
+
+				break;
+			}
+
 			while((*(*s_etat_processus).l_liste_variables_par_niveau).liste
 					!= NULL)
 			{
@@ -1863,6 +1872,7 @@ nombre_variables_partagees(struct_proces
 		return(0);
 	}
 
+	// Mutex deverrouillé par liste_variables_partagees();
 	if (pthread_mutex_lock(&((*l_element_courant).mutex_feuille)) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -1953,7 +1963,7 @@ liste_variables_locales(struct_processus
 
 	if (l_element_courant == NULL)
 	{
-		return(0);
+		return(position);
 	}
 
 	if ((*l_element_courant).feuille != NULL)
@@ -1973,8 +1983,10 @@ liste_variables_locales(struct_processus
 			tableau[position].variable_partagee =
 					(*(*l_variable).variable).variable_partagee;
 			tableau[position].variable_masquee = d_faux;
+			tableau[position].mutex = NULL;
 
 			position++;
+
 			l_variable = (*l_variable).suivant;
 		} while(l_variable != (*l_element_courant).feuille);
 	}
@@ -1991,8 +2003,8 @@ liste_variables_locales(struct_processus
 				tableau[position].nom = (*(*l_variable_statique).variable).nom;
 				tableau[position].niveau =
 						(*(*l_variable_statique).variable).niveau;
-				tableau[position].objet =
-						(*(*l_variable_statique).variable).objet;
+				tableau[position].objet = (*(*l_variable_statique).variable)
+						.objet;
 				tableau[position].variable_verrouillee = d_faux;
 				tableau[position].variable_statique =
 						(*(*l_variable_statique).variable).variable_statique;
@@ -2030,7 +2042,7 @@ liste_variables_partagees(struct_process
 
 	if (l_element_courant == NULL)
 	{
-		return(0);
+		return(position);
 	}
 
 	if ((*l_element_courant).feuille != NULL)
@@ -2046,8 +2058,10 @@ liste_variables_partagees(struct_process
 			tableau[position].variable_verrouillee = d_faux;
 			tableau[position].variable_partagee =
 					(*(*l_variable).variable).variable_partagee;
-			tableau[position].variable_partagee.pointeur = NULL;
+			tableau[position].variable_statique.pointeur = NULL;
 			tableau[position].variable_masquee = d_faux;
+			tableau[position].mutex = &((*(*l_variable).variable).mutex);
+			pthread_mutex_lock(tableau[position].mutex);
 
 			position++;
 
@@ -2064,6 +2078,13 @@ liste_variables_partagees(struct_process
 		}
 	}
 
+	// Mutex verrouillé par nombre_variables_partagees();
+	if (pthread_mutex_unlock(&((*l_element_courant).mutex_feuille)) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return(0);
+	}
+
 	return(position);
 }
 
@@ -2100,7 +2121,7 @@ liste_variables(struct_processus *s_etat
 
 	nombre_elements = liste_variables_locales(s_etat_processus,
 			tableau, 0, (*s_etat_processus).s_arbre_variables);
-	nombre_elements += liste_variables_partagees(s_etat_processus,
+	nombre_elements = liste_variables_partagees(s_etat_processus,
 			tableau, nombre_elements, (*(*s_etat_processus)
 			.s_arbre_variables_partagees));