--- rpl/src/gestion_objets.c	2011/04/14 08:46:38	1.45.2.2
+++ rpl/src/gestion_objets.c	2011/06/21 15:26:29	1.52
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.23
+  RPL/2 (R) version 4.1.0.prerelease.2
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3110,74 +3110,11 @@ 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 (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);
-	}
+	copie_arbre_variables(s_etat_processus, s_nouvel_etat_processus);
 
-	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
+	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
 	{
-		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);
-		}
-
-		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);
-			}
-		}
+		return(NULL);
 	}
 
 	/*