--- rpl/src/instructions_r6.c	2013/02/27 17:11:44	1.47
+++ rpl/src/instructions_r6.c	2013/03/20 22:24:37	1.48
@@ -492,8 +492,8 @@ instruction_row_fleche(struct_processus
 	struct_objet				*s_objet;
 	struct_objet				*s_objet_elementaire;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -565,9 +565,9 @@ instruction_row_fleche(struct_processus
 			}
 
 			if ((((integer8 **) (*((struct_matrice *) (*s_objet_elementaire)
-					.objet)).tableau)[0] = malloc((*((struct_matrice *)
-					(*s_objet_elementaire).objet)).nombre_colonnes *
-					sizeof(integer8))) == NULL)
+					.objet)).tableau)[0] = malloc(((size_t)
+					(*((struct_matrice *) (*s_objet_elementaire).objet))
+					.nombre_colonnes) * sizeof(integer8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme =
 						d_es_allocation_memoire;
@@ -617,9 +617,9 @@ instruction_row_fleche(struct_processus
 			}
 
 			if ((((real8 **) (*((struct_matrice *) (*s_objet_elementaire)
-					.objet)).tableau)[0] = malloc((*((struct_matrice *)
-					(*s_objet_elementaire).objet)).nombre_colonnes *
-					sizeof(real8))) == NULL)
+					.objet)).tableau)[0] = malloc(((size_t)
+					(*((struct_matrice *) (*s_objet_elementaire).objet))
+					.nombre_colonnes) * sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme =
 						d_es_allocation_memoire;
@@ -669,9 +669,9 @@ instruction_row_fleche(struct_processus
 			}
 
 			if ((((complex16 **) (*((struct_matrice *) (*s_objet_elementaire)
-					.objet)).tableau)[0] = malloc((*((struct_matrice *)
-					(*s_objet_elementaire).objet)).nombre_colonnes *
-					sizeof(complex16))) == NULL)
+					.objet)).tableau)[0] = malloc(((size_t)
+					(*((struct_matrice *) (*s_objet_elementaire).objet))
+					.nombre_colonnes) * sizeof(complex16))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme =
 						d_es_allocation_memoire;
@@ -1205,6 +1205,7 @@ instruction_rdgn(struct_processus *s_eta
 	long						dernier;
 	long						i;
 	long						j;
+	long						nombre_types;
 	long						premier;
 
     struct_objet                *s_objet_argument;
@@ -1214,8 +1215,6 @@ instruction_rdgn(struct_processus *s_eta
     unsigned char               *requete;
 	unsigned char				**types_generateurs;
 
-	unsigned long				nombre_types;
-
     (*s_etat_processus).erreur_execution = d_ex;
 
     types = gsl_rng_types_setup();
@@ -1250,8 +1249,8 @@ instruction_rdgn(struct_processus *s_eta
         for(nombre_types = 0, type_courant = types;
 				(*type_courant) != NULL; type_courant++, nombre_types++);
 
-		if ((types_generateurs = malloc(nombre_types * sizeof(unsigned char *)))
-				== NULL)
+		if ((types_generateurs = malloc(((size_t) nombre_types) *
+				sizeof(unsigned char *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1714,13 +1713,12 @@ instruction_recode(struct_processus *s_e
 void
 instruction_repl(struct_processus *s_etat_processus)
 {
+	integer8						difference;
+	integer8						difference_ecriture;
+	integer8						difference_lecture;
+	integer8						nombre_occurrences;
 	integer8						position;
 
-	long							difference;
-	long							difference_ecriture;
-	long							difference_lecture;
-	long							nombre_occurrences;
-
 	struct_liste_chainee			*l_element_a_supprimer;
 	struct_liste_chainee			*l_element_courant;
 	struct_liste_chainee			*l_element_courant_2;
@@ -1839,8 +1837,9 @@ instruction_repl(struct_processus *s_eta
 		// Différence est positive si la nouvelle chaîne est plus longue
 		// que la chaîne originelle.
 
-		difference = strlen((unsigned char *) (*s_objet_argument_1).objet)
-				- strlen((unsigned char *) (*s_objet_argument_2).objet);
+		difference = ((integer8) strlen((unsigned char *) (*s_objet_argument_1)
+				.objet)) - ((integer8) strlen((unsigned char *)
+				(*s_objet_argument_2).objet));
 
 		if ((s_objet_resultat = allocation(s_etat_processus, CHN)) == NULL)
 		{
@@ -1849,8 +1848,8 @@ instruction_repl(struct_processus *s_eta
 		}
 
 		if (((*s_objet_resultat).objet = malloc((strlen((unsigned char *)
-				(*s_objet_argument_3).objet) + (nombre_occurrences *
-				difference) + 1) * sizeof(unsigned char))) == NULL)
+				(*s_objet_argument_3).objet) + ((size_t) (nombre_occurrences *
+				difference)) + 1) * sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -1858,9 +1857,9 @@ instruction_repl(struct_processus *s_eta
 
 		pointeur_lecture = (unsigned char *) (*s_objet_argument_3).objet;
 		pointeur_ecriture = (unsigned char *) (*s_objet_resultat).objet;
-		difference_lecture = strlen((unsigned char *)
+		difference_lecture = (integer8) strlen((unsigned char *)
 				(*s_objet_argument_2).objet);
-		difference_ecriture = strlen((unsigned char *)
+		difference_ecriture = (integer8) strlen((unsigned char *)
 				(*s_objet_argument_1).objet);
 
 		for(;;)
@@ -1878,7 +1877,7 @@ instruction_repl(struct_processus *s_eta
 			}
 
 			strncpy(ancien_pointeur_ecriture, ancien_pointeur_lecture,
-					pointeur_lecture - ancien_pointeur_lecture);
+					(size_t) (pointeur_lecture - ancien_pointeur_lecture));
 			strcpy(ancien_pointeur_ecriture +
 					(pointeur_lecture - ancien_pointeur_lecture),
 					(unsigned char *) (*s_objet_argument_1).objet);