--- rpl/src/formateur.c	2013/03/20 17:11:43	1.58
+++ rpl/src/formateur.c	2013/04/17 13:53:17	1.63
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
+  RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -103,7 +103,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "@ %016lX", (*((integer8 *)
+		if (alsprintf(&chaine, "@ %016llX", (*((unsigned long long *)
 				((*s_objet).objet)))) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -119,8 +119,8 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Library $ %016lX [%s]",
-				(integer8) (*((struct_bibliotheque *)
+		if (alsprintf(&chaine, "Library $ %016llX [%s]",
+				(unsigned long long) (*((struct_bibliotheque *)
 				(*s_objet).objet)).descripteur, (*((struct_bibliotheque *)
 				(*s_objet).objet)).nom) < 0)
 		{
@@ -137,7 +137,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Semaphore $ %016lX '%s'",
+		if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
 				&((*((struct_semaphore *) (*s_objet).objet)).semaphore),
 				(*((struct_semaphore *) (*s_objet).objet)).nom) < 0)
 		{
@@ -158,8 +158,8 @@ formateur(struct_processus *s_etat_proce
 				"MYSQL") == 0)
 		{
 #			ifdef MYSQL_SUPPORT
-			if (alsprintf(&chaine, "Sql $ %016lX (%s)",
-					(long unsigned int) (*((struct_connecteur_sql *)
+			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
+					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.mysql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -185,8 +185,8 @@ formateur(struct_processus *s_etat_proce
 				"POSTGRESQL") == 0)
 		{
 #			ifdef POSTGRESQL_SUPPORT
-			if (alsprintf(&chaine, "Sql $ %016lX (%s)",
-					(long unsigned int) (*((struct_connecteur_sql *)
+			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
+					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.postgresql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -227,7 +227,7 @@ formateur(struct_processus *s_etat_proce
 		if ((*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 				.processus_detache == d_vrai)
 		{
-			if (alsprintf(&chaine, "Process $ %016lX", (integer8)
+			if (alsprintf(&chaine, "Process $ %016llX", (unsigned long long)
 					(*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 					.pid) < 0)
 			{
@@ -237,10 +237,10 @@ formateur(struct_processus *s_etat_proce
 		}
 		else
 		{
-			if (alsprintf(&chaine, "Light weight process $ %016lX/%016lX",
-					(integer8) (*(*((struct_processus_fils *)
+			if (alsprintf(&chaine, "Light weight process $ %016llX/%016llX",
+					(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 +257,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "File $ %016lX", (unsigned long)
+		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,9 +389,8 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Socket $ %016lX",
-				(unsigned long) (*((struct_socket *)
-				((*s_objet).objet))).socket) < 0)
+		if (alsprintf(&chaine, "Socket $ %016llX", (unsigned long long)
+				(*((struct_socket *) ((*s_objet).objet))).socket) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
@@ -1587,7 +1586,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");
 		}
@@ -1599,7 +1598,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");
 		}
@@ -1610,7 +1609,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)
@@ -1954,7 +1953,7 @@ formateur(struct_processus *s_etat_proce
 				.nombre_elements; i++)
 		{
 			chaine_sauvegarde = chaine;
-			chaine_formatee = formateur(s_etat_processus, offset,
+			chaine_formatee = formateur(s_etat_processus, (long) offset,
 					(*((struct_tableau *) (*s_objet).objet)).elements[i]);
 
 			if (chaine_formatee == NULL)
@@ -2158,7 +2157,7 @@ formateur(struct_processus *s_etat_proce
 		while(l_element_courant != NULL)
 		{
 			chaine_sauvegarde = chaine;
-			chaine_formatee = formateur(s_etat_processus, offset,
+			chaine_formatee = formateur(s_etat_processus, (long) offset,
 					(*l_element_courant).donnee);
 
 			if (chaine_formatee == NULL)
@@ -2357,7 +2356,7 @@ formateur(struct_processus *s_etat_proce
 			strcpy(chaine, "[[");
 			offset = ((integer8) strlen(chaine)) + offset_initial - 1;
 
-			if ((longueurs_maximales = malloc(sizeof(unsigned long) * 2 *
+			if ((longueurs_maximales = malloc(sizeof(integer8) * 2 *
 					((size_t) nombre_colonnes))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme =
@@ -2593,7 +2592,7 @@ formateur(struct_processus *s_etat_proce
 			strcpy(chaine, "[[");
 			offset = ((integer8) strlen(chaine)) + offset_initial - 1;
 
-			if ((longueurs_maximales = malloc(sizeof(unsigned long) *
+			if ((longueurs_maximales = malloc(sizeof(integer8) *
 					((size_t) nombre_colonnes))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -2785,7 +2784,7 @@ formateur(struct_processus *s_etat_proce
 			strcpy(chaine, "[[");
 			offset = ((integer8) strlen(chaine)) + offset_initial - 1;
 
-			if ((longueurs_maximales = malloc(sizeof(unsigned long) * 2 *
+			if ((longueurs_maximales = malloc(sizeof(integer8) * 2 *
 					((size_t) nombre_colonnes))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -2998,9 +2997,9 @@ formateur(struct_processus *s_etat_proce
 	}
 	else if ((*s_objet).type == MTX)
 	{
-		if (alsprintf(&chaine, "Mutex $ %016lX owned by $ %016lX",
-				(unsigned long) &((*((struct_mutex *) (*s_objet).objet)).mutex),
-				(unsigned long) (*((struct_mutex *) (*s_objet).objet)).tid) < 0)
+		if (alsprintf(&chaine, "Mutex $ %016llX owned by $ %016llX",
+				&((*((struct_mutex *) (*s_objet).objet)).mutex),
+				(logical8) (*((struct_mutex *) (*s_objet).objet)).tid) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);