--- rpl/src/instructions_d6.c	2013/02/27 14:12:57	1.45
+++ rpl/src/instructions_d6.c	2013/02/27 17:11:42	1.47
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -612,7 +612,6 @@ instruction_digest(struct_processus *s_e
 
 	logical1					somme_invalide;
 
-	long						i;
 	long						longueur_chaine;
 
 	struct_liste_chainee		*l_element_courant;
@@ -628,6 +627,7 @@ 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;