--- rpl/src/gestion_variables.c	2013/03/23 16:14:39	1.72
+++ rpl/src/gestion_variables.c	2019/02/03 14:40:33	1.106
@@ -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.31
+  Copyright (C) 1989-2019 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;
@@ -2000,6 +2010,7 @@ liste_variables_locales(struct_processus
 						(*(*l_variable_statique).variable).variable_statique;
 				tableau[position].variable_partagee.pointeur = NULL;
 				tableau[position].variable_masquee = d_vrai;
+				tableau[position].mutex = NULL;
 
 				position++;
 			}
@@ -2035,8 +2046,6 @@ liste_variables_partagees(struct_process
 		return(position);
 	}
 
-	// mutex_liste_variables_partagees
-	// et (*l_variable_courante).mutex_feuille
 	if ((*l_element_courant).feuille != NULL)
 	{
 		l_variable = (*l_element_courant).feuille;
@@ -2050,9 +2059,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++;
 
@@ -2069,6 +2079,7 @@ 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;
@@ -2225,14 +2236,19 @@ copie_arbre_variables(struct_processus *
 					s_variable = (*((struct_variable *)
 							(*l_element_courant).donnee));
 
-					if ((s_variable.nom = strdup((*((struct_variable *)
-							(*l_element_courant).donnee)).nom)) == NULL)
+					if ((s_variable.nom = rpl_malloc(s_nouvel_etat_processus,
+							(strlen((*((struct_variable *)
+							(*l_element_courant).donnee)).nom) + 1) *
+							sizeof(unsigned char))) == NULL)
 					{
 						(*s_nouvel_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
 						return;
 					}
 
+					strcpy(s_variable.nom, (*((struct_variable *)
+							(*l_element_courant).donnee)).nom);
+
 					if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,
 							(*((struct_variable *) (*l_element_courant).donnee))
 							.objet, 'P')) == NULL)
@@ -2400,8 +2416,8 @@ copie_arbre_variables(struct_processus *
 			return;
 		}
 
-		if ((s_variable_statique.nom = malloc((strlen(
-				(*(*l_element_statique_courant).variable).nom) + 1) *
+		if ((s_variable_statique.nom = rpl_malloc(s_nouvel_etat_processus,
+				(strlen((*(*l_element_statique_courant).variable).nom) + 1) *
 				sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -2438,7 +2454,7 @@ copie_arbre_variables(struct_processus *
 */
 
 /*
- * Caractères autorisés dans les instructions
+ * Caractères autorisés dans les variables
  *
  * A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
  * a b c d e f g h i j k l m n o p q r s t u v w x y z