--- rpl/src/compilation.c	2012/08/22 10:47:13	1.47
+++ rpl/src/compilation.c	2012/09/15 12:57:09	1.48
@@ -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_NEXT, AN_STEP, AN_CRITICAL };
 
 	unsigned char		*instruction;
 	unsigned char		registre;
@@ -514,6 +514,19 @@ analyse_syntaxique(struct_processus *s_e
 
 			l_base_pile = l_nouvelle_base_pile;
 		}
+		else if (strcmp(instruction, "CRITICAL") == 0)
+		{
+			if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile,
+					AN_CRITICAL)) == 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, "THEN") == 0)
 		{
 			if ((test_analyse(l_base_pile, AN_IF) == d_faux) &&
@@ -572,6 +585,7 @@ analyse_syntaxique(struct_processus *s_e
 					(test_analyse(l_base_pile, AN_DEFAULT) == d_faux) &&
 					(test_analyse(l_base_pile, AN_SELECT) == d_faux) &&
 					(test_analyse(l_base_pile, AN_THEN) == d_faux) &&
+					(test_analyse(l_base_pile, AN_CRITICAL) == d_faux) &&
 					(test_analyse(l_base_pile, AN_ELSE) == d_faux))
 			{
 				liberation_analyse(l_base_pile);