--- rpl/src/gestion_objets.c	2011/06/21 15:26:29	1.52
+++ rpl/src/gestion_objets.c	2011/06/22 12:48:30	1.53
@@ -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
 --------------------------------------------------------------------------------