--- rpl/src/rpl.c	2011/06/10 11:35:14	1.64
+++ rpl/src/rpl.c	2011/08/30 14:19:28	1.78
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -46,7 +46,6 @@ rplinit(int argc, char *argv[], unsigned
 
 	int									erreur_historique;
 	int									option_P;
-	int									status;
 
 	logical1							core;
 	logical1							debug;
@@ -183,6 +182,8 @@ rplinit(int argc, char *argv[], unsigned
 		(*s_etat_processus).langue = 'E';
 	}
 
+	initialisation_contexte_cas(s_etat_processus);
+
 	(*s_etat_processus).exception = d_ep;
 	(*s_etat_processus).erreur_systeme = d_es;
 	(*s_etat_processus).erreur_execution = d_ex;
@@ -1857,8 +1858,10 @@ rplinit(int argc, char *argv[], unsigned
 
 			(*s_etat_processus).l_base_pile = NULL;
 			(*s_etat_processus).l_base_pile_last = NULL;
+			(*s_etat_processus).l_base_pile_undo = NULL;
 
 			(*s_etat_processus).s_arbre_variables = NULL;
+			(*s_etat_processus).l_liste_variables_par_niveau = NULL;
 			(*s_etat_processus).gel_liste_variables = d_faux;
 			(*s_etat_processus).pointeur_variable_courante = NULL;
 			(*s_etat_processus).s_liste_variables_statiques = NULL;
@@ -2013,6 +2016,8 @@ rplinit(int argc, char *argv[], unsigned
 
 			initialisation_allocateur(s_etat_processus);
 			initialisation_drapeaux(s_etat_processus);
+			initialisation_variables(s_etat_processus);
+			initialisation_instructions(s_etat_processus);
 
 			if ((*s_etat_processus).erreur_systeme != d_es)
 			{
@@ -2545,9 +2550,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					fflush(stdout);
 
-					initialisation_instructions(s_etat_processus);
-					initialisation_variables(s_etat_processus);
-
 					if (arguments != NULL)
 					{
 						tampon = (*s_etat_processus).definitions_chainees;
@@ -2991,8 +2993,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					while((*s_etat_processus).l_base_pile_processus != NULL)
 					{
-						status = 0;
-
 						l_element_courant = (void *)
 								(*s_etat_processus).l_base_pile_processus;
 
@@ -3216,16 +3216,9 @@ rplinit(int argc, char *argv[], unsigned
 					 * le libérer...
 					 */
 
-#if 0
-					for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
-					{
-						liberation(s_etat_processus,
-								(*s_etat_processus).s_liste_variables[i].objet);
-						free((*s_etat_processus).s_liste_variables[i].nom);
-					}
-
-					free((*s_etat_processus).s_liste_variables);
-#endif
+					liberation_arbre_variables(s_etat_processus,
+							(*s_etat_processus).s_arbre_variables, d_vrai);
+					free((*s_etat_processus).pointeurs_caracteres_variables);
 
 					for(i = 0; i < (*s_etat_processus)
 							.nombre_variables_statiques; i++)
@@ -3403,6 +3396,21 @@ rplinit(int argc, char *argv[], unsigned
 					}
 
 					l_element_courant = (void *) (*s_etat_processus)
+							.l_base_pile_undo;
+					while(l_element_courant != NULL)
+					{
+						l_element_suivant = (*((struct_liste_chainee *)
+								l_element_courant)).suivant;
+
+						liberation(s_etat_processus,
+								(*((struct_liste_chainee *)
+								l_element_courant)).donnee);
+						free((struct_liste_chainee *) l_element_courant);
+
+						l_element_courant = l_element_suivant;
+					}
+
+					l_element_courant = (void *) (*s_etat_processus)
 							.l_base_pile_systeme;
 					while(l_element_courant != NULL)
 					{
@@ -3626,6 +3634,8 @@ rplinit(int argc, char *argv[], unsigned
 #	undef return
 #	endif
 
+	liberation_contexte_cas(s_etat_processus);
+
 	free((*s_etat_processus).chemin_fichiers_temporaires);
 	free(s_etat_processus);