--- rpl/src/formateur_fichiers.c	2013/03/23 18:00:09	1.66
+++ rpl/src/formateur_fichiers.c	2013/04/17 13:53:17	1.69
@@ -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"
 
@@ -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;
@@ -4078,11 +4079,15 @@ formateur_fichier(struct_processus *s_et
 				memcpy(&(chaine[longueur_totale]), tampon, 1);
 				longueur_totale += 1;
 			}
-			else if (longueur_totale < (((integer8) 1) << 16))
+			else
 			{
 				longueur_totale++;
 
-				for(i = 0; i < 7; i++)
+				// i = { 0 (16 bits) 2 (32 bits) 6 (64 bits) }
+
+				i = 0;
+
+				for(;;)
 				{
 					if ((longueur_totale < (((integer8) 1) << (8 * (i + 2))))
 							|| (i == 6))
@@ -4106,9 +4111,29 @@ formateur_fichier(struct_processus *s_et
 								| ((i + 1) << 1));
 						break;
 					}
+
+					switch(i)
+					{
+						case 0 :
+						{
+							i = 2;
+							break;
+						}
+
+						case 2 :
+						{
+							i = 6;
+							break;
+						}
+					}
 				}
 
-				if ((chaine = realloc(chaine, (((size_t) longueur_totale) + 3)
+				// i = 0 => +3 (16 bits)
+				// i = 2 => +5 (32 bits)
+				// i = 6 => +9 (64 bits)
+
+				if ((chaine = realloc(chaine, (((size_t) longueur_totale)
+						+ ((i == 0) ? 3 : ((i == 2) ? 5 : 9)))
 						* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -4119,9 +4144,6 @@ formateur_fichier(struct_processus *s_et
 				memcpy(&(chaine[longueur_totale]), tampon, 3);
 				longueur_totale += 3;
 			}
-			else if (longueur_totale < (((integer8) 1) << 32))
-			{
-			}
 
 			__zone();
 			(*longueur_effective) = longueur_totale;