--- rpl/src/rpl.c	2013/02/27 17:11:45	1.135
+++ rpl/src/rpl.c	2013/03/21 11:30:31	1.136
@@ -51,6 +51,8 @@ rplinit(int argc, char *argv[], char *en
 	int									erreur_historique;
 	int									option_P;
 
+	integer8							i;
+
 	logical1							core;
 	logical1							debug;
 	logical1							erreur_fichier;
@@ -106,7 +108,6 @@ rplinit(int argc, char *argv[], char *en
 	unsigned char						*ptr;
 	unsigned char						*tampon;
 
-	unsigned long						i;
 	unsigned long						unite_fichier;
 
 	void								*l_element_courant;
@@ -219,7 +220,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	if ((arg_exec = malloc((argc + 1) * sizeof(char *))) == NULL)
+	if ((arg_exec = malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL)
 	{
 #		ifndef SEMAPHORES_NOMMES
 		sem_post(&semaphore_gestionnaires_signaux);
@@ -241,7 +242,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	for(i = 0; i < (unsigned long) argc; i++)
+	for(i = 0; i < argc; i++)
 	{
 		arg_exec[i] = argv[i];
 	}
@@ -2253,7 +2254,7 @@ rplinit(int argc, char *argv[], char *en
 							}
 
 							(*s_etat_processus).longueur_definitions_chainees =
-									strlen((*s_etat_processus)
+									(integer8) strlen((*s_etat_processus)
 									.definitions_chainees);
 
 							break;
@@ -5380,8 +5381,7 @@ rplinit(int argc, char *argv[], char *en
 						l_element_courant = (void *)
 								(*s_etat_processus).l_base_pile_processus;
 
-						for(i = 0; i < (unsigned long)
-								(*(*((struct_processus_fils *)
+						for(i = 0; i < (*(*((struct_processus_fils *)
 								(*(*((struct_liste_chainee *)
 								l_element_courant)).donnee).objet)).thread)
 								.nombre_objets_dans_pipe; i++)
@@ -5721,8 +5721,9 @@ rplinit(int argc, char *argv[], char *en
 						{
 							free((*resultats));
 
-							if (((*resultats) = malloc(((*s_etat_processus)
-									.hauteur_pile_operationnelle + 1)
+							if (((*resultats) = malloc(((size_t)
+									((*s_etat_processus)
+									.hauteur_pile_operationnelle + 1))
 									* sizeof(unsigned char **))) != NULL)
 							{
 								(*resultats)[(*s_etat_processus)