--- rpl/src/gestion_objets.c	2011/04/14 08:46:38	1.45.2.2
+++ rpl/src/gestion_objets.c	2011/04/14 10:32:59	1.47
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.23
+  RPL/2 (R) version 4.1.0.prerelease.0
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3110,75 +3110,16 @@ copie_etat_processus(struct_processus *s
 	 * Copie de la table des variables
 	 */
 
-	if (((*s_nouvel_etat_processus).s_liste_variables =
-			malloc((*s_etat_processus).nombre_variables_allouees *
-			sizeof(struct_variable))) == NULL)
+	if (((*s_nouvel_etat_processus).s_arbre_variables =
+			copie_arbre_variables(s_etat_processus)) == NULL)
 	{
-		if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return(NULL);
-		}
-
-		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(NULL);
 	}
 
-	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
-	{
-		if (((*s_nouvel_etat_processus).s_liste_variables[i].nom =
-				malloc((strlen((*s_etat_processus).s_liste_variables[i].nom)
-				+ 1) * sizeof(unsigned char))) == NULL)
-		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return(NULL);
-			}
-
-			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-			return(NULL);
-		}
+	// La pile des variables par niveau n'est pas copiée puisqu'il est
+	// impossible n'enlever dans un thread une variable créée dans le père.
 
-		strcpy((*s_nouvel_etat_processus).s_liste_variables[i].nom,
-				(*s_etat_processus).s_liste_variables[i].nom);
-
-		(*s_nouvel_etat_processus).s_liste_variables[i].origine =
-				(*s_etat_processus).s_liste_variables[i].origine;
-		(*s_nouvel_etat_processus).s_liste_variables[i].niveau =
-				(*s_etat_processus).s_liste_variables[i].niveau;
-		(*s_nouvel_etat_processus).s_liste_variables[i].variable_statique =
-				(*s_etat_processus).s_liste_variables[i].variable_statique;
-		(*s_nouvel_etat_processus).s_liste_variables[i].variable_partagee =
-				(*s_etat_processus).s_liste_variables[i].variable_partagee;
-		(*s_nouvel_etat_processus).s_liste_variables[i].variable_verrouillee =
-				(*s_etat_processus).s_liste_variables[i].variable_verrouillee;
-
-		// Les définitions sont partagées entre tous les threads.
-
-		if ((*s_etat_processus).s_liste_variables[i].niveau == 0)
-		{
-			(*s_nouvel_etat_processus).s_liste_variables[i].objet =
-					(*s_etat_processus).s_liste_variables[i].objet;
-		}
-		else
-		{
-			if (((*s_nouvel_etat_processus).s_liste_variables[i].objet =
-					copie_objet(s_etat_processus,
-					(*s_etat_processus).s_liste_variables[i]
-					.objet, 'P')) == NULL)
-			{
-				if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return(NULL);
-				}
-
-				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-				return(NULL);
-			}
-		}
-	}
+	(*s_etat_processus).l_liste_variables_par_niveau = NULL;
 
 	/*
 	 * Copie de la table des variables statiques