--- rpl/src/formateur.c	2014/07/17 08:07:17	1.70
+++ rpl/src/formateur.c	2015/01/05 15:32:14	1.73
@@ -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.20
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -699,6 +699,7 @@ formateur(struct_processus *s_etat_proce
 								|| ((*s_etat_processus).instruction_courante[1]
 								== '-')) ? d_vrai : d_faux;
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -756,6 +757,7 @@ formateur(struct_processus *s_etat_proce
 							{
 								if ((strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -782,6 +784,7 @@ formateur(struct_processus *s_etat_proce
 										(strcmp(chaine_fonction, "-") == 0) ||
 										(strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -862,6 +865,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_1).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -917,6 +921,7 @@ formateur(struct_processus *s_etat_proce
 							{
 								if ((strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -933,6 +938,7 @@ formateur(struct_processus *s_etat_proce
 										(strcmp(chaine_fonction, "-") == 0) ||
 										(strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -1159,6 +1165,8 @@ formateur(struct_processus *s_etat_proce
 							(*(*l_element_courant).donnee).objet)).nom_fonction,
 							"XOR") == 0) || (strcmp((*((struct_fonction *)
 							(*(*l_element_courant).donnee).objet)).nom_fonction,
+							"EQV") == 0) || (strcmp((*((struct_fonction *)
+							(*(*l_element_courant).donnee).objet)).nom_fonction,
 							"AND") == 0))
 					{
 						if (depilement(s_etat_processus, &((*s_etat_processus)
@@ -1203,6 +1211,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_1).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1248,6 +1257,7 @@ formateur(struct_processus *s_etat_proce
 							}
 
 							if (((strcmp(chaine_fonction, "OR") == 0) ||
+									(strcmp(chaine_fonction, "EQV") == 0) ||
 									(strcmp(chaine_fonction, "XOR") == 0)) &&
 									(strcmp((*((struct_fonction *)
 									(*(*l_element_courant).donnee).objet))
@@ -1278,6 +1288,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_2).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1323,6 +1334,7 @@ formateur(struct_processus *s_etat_proce
 							}
 
 							if (((strcmp(chaine_fonction, "OR") == 0) ||
+									(strcmp(chaine_fonction, "EQV") == 0) ||
 									(strcmp(chaine_fonction, "XOR") == 0)) &&
 									(strcmp((*((struct_fonction *)
 									(*(*l_element_courant).donnee).objet))