--- rpl/src/formateur.c	2013/03/20 17:11:43	1.58
+++ rpl/src/formateur.c	2013/03/21 12:07:38	1.59
@@ -120,7 +120,7 @@ formateur(struct_processus *s_etat_proce
 */
 
 		if (alsprintf(&chaine, "Library $ %016lX [%s]",
-				(integer8) (*((struct_bibliotheque *)
+				(logical8) (*((struct_bibliotheque *)
 				(*s_objet).objet)).descripteur, (*((struct_bibliotheque *)
 				(*s_objet).objet)).nom) < 0)
 		{
@@ -159,7 +159,7 @@ formateur(struct_processus *s_etat_proce
 		{
 #			ifdef MYSQL_SUPPORT
 			if (alsprintf(&chaine, "Sql $ %016lX (%s)",
-					(long unsigned int) (*((struct_connecteur_sql *)
+					(logical8) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.mysql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -186,7 +186,7 @@ formateur(struct_processus *s_etat_proce
 		{
 #			ifdef POSTGRESQL_SUPPORT
 			if (alsprintf(&chaine, "Sql $ %016lX (%s)",
-					(long unsigned int) (*((struct_connecteur_sql *)
+					(logical8) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.postgresql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
 			{
@@ -257,7 +257,7 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "File $ %016lX", (unsigned long)
+		if (alsprintf(&chaine, "File $ %016lX", (logical8)
 				(*((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 $ %016lX", (integer8)
+				(*((struct_socket *) ((*s_objet).objet))).socket) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(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;
@@ -2999,8 +2998,8 @@ 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)
+				(logical8) &((*((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);