--- rpl/src/gestion_objets.c	2011/04/21 16:00:54	1.48
+++ rpl/src/gestion_objets.c	2011/06/24 20:31:36	1.56
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.0.prerelease.4
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -111,6 +111,11 @@ initialisation_allocateur(struct_process
 	(*s_etat_processus).pointeur_vec = 0;
 	(*s_etat_processus).pointeur_maillons = 0;
 
+	(*s_etat_processus).pointeur_variables_noeud = 0;
+	(*s_etat_processus).pointeur_variables_feuille = 0;
+	(*s_etat_processus).pointeur_variables_variable = 0;
+	(*s_etat_processus).pointeur_variables_tableau_noeuds = 0;
+
 	return;
 }
 
@@ -143,6 +148,15 @@ liberation_allocateur(struct_processus *
 	for(i = 0; i < (*s_etat_processus).pointeur_maillons;
 			free((*s_etat_processus).maillons[i++]));
 
+	for(i = 0; i < (*s_etat_processus).pointeur_variables_noeud;
+			free((*s_etat_processus).variables_noeud[i++]));
+	for(i = 0; i < (*s_etat_processus).pointeur_variables_feuille;
+			free((*s_etat_processus).variables_feuille[i++]));
+	for(i = 0; i < (*s_etat_processus).pointeur_variables_variable;
+			free((*s_etat_processus).variables_variable[i++]));
+	for(i = 0; i < (*s_etat_processus).pointeur_variables_tableau_noeuds;
+			free((*s_etat_processus).variables_tableau_noeuds[i++]));
+
 	{
 		struct_liste_chainee		*l_element_courant;
 		struct_liste_chainee		*l_element_suivant;
@@ -234,7 +248,7 @@ allocation_maillon(struct_processus *s_e
 
 /*
 ================================================================================
-  Routine d'allocation d'un maillon d'un objet (liste, expression...)
+  Routine de libération d'un maillon d'un objet (liste, expression...)
 ================================================================================
   Entrées : structure sur l'état du processus et objet à afficher
 --------------------------------------------------------------------------------
@@ -274,7 +288,7 @@ liberation_maillon(struct_processus *s_e
 ================================================================================
 */
 
-void *
+struct_objet *
 allocation(struct_processus *s_etat_processus, enum t_type type)
 {
 	struct_objet			*s_objet;
@@ -3110,17 +3124,13 @@ copie_etat_processus(struct_processus *s
 	 * Copie de la table des variables
 	 */
 
-	if (((*s_nouvel_etat_processus).s_arbre_variables =
-			copie_arbre_variables(s_etat_processus)) == NULL)
+	copie_arbre_variables(s_etat_processus, s_nouvel_etat_processus);
+
+	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
 	{
 		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.
-
-	(*s_etat_processus).l_liste_variables_par_niveau = NULL;
-
 	/*
 	 * Copie de la table des variables statiques
 	 */