--- rpl/src/profilage.c	2010/01/27 22:22:17	1.2
+++ rpl/src/profilage.c	2013/03/21 11:30:31	1.41
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
-  Copyright (C) 1989-2010 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.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -300,7 +300,7 @@ ecriture_profil(struct_processus *s_etat
 		l_element_courant = (*l_element_courant).suivant;
 	}
 
-	total = cumul.tv_sec + (((double) cumul.tv_usec) / 1000000);
+	total = ((double) cumul.tv_sec) + (((double) cumul.tv_usec) / 1000000);
 
 	// Création du fichier
 
@@ -364,13 +364,13 @@ ecriture_profil(struct_processus *s_etat
 
 	while(l_element_courant != NULL)
 	{
-		temps = (*l_element_courant).cumul.tv_sec +
+		temps = ((double) (*l_element_courant).cumul.tv_sec) +
 				(((double) (*l_element_courant).cumul.tv_usec) / 1000000);
 		fraction = 100 * (temps / total);
 
 		if (fprintf(fichier, "<%012lld> %15.2fs (%6.2f%%/%6.2f%%) : %s\n",
-				(*l_element_courant).nombre_appels,
-				temps, fraction, fraction / (*l_element_courant).nombre_appels,
+				(*l_element_courant).nombre_appels, temps, fraction,
+				fraction / ((double) (*l_element_courant).nombre_appels),
 				(*l_element_courant).fonction) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;