--- rpl/src/chainage.c	2010/02/10 10:14:18	1.3
+++ rpl/src/chainage.c	2010/03/04 17:42:46	1.5
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.11
+  RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -99,22 +99,48 @@ chainage(struct_processus *s_etat_proces
 			return(d_erreur);
 		}
 
-		if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
-				(2 * strlen((*s_etat_processus).nom_fichier_source)) +
-				(4 * strlen(d_exec_path)) +
-				strlen(nom_fichier_temporaire) + strlen(instructions) - 11) *
-				sizeof(unsigned char))) == NULL)
+		if ((*s_etat_processus).rpl_home == NULL)
 		{
-			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-
-			free(nom_fichier_temporaire);
-			return(d_erreur);
+			if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
+					(2 * strlen((*s_etat_processus).nom_fichier_source)) +
+					(4 * strlen(d_exec_path)) +
+					strlen(nom_fichier_temporaire) + strlen(instructions) - 11)
+					* sizeof(unsigned char))) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+
+				free(nom_fichier_temporaire);
+				return(d_erreur);
+			}
+
+			sprintf(commande, instructions,
+					(*s_etat_processus).nom_fichier_source,
+					d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path,
+					d_exec_path, (*s_etat_processus).nom_fichier_source,
+					nom_fichier_temporaire);
+		}
+		else
+		{
+			if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
+					(2 * strlen((*s_etat_processus).nom_fichier_source)) +
+					(4 * strlen((*s_etat_processus).rpl_home)) +
+					strlen(nom_fichier_temporaire) + strlen(instructions) - 11)
+					* sizeof(unsigned char))) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+
+				free(nom_fichier_temporaire);
+				return(d_erreur);
+			}
+
+			sprintf(commande, instructions,
+					(*s_etat_processus).nom_fichier_source,
+					(*s_etat_processus).rpl_home, ds_preprocesseur,
+					(*s_etat_processus).rpl_home, (*s_etat_processus).rpl_home,
+					(*s_etat_processus).rpl_home,
+					(*s_etat_processus).nom_fichier_source,
+					nom_fichier_temporaire);
 		}
-
-		sprintf(commande, instructions, (*s_etat_processus).nom_fichier_source,
-				d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path,
-				d_exec_path, (*s_etat_processus).nom_fichier_source,
-				nom_fichier_temporaire);
 
 		if ((f_source = popen(commande, "r")) == NULL)
 		{