--- rpl/src/chainage.c	2013/02/27 17:11:39	1.51
+++ rpl/src/chainage.c	2013/03/20 17:11:43	1.52
@@ -45,16 +45,16 @@ chainage(struct_processus *s_etat_proces
 
 	int						caractere;
 	int						erreur;
-	int						erreur_os;
 
 	logical1				drapeau_fin;
+	logical1				erreur_os;
 	logical1				existence;
 	logical1				initialisation;
 	logical1				ouverture;
 	logical1				presence_chaine;
 
-	long					i;
-	long					nombre_caracteres_source;
+	integer8				i;
+	integer8				nombre_caracteres_source;
 
 	unsigned char			*commande;
 	unsigned char			*executable_candidat;
@@ -333,7 +333,8 @@ chainage(struct_processus *s_etat_proces
 		}
 
 		(*s_etat_processus).definitions_chainees = (unsigned char *)
-				malloc((nombre_caracteres_source + 1) * sizeof(unsigned char));
+				malloc((((size_t) nombre_caracteres_source) + 1)
+				* sizeof(unsigned char));
 		
 		if ((*s_etat_processus).definitions_chainees == NULL)
 		{
@@ -416,8 +417,8 @@ chainage(struct_processus *s_etat_proces
 						}
 					}
 
-					if ((((*s_etat_processus).definitions_chainees)[i] =
-							caractere) == '\"')
+					if (((int) (((*s_etat_processus).definitions_chainees)[i] =
+							((unsigned char) caractere))) == '\"')
 					{
 						if (i > 0)
 						{
@@ -453,7 +454,7 @@ chainage(struct_processus *s_etat_proces
 		}
 
 		(*s_etat_processus).longueur_definitions_chainees =
-				strlen((*s_etat_processus).definitions_chainees);
+				(integer8) strlen((*s_etat_processus).definitions_chainees);
 
 		if (fclose(f_source) != 0)
 		{
@@ -487,8 +488,8 @@ chainage(struct_processus *s_etat_proces
 
 	if (((*s_etat_processus).definitions_chainees =
 			realloc((*s_etat_processus).definitions_chainees,
-			((*s_etat_processus).longueur_definitions_chainees + 1) *
-			sizeof(unsigned char))) == NULL)
+			(((size_t) (*s_etat_processus).longueur_definitions_chainees) + 1)
+			* sizeof(unsigned char))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(d_erreur);