--- rpl/src/formateur.c	2013/04/01 15:29:34	1.62
+++ rpl/src/formateur.c	2014/07/24 14:38:43	1.71
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.14
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -103,7 +103,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "@ %016llX", (*((integer8 *)
+		if (alsprintf(&chaine, "@ %016llX", (*((unsigned long long *)
 				((*s_objet).objet)))) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -119,14 +119,20 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
+#		pragma GCC diagnostic push
+#		pragma GCC diagnostic ignored "-Wpointer-to-int-cast"
+
 		if (alsprintf(&chaine, "Library $ %016llX [%s]",
-				(*((struct_bibliotheque *)
+				(unsigned long long) (*((struct_bibliotheque *)
 				(*s_objet).objet)).descripteur, (*((struct_bibliotheque *)
 				(*s_objet).objet)).nom) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
 		}
+
+#		pragma GCC diagnostic pop
+
 	}
 	else if ((*s_objet).type == SPH)
 	{
@@ -137,13 +143,19 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Semaphore $ %016llX '%s'",
+#		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)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
 		}
+
+#		pragma GCC diagnostic pop
+
 	}
 	else if ((*s_objet).type == SQL)
 	{
@@ -159,7 +171,7 @@ formateur(struct_processus *s_etat_proce
 		{
 #			ifdef MYSQL_SUPPORT
 			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
-					(logical8) (*((struct_connecteur_sql *)
+					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.mysql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -186,7 +198,7 @@ formateur(struct_processus *s_etat_proce
 		{
 #			ifdef POSTGRESQL_SUPPORT
 			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
-					(logical8) (*((struct_connecteur_sql *)
+					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.postgresql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -227,7 +239,7 @@ formateur(struct_processus *s_etat_proce
 		if ((*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 				.processus_detache == d_vrai)
 		{
-			if (alsprintf(&chaine, "Process $ %016llX", (integer8)
+			if (alsprintf(&chaine, "Process $ %016llX", (unsigned long long)
 					(*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 					.pid) < 0)
 			{
@@ -238,9 +250,9 @@ formateur(struct_processus *s_etat_proce
 		else
 		{
 			if (alsprintf(&chaine, "Light weight process $ %016llX/%016llX",
-					(integer8) (*(*((struct_processus_fils *)
+					(unsigned long long) (*(*((struct_processus_fils *)
 					(*s_objet).objet)).thread).pid,
-					(integer8) (*(*((struct_processus_fils *)
+					(unsigned long long) (*(*((struct_processus_fils *)
 					(*s_objet).objet)).thread).tid) < 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -257,7 +269,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "File $ %016llX", (logical8)
+		if (alsprintf(&chaine, "File $ %016llX", (unsigned long long)
 				(*((struct_fichier *) ((*s_objet).objet))).descripteur) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -389,7 +401,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Socket $ %016llX", (integer8)
+		if (alsprintf(&chaine, "Socket $ %016llX", (unsigned long long)
 				(*((struct_socket *) ((*s_objet).objet))).socket) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -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)
@@ -1586,7 +1602,7 @@ formateur(struct_processus *s_etat_proce
 -- Base décimale ---------------------------------------------------------------
 */
 
-			sprintf(tampon, "%llu", (*((logical8 *)
+			sprintf(tampon, "%llu", (*((unsigned long long *)
 					((*s_objet).objet))) & masque_binaire);
 			strcpy(base, "d");
 		}
@@ -1598,7 +1614,7 @@ formateur(struct_processus *s_etat_proce
 -- Base octale -----------------------------------------------------------------
 */
 
-			sprintf(tampon, "%llo", (*((logical8 *)
+			sprintf(tampon, "%llo", (*((unsigned long long *)
 					((*s_objet).objet))) & masque_binaire);
 			strcpy(base, "o");
 		}
@@ -1609,7 +1625,7 @@ formateur(struct_processus *s_etat_proce
 -- Bases hexadécimale et binaire -----------------------------------------------
 */
 
-			sprintf(tampon, "%llX", (*((logical8 *)
+			sprintf(tampon, "%llX", (*((unsigned long long *)
 					((*s_objet).objet))) & masque_binaire);
 
 			if (test_cfsf(s_etat_processus, 43) == d_vrai)