--- rpl/src/instructions_e1.c	2014/10/13 07:12:54	1.51
+++ rpl/src/instructions_e1.c	2023/08/07 17:42:54	1.74
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.35
+  Copyright (C) 1989-2023 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -114,24 +114,61 @@ instruction_eval(struct_processus *s_eta
 		return;
 	}
 
-	if ((s_objet_simplifie = simplification(s_etat_processus, s_objet)) == NULL)
+	if ((*s_etat_processus).l_base_pile_systeme == NULL)
 	{
-		if (last_valide == d_vrai)
+		(*s_etat_processus).erreur_systeme = d_es_pile_vide;
+		return;
+	}
+
+	if (test_cfsf(s_etat_processus, 46) == d_vrai)
+	{
+		(*(*s_etat_processus).l_base_pile_systeme).evaluation_expression =
+				d_vrai;
+
+		if (evaluation(s_etat_processus, s_objet, 'E') == d_erreur)
 		{
-			sf(s_etat_processus, 31);
+			(*(*s_etat_processus).l_base_pile_systeme)
+					.evaluation_expression = d_faux;
+
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
+
+			liberation(s_etat_processus, s_objet);
+			return;
 		}
 
+		(*(*s_etat_processus).l_base_pile_systeme).evaluation_expression =
+				d_faux;
 		liberation(s_etat_processus, s_objet);
-		return;
-	}
 
-	liberation(s_etat_processus, s_objet);
-	s_objet = s_objet_simplifie;
+		if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+				&s_objet) == d_erreur)
+		{
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
 
-	if ((*s_etat_processus).l_base_pile_systeme == NULL)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_pile_vide;
-		return;
+			(*s_etat_processus).erreur_execution = d_ex_manque_argument;
+			return;
+		}
+
+		if ((s_objet_simplifie = simplification(s_etat_processus, s_objet))
+				== NULL)
+		{
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
+
+			liberation(s_etat_processus, s_objet);
+			return;
+		}
+
+		liberation(s_etat_processus, s_objet);
+		s_objet = s_objet_simplifie;
 	}
 
 	(*(*s_etat_processus).l_base_pile_systeme).evaluation_expression = d_vrai;
@@ -544,6 +581,7 @@ instruction_else(struct_processus *s_eta
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);
@@ -835,6 +873,7 @@ instruction_elseif(struct_processus *s_e
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);
@@ -1038,6 +1077,8 @@ instruction_elseif(struct_processus *s_e
 void
 instruction_sensible_e(struct_processus *s_etat_processus)
 {
+	(*s_etat_processus).instruction_sensible = 'Y';
+
 	if (strcmp((*s_etat_processus).instruction_courante, "e") == 0)
 	{
 		instruction_e(s_etat_processus);