--- rpl/src/compilation.c	2012/09/15 12:57:09	1.48
+++ rpl/src/compilation.c	2012/09/29 17:53:02	1.49
@@ -364,7 +364,7 @@ analyse_syntaxique(struct_processus *s_e
 	enum t_condition	{ AN_IF = 1, AN_IFERR, AN_THEN, AN_ELSE, AN_ELSEIF,
 						AN_END, AN_DO, AN_UNTIL, AN_WHILE, AN_REPEAT, AN_SELECT,
 						AN_CASE, AN_DEFAULT, AN_UP, AN_DOWN, AN_FOR, AN_START,
-						AN_NEXT, AN_STEP, AN_CRITICAL };
+						AN_NEXT, AN_STEP, AN_CRITICAL, AN_FORALL };
 
 	unsigned char		*instruction;
 	unsigned char		registre;
@@ -767,9 +767,23 @@ analyse_syntaxique(struct_processus *s_e
 
 			l_base_pile = l_nouvelle_base_pile;
 		}
+		else if (strcmp(instruction, "FORALL") == 0)
+		{
+			if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile,
+					AN_FORALL)) == NULL)
+			{
+				liberation_analyse(l_base_pile);
+
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			l_base_pile = l_nouvelle_base_pile;
+		}
 		else if (strcmp(instruction, "NEXT") == 0)
 		{
 			if ((test_analyse(l_base_pile, AN_FOR) == d_faux) &&
+					(test_analyse(l_base_pile, AN_FORALL) == d_faux) &&
 					(test_analyse(l_base_pile, AN_START) == d_faux))
 			{
 				liberation_analyse(l_base_pile);