--- rpl/src/instructions_d6.c	2013/02/27 17:11:42	1.47
+++ rpl/src/instructions_d6.c	2013/03/20 17:11:44	1.48
@@ -339,8 +339,8 @@ instruction_diag_fleche(struct_processus
 	struct_objet				*s_objet_argument;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -409,8 +409,8 @@ instruction_diag_fleche(struct_processus
 				(*((struct_matrice *) (*s_objet_argument).objet)).nombre_lignes;
 
 		if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau
-				= malloc((*((struct_vecteur *) (*s_objet_resultat).objet))
-				.taille * sizeof(integer8))) == NULL)
+				= malloc(((size_t) (*((struct_vecteur *) (*s_objet_resultat)
+				.objet)).taille) * sizeof(integer8))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -467,8 +467,8 @@ instruction_diag_fleche(struct_processus
 				(*((struct_matrice *) (*s_objet_argument).objet)).nombre_lignes;
 
 		if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau
-				= malloc((*((struct_vecteur *) (*s_objet_resultat).objet))
-				.taille * sizeof(real8))) == NULL)
+				= malloc(((size_t) (*((struct_vecteur *) (*s_objet_resultat)
+				.objet)).taille) * sizeof(real8))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -525,8 +525,8 @@ instruction_diag_fleche(struct_processus
 				(*((struct_matrice *) (*s_objet_argument).objet)).nombre_lignes;
 
 		if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau
-				= malloc((*((struct_vecteur *) (*s_objet_resultat).objet))
-				.taille * sizeof(complex16))) == NULL)
+				= malloc(((size_t) (*((struct_vecteur *) (*s_objet_resultat)
+				.objet)).taille) * sizeof(complex16))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -610,9 +610,18 @@ instruction_digest(struct_processus *s_e
 	const EVP_MD				*EVP_sum;
 	const EVP_CIPHER			*EVP_chiffrement;
 
-	logical1					somme_invalide;
+	int							i;
+	int							longueur_bloc;
+	int							longueur_somme;
+
+	integer8					longueur_chaine;
+	integer8					longueur_clef;
+	integer8					longueur_clef_attendue;
+	integer8					longueur_clef_max;
+	integer8					longueur_clef_min;
+	integer8					longueur_tampon;
 
-	long						longueur_chaine;
+	logical1					somme_invalide;
 
 	struct_liste_chainee		*l_element_courant;
 
@@ -627,16 +636,6 @@ instruction_digest(struct_processus *s_e
 	unsigned char				*tampon;
 	unsigned char				*vecteur_initialisation;
 
-	unsigned int				i;
-	unsigned int				longueur_bloc;
-	unsigned int				longueur_somme;
-	unsigned int				longueur_tampon;
-
-	unsigned long				longueur_clef;
-	unsigned long				longueur_clef_attendue;
-	unsigned long				longueur_clef_max;
-	unsigned long				longueur_clef_min;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -1356,7 +1355,7 @@ instruction_digest(struct_processus *s_e
 			return;
 		}
 
-		if (EVP_DigestUpdate(&contexte, chaine, longueur_chaine) != 1)
+		if (EVP_DigestUpdate(&contexte, chaine, (size_t) longueur_chaine) != 1)
 		{
 			free(chaine);
 			EVP_MD_CTX_cleanup(&contexte);
@@ -2268,7 +2267,7 @@ instruction_digest(struct_processus *s_e
 				}
 			}
 
-			if ((vecteur_initialisation = malloc(longueur_clef *
+			if ((vecteur_initialisation = malloc(((size_t) longueur_clef) *
 					sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme =
@@ -2276,7 +2275,7 @@ instruction_digest(struct_processus *s_e
 				return;
 			}
 
-			memset(vecteur_initialisation, 0, longueur_clef);
+			memset(vecteur_initialisation, 0, (size_t) longueur_clef);
 
 			if ((tampon = chiffrement(EVP_chiffrement, d_vrai,
 					chaine, longueur_chaine, clef, longueur_clef,
@@ -2346,16 +2345,16 @@ instruction_digest(struct_processus *s_e
 				longueur_tampon = longueur_clef;
 				tampon = clef;
 
-				if ((clef = malloc(longueur_bloc * sizeof(unsigned char)))
-						== NULL)
+				if ((clef = malloc(((size_t) longueur_bloc) *
+						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
 					return;
 				}
 
-				memset(clef, 0, longueur_bloc);
-				memcpy(clef, tampon, longueur_tampon);
+				memset(clef, 0, (size_t) longueur_bloc);
+				memcpy(clef, tampon, (size_t) longueur_tampon);
 				longueur_clef = longueur_bloc;
 				free(tampon);
 			}
@@ -2364,22 +2363,22 @@ instruction_digest(struct_processus *s_e
 				longueur_tampon = longueur_clef;
 				tampon = clef;
 
-				if ((clef = malloc(longueur_bloc * sizeof(unsigned char)))
-						== NULL)
+				if ((clef = malloc(((size_t) longueur_bloc) *
+						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
 					return;
 				}
 
-				memcpy(clef, tampon, longueur_bloc);
+				memcpy(clef, tampon, (size_t) longueur_bloc);
 				longueur_clef = longueur_bloc;
 				free(tampon);
 			}
 
 			for(i = 0; i < longueur_bloc; i++)
 			{
-				clef[i] ^= 0x36;
+				clef[i] ^= (unsigned char) 0x36;
 			}
 
 			if ((chaine = formateur_flux(s_etat_processus, (unsigned char *)
@@ -2393,15 +2392,15 @@ instruction_digest(struct_processus *s_e
 				return;
 			}
 
-			if ((tampon = malloc((longueur_bloc + longueur_chaine) *
+			if ((tampon = malloc(((size_t) (longueur_bloc + longueur_chaine)) *
 					sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			memcpy(tampon, clef, longueur_bloc);
-			memcpy(tampon + longueur_bloc, chaine, longueur_chaine);
+			memcpy(tampon, clef, (size_t) longueur_bloc);
+			memcpy(tampon + longueur_bloc, chaine, (size_t) longueur_chaine);
 			longueur_tampon = longueur_bloc + longueur_chaine;
 
 			if (EVP_DigestInit(&contexte, EVP_sum) != 1)
@@ -2419,7 +2418,8 @@ instruction_digest(struct_processus *s_e
 				return;
 			}
 
-			if (EVP_DigestUpdate(&contexte, tampon, longueur_tampon) != 1)
+			if (EVP_DigestUpdate(&contexte, tampon, (size_t) longueur_tampon)
+					!= 1)
 			{
 				free(tampon);
 				free(clef);
@@ -2455,15 +2455,15 @@ instruction_digest(struct_processus *s_e
 				clef[i] ^= (0x36 ^ 0x5c);
 			}
 
-			if ((tampon = malloc((longueur_bloc + longueur_somme) *
+			if ((tampon = malloc(((size_t) (longueur_bloc + longueur_somme)) *
 					sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
 			}
 
-			memcpy(tampon, clef, longueur_bloc);
-			memcpy(tampon + longueur_bloc, somme, longueur_somme);
+			memcpy(tampon, clef, (size_t) longueur_bloc);
+			memcpy(tampon + longueur_bloc, somme, (size_t) longueur_somme);
 			longueur_tampon = longueur_bloc + longueur_somme;
 
 			if (EVP_DigestInit(&contexte, EVP_sum) != 1)
@@ -2481,7 +2481,8 @@ instruction_digest(struct_processus *s_e
 				return;
 			}
 
-			if (EVP_DigestUpdate(&contexte, tampon, longueur_tampon) != 1)
+			if (EVP_DigestUpdate(&contexte, tampon, (size_t) longueur_tampon)
+					!= 1)
 			{
 				free(tampon);
 				free(clef);