--- rpl/src/rpl.c	2011/04/21 16:01:00	1.63
+++ rpl/src/rpl.c	2011/06/10 11:35:14	1.64
@@ -1858,10 +1858,9 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).l_base_pile = NULL;
 			(*s_etat_processus).l_base_pile_last = NULL;
 
-			(*s_etat_processus).s_liste_variables = NULL;
+			(*s_etat_processus).s_arbre_variables = NULL;
 			(*s_etat_processus).gel_liste_variables = d_faux;
-			(*s_etat_processus).nombre_variables = 0;
-			(*s_etat_processus).nombre_variables_allouees = 0;
+			(*s_etat_processus).pointeur_variable_courante = NULL;
 			(*s_etat_processus).s_liste_variables_statiques = NULL;
 			(*s_etat_processus).nombre_variables_statiques = 0;
 			(*s_etat_processus).nombre_variables_statiques_allouees = 0;
@@ -1869,7 +1868,6 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).niveau_initial = 0;
 			(*s_etat_processus).creation_variables_statiques = d_faux;
 			(*s_etat_processus).creation_variables_partagees = d_faux;
-			(*s_etat_processus).position_variable_courante = 0;
 			(*s_etat_processus).position_variable_statique_courante = 0;
 
 			(*s_etat_processus).s_bibliotheques = NULL;
@@ -2400,7 +2398,7 @@ rplinit(int argc, char *argv[], unsigned
 					(*s_etat_processus).position_courante = 0;
 					(*s_etat_processus).traitement_cycle_exit = 'N';
 
-					if ((*s_etat_processus).nombre_variables == 0)
+					if ((*s_etat_processus).s_arbre_variables == NULL)
 					{
 						if ((*s_etat_processus).langue == 'F')
 						{
@@ -2460,9 +2458,8 @@ rplinit(int argc, char *argv[], unsigned
 						return(EXIT_FAILURE);
 					}
 
-					if ((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus)
-							.position_variable_courante].niveau != 0)
+					if ((*(*s_etat_processus).pointeur_variable_courante)
+							.niveau != 0)
 					{
 						if ((*s_etat_processus).langue == 'F')
 						{
@@ -3219,6 +3216,7 @@ 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,
@@ -3227,6 +3225,7 @@ rplinit(int argc, char *argv[], unsigned
 					}
 
 					free((*s_etat_processus).s_liste_variables);
+#endif
 
 					for(i = 0; i < (*s_etat_processus)
 							.nombre_variables_statiques; i++)