--- rpl/src/formateur_fichiers.c	2013/03/24 14:09:26	1.67
+++ rpl/src/formateur_fichiers.c	2013/04/18 15:44:39	1.70
@@ -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.
@@ -19,6 +19,7 @@
 ================================================================================
 */
 
+
 #define DEBUG_ERREURS
 #include "rpl-conv.h"
 
@@ -1000,7 +1001,7 @@ formateur_fichier(struct_processus *s_et
 
 			if (format_sortie == 'N')
 			{
-				sprintf(tampon, "%llX", (*((logical8 *)
+				sprintf(tampon, "%llX", (unsigned long long) (*((logical8 *)
 						((*s_objet).objet))));
 				strcpy(base, "h");
 			}
@@ -1010,8 +1011,8 @@ formateur_fichier(struct_processus *s_et
 				{
 					case 2:
 					{
-						sprintf(tampon, "%llX", (*((logical8 *)
-								((*s_objet).objet))));
+						sprintf(tampon, "%llX", (unsigned long long)
+								(*((logical8 *) ((*s_objet).objet))));
 
 						chaine = (unsigned char *) malloc((strlen(tampon) + 1)
 								* sizeof(unsigned char));
@@ -1120,7 +1121,7 @@ formateur_fichier(struct_processus *s_et
 
 					case 8:
 					{
-						sprintf(tampon, "%llo", (*((logical8 *)
+						sprintf(tampon, "%llo", (*((unsigned long long *)
 								((*s_objet).objet))));
 						strcpy(base, "o");
 						break;
@@ -1128,7 +1129,7 @@ formateur_fichier(struct_processus *s_et
 
 					case 10:
 					{
-						sprintf(tampon, "%llu", (*((logical8 *)
+						sprintf(tampon, "%llu", (*((unsigned long long *)
 								((*s_objet).objet))));
 						strcpy(base, "d");
 						break;
@@ -1136,8 +1137,8 @@ formateur_fichier(struct_processus *s_et
 
 					case 16:
 					{
-						sprintf(tampon, "%llX", (*((logical8 *)
-								((*s_objet).objet))));
+						sprintf(tampon, "%llX", (unsigned long long)
+								(*((logical8 *) ((*s_objet).objet))));
 						strcpy(base, "h");
 						break;
 					}