--- rpl/src/analyse_notation_algebrique.c	2013/03/20 17:11:43	1.43
+++ rpl/src/analyse_notation_algebrique.c	2013/03/21 16:31:58	1.44
@@ -57,8 +57,6 @@ analyse_algebrique(struct_processus *s_e
 	logical1							presence_fonction;
 	logical1							presence_liste;
 
-	long								k;
-
 	unsigned char						*chaine_arguments;
 	unsigned char						*chaine_centrale;
 	unsigned char						*chaine_droite;
@@ -88,6 +86,7 @@ analyse_algebrique(struct_processus *s_e
 	integer8							fin_zone_algebrique;
 	integer8							i;
 	integer8							j;
+	integer8							k;
 	integer8							longueur_chaine;
 	integer8							longueur_tampon;
 	integer8							niveau;
@@ -1098,8 +1097,8 @@ analyse_algebrique(struct_processus *s_e
 unsigned char *
 purification_chaine(unsigned char *chaine)
 {
-	long						i;
-	long						j;
+	integer8					i;
+	integer8					j;
 
 	unsigned char				*chaine_purifiee;
 
@@ -1137,8 +1136,6 @@ purification_chaine(unsigned char *chain
 logical1
 test_expression_rpn(unsigned char *chaine)
 {
-	long					j;
-
 	int						t;
 	int						t0;
 	int						t1;
@@ -1149,6 +1146,7 @@ test_expression_rpn(unsigned char *chain
 	integer8				compteur;
 	integer8				longueur_chaine;
 	integer8				i;
+	integer8				j;
 	integer8				niveau;
 
 	/*