--- rpl/src/formateur.c	2011/11/17 22:21:16	1.41
+++ rpl/src/formateur.c	2013/03/16 11:31:41	1.56
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -75,7 +75,6 @@ formateur(struct_processus *s_etat_proce
 	unsigned long				i;
 	unsigned long				j;
 	unsigned long				k;
-	unsigned long				longueur_binaire;
 	unsigned long				longueur_courante;
 	unsigned long				longueur_decimale_courante;
 	unsigned long				*longueurs_maximales;
@@ -94,7 +93,6 @@ formateur(struct_processus *s_etat_proce
 
 	strcpy(base, " ");
 
-	longueur_binaire = 0;
 	masque_binaire = 0;
 
 	if ((*s_objet).type == ADR)
@@ -1580,7 +1578,6 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		longueur_binaire = longueur_entiers_binaires(s_etat_processus);
 		masque_binaire = masque_entiers_binaires(s_etat_processus);
 
 		if ((test_cfsf(s_etat_processus, 43) == d_faux) &&
@@ -2996,8 +2993,9 @@ formateur(struct_processus *s_etat_proce
 	}
 	else if ((*s_objet).type == MTX)
 	{
-		if (alsprintf(&chaine, "Mutex $ %016lX", (unsigned long)
-				&((*((struct_mutex *) (*s_objet).objet)).mutex)) < 0)
+		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)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
@@ -3524,7 +3522,15 @@ formateur_reel(struct_processus *s_etat_
 		}
 		else if (tampon_entier < ((integer8) 0))
 		{
-			exposant = (long) floor(log10(-tampon_entier));
+			if (tampon_entier != INT64_MIN)
+			{
+				exposant = (long) floor(log10(-tampon_entier));
+			}
+			else
+			{
+				tampon_reel = (real8) tampon_entier;
+				exposant = (long) floor(log10(-tampon_reel));
+			}
 		}
 		else
 		{