--- rpl/src/gestion_fichiers.c	2011/12/05 17:45:00	1.37
+++ rpl/src/gestion_fichiers.c	2013/12/03 09:36:11	1.55
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.17
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -77,8 +77,8 @@ creation_nom_fichier(struct_processus *s
 
 	do
 	{
-		sprintf(tampon, "RPL-%lu-%lu-%lu", (unsigned long) getpid(),
-				(unsigned long) pthread_self(), ordre);
+		sprintf(tampon, "RPL-%llu-%llu-%lu", (unsigned long long) getpid(),
+				(unsigned long long) pthread_self(), ordre);
 
 		if (chemin == NULL)
 		{
@@ -222,7 +222,7 @@ recherche_chemin_fichiers_temporaires(st
 	{
 		if (chemins[i][0] == '$')
 		{
-			candidat = getenv("RPL_TMP_PATH");
+			candidat = getenv(chemins[i] + 1);
 
 			if (candidat != NULL)
 			{
@@ -287,7 +287,7 @@ recherche_chemin_fichiers_temporaires(st
 		i++;
 	}
 
-	return chemin;
+	return(chemin);
 }
 
 
@@ -477,8 +477,8 @@ initialisation_controle(struct_processus
 			return(d_erreur);
 		}
 
-		if (sqlite3_prepare_v2(sqlite, commande, strlen(commande), &ppStmt,
-				&queue) != SQLITE_OK)
+		if (sqlite3_prepare_v2(sqlite, commande, (int) strlen(commande),
+				&ppStmt, &queue) != SQLITE_OK)
 		{
 			free(commande);
 			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;