--- rpl/src/instructions_a3.c	2013/02/27 17:11:41	1.40
+++ rpl/src/instructions_a3.c	2013/03/20 17:11:44	1.41
@@ -38,14 +38,14 @@
 void
 instruction_array_fleche(struct_processus *s_etat_processus)
 {
+	integer8						i;
+	integer8						j;
+
 	struct_liste_chainee			*l_element_courant;
 
 	struct_objet					*s_objet_source;
 	struct_objet					*s_objet_elementaire;
 
-	unsigned long					i;
-	unsigned long					j;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')