--- rpl/src/formateur.c	2014/01/26 18:21:29	1.67
+++ rpl/src/formateur.c	2014/07/24 14:38:43	1.71
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.17
+  RPL/2 (R) version 4.1.19
   Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -119,6 +119,9 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
+#		pragma GCC diagnostic push
+#		pragma GCC diagnostic ignored "-Wpointer-to-int-cast"
+
 		if (alsprintf(&chaine, "Library $ %016llX [%s]",
 				(unsigned long long) (*((struct_bibliotheque *)
 				(*s_objet).objet)).descripteur, (*((struct_bibliotheque *)
@@ -127,6 +130,9 @@ formateur(struct_processus *s_etat_proce
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
 		}
+
+#		pragma GCC diagnostic pop
+
 	}
 	else if ((*s_objet).type == SPH)
 	{
@@ -137,6 +143,9 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
+#		pragma GCC diagnostic push
+#		pragma GCC diagnostic ignored "-Wpointer-to-int-cast"
+
 		if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
 				&((*((struct_semaphore *) (*s_objet).objet)).semaphore),
 				(*((struct_semaphore *) (*s_objet).objet)).nom) < 0)
@@ -144,6 +153,9 @@ formateur(struct_processus *s_etat_proce
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
 		}
+
+#		pragma GCC diagnostic pop
+
 	}
 	else if ((*s_objet).type == SQL)
 	{
@@ -687,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)
@@ -850,6 +863,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)
@@ -1191,6 +1205,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)
@@ -1266,6 +1281,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)