--- rpl/src/instructions_r6.c	2012/12/19 09:58:26	1.45
+++ rpl/src/instructions_r6.c	2013/03/21 16:31:59	1.50
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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;
@@ -793,7 +793,8 @@ instruction_rdate(struct_processus *s_et
 	if ((*s_objet_argument).type == INT)
 	{
 		gettimeofday(&horodatage, NULL);
-		horodatage.tv_sec += (*((integer8 *) (*s_objet_argument).objet));
+		horodatage.tv_sec += (time_t) (*((integer8 *)
+				(*s_objet_argument).objet));
 
 		if (horodatage.tv_sec < 0)
 		{
@@ -1205,6 +1206,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 +1216,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 +1250,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;
@@ -1316,7 +1316,7 @@ instruction_rdgn(struct_processus *s_eta
 			premier = j;
 		}
 
-		for(i = 0; i < (long) nombre_types; i++)
+		for(i = 0; i < nombre_types; i++)
 		{
             printf("  - %s\n", types_generateurs[i]);
 			free(types_generateurs[i]);
@@ -1714,13 +1714,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 +1838,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 +1849,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 +1858,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 +1878,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);