--- rpl/src/evaluation.c	2012/10/01 11:05:00	1.59
+++ rpl/src/evaluation.c	2012/10/08 11:53:46	1.62
@@ -802,10 +802,30 @@ evaluation(struct_processus *s_etat_proc
 							((*s_etat_processus).erreur_systeme == d_es) &&
 							((*s_etat_processus).exception == d_ep))
 					{
+						registre_evaluation_expression_compilee =
+								(*s_etat_processus)
+								.evaluation_expression_compilee;
+
+						if (((*(*s_etat_processus).pointeur_variable_courante)
+								.origine == 'E') && ((*(*s_etat_processus)
+								.pointeur_variable_courante).niveau == 0))
+						{
+							(*s_etat_processus).evaluation_expression_compilee
+									= 'Y';
+						}
+						else
+						{
+							(*s_etat_processus).evaluation_expression_compilee
+									= 'N';
+						}
+
 						analyse(s_etat_processus, (*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
 								.fonction);
 
+						(*s_etat_processus).evaluation_expression_compilee =
+								registre_evaluation_expression_compilee;
+
 						if (type_evaluation == 'I')
 						{
 							(*s_etat_processus).derniere_erreur_evaluation =
@@ -1147,9 +1167,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -1514,9 +1533,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -1900,9 +1918,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -4140,9 +4157,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -4548,9 +4564,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -4922,9 +4937,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -5393,9 +5407,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -5801,9 +5814,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -6175,9 +6187,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -7179,8 +7190,17 @@ evaluation(struct_processus *s_etat_proc
 
 			(*s_etat_processus).niveau_courant = niveau_initial;
 
-			if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+			if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 			{
+				if (presence_egalite == d_vrai)
+				{
+					liberation(s_etat_processus, s_objet_evalue);
+				}
+
+				(*s_etat_processus).instruction_courante =
+						instruction_courante;
+				(*s_etat_processus).mode_execution_programme =
+						registre_mode_execution_programme;
 				return(d_erreur);
 			}
 		}
@@ -7189,28 +7209,18 @@ evaluation(struct_processus *s_etat_proc
 		 * Retrait des variables statiques créées dans l'expression
 		 */
 
-		for(n = 0; n < (*s_etat_processus).nombre_variables_statiques; n++)
+		if (retrait_variables_statiques_locales(s_etat_processus) == d_erreur)
 		{
-			if ((*s_etat_processus).s_liste_variables_statiques[n]
-					.niveau > (*s_etat_processus).niveau_courant)
+			if (presence_egalite == d_vrai)
 			{
-				if (retrait_variable_statique(s_etat_processus,
-						(*s_etat_processus).s_liste_variables_statiques[n].nom,
-						(*s_etat_processus).s_liste_variables_statiques[n]
-						.variable_statique) == d_erreur)
-				{
-					if (presence_egalite == d_vrai)
-					{
-						liberation(s_etat_processus, s_objet_evalue);
-					}
-
-					(*s_etat_processus).instruction_courante =
-							instruction_courante;
-					(*s_etat_processus).mode_execution_programme =
-							registre_mode_execution_programme;
-					return(d_erreur);
-				}
+				liberation(s_etat_processus, s_objet_evalue);
 			}
+
+			(*s_etat_processus).instruction_courante =
+					instruction_courante;
+			(*s_etat_processus).mode_execution_programme =
+					registre_mode_execution_programme;
+			return(d_erreur);
 		}
 
 		/*