--- rpl/src/evaluation.c	2012/09/29 17:53:02	1.57
+++ rpl/src/evaluation.c	2012/12/13 16:59:41	1.63
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.10
+  RPL/2 (R) version 4.1.11
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -181,14 +181,6 @@ evaluation(struct_processus *s_etat_proc
 					{
 						// Variable partagée
 
-						if (pthread_mutex_lock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_processus;
-							return(d_erreur);
-						}
-
 						presence_variable_partagee = d_faux;
 
 						if (recherche_variable_partagee(s_etat_processus,
@@ -201,12 +193,9 @@ evaluation(struct_processus *s_etat_proc
 							presence_variable = d_vrai;
 							presence_variable_partagee = d_vrai;
 
-							if ((*((*(*s_etat_processus)
-									.s_liste_variables_partagees).table
-									[(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.position_variable].objet)).type
-									== ADR)
+							if ((*(*(*s_etat_processus)
+									.pointeur_variable_partagee_courante).objet)
+									.type == ADR)
 							{
 								presence_fonction = d_vrai;
 							}
@@ -214,17 +203,15 @@ evaluation(struct_processus *s_etat_proc
 							if ((s_copie_variable_partagee =
 									copie_objet(s_etat_processus,
 									(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.table[(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.position_variable].objet, 'P')) == NULL)
+									.pointeur_variable_partagee_courante).objet,
+									'P')) == NULL)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_allocation_memoire;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -235,8 +222,8 @@ evaluation(struct_processus *s_etat_proc
 							}
 
 							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex))
-									!= 0)
+									.pointeur_variable_partagee_courante)
+									.mutex)) != 0)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_processus;
@@ -248,14 +235,6 @@ evaluation(struct_processus *s_etat_proc
 							(*s_etat_processus).erreur_systeme = d_es;
 							presence_variable = d_faux;
 							presence_variable_partagee = d_faux;
-
-							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex)) != 0)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-								return(d_erreur);
-							}
 						}
 					}
 					else
@@ -309,15 +288,13 @@ evaluation(struct_processus *s_etat_proc
 				(*s_etat_processus).autorisation_empilement_programme = 'N';
 
 				(*(*s_etat_processus).l_base_pile_systeme)
-						.niveau_courant = (*s_etat_processus)
-						.niveau_courant;
+						.niveau_courant = (*s_etat_processus).niveau_courant;
 
 				if (presence_variable_partagee == d_faux)
 				{
 					(*s_etat_processus).position_courante =
-							(*((unsigned long *)
-							((*(*(*s_etat_processus).pointeur_variable_courante)
-							.objet).objet)));
+							(*((unsigned long *) ((*(*(*s_etat_processus)
+							.pointeur_variable_courante).objet).objet)));
 				}
 				else
 				{
@@ -325,14 +302,6 @@ evaluation(struct_processus *s_etat_proc
 							(*((unsigned long *) (*s_copie_variable_partagee)
 							.objet));
 					liberation(s_etat_processus, s_copie_variable_partagee);
-
-					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
-					{
-						(*s_etat_processus).erreur_systeme =
-								d_es_processus;
-						return(d_erreur);
-					}
 				}
 
 				if ((*s_etat_processus).profilage == d_vrai)
@@ -409,17 +378,6 @@ evaluation(struct_processus *s_etat_proc
 
 					if ((*s_etat_processus).erreur_systeme != d_es)
 					{
-						if (presence_variable_partagee == d_vrai)
-						{
-							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex)) != 0)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-								return(d_erreur);
-							}
-						}
-
 						return(d_erreur);
 					}
 				}
@@ -802,10 +760,30 @@ evaluation(struct_processus *s_etat_proc
 							((*s_etat_processus).erreur_systeme == d_es) &&
 							((*s_etat_processus).exception == d_ep))
 					{
+						registre_evaluation_expression_compilee =
+								(*s_etat_processus)
+								.evaluation_expression_compilee;
+
+						if (((*(*s_etat_processus).pointeur_variable_courante)
+								.origine == 'E') && ((*(*s_etat_processus)
+								.pointeur_variable_courante).niveau == 0))
+						{
+							(*s_etat_processus).evaluation_expression_compilee
+									= 'Y';
+						}
+						else
+						{
+							(*s_etat_processus).evaluation_expression_compilee
+									= 'N';
+						}
+
 						analyse(s_etat_processus, (*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
 								.fonction);
 
+						(*s_etat_processus).evaluation_expression_compilee =
+								registre_evaluation_expression_compilee;
+
 						if (type_evaluation == 'I')
 						{
 							(*s_etat_processus).derniere_erreur_evaluation =
@@ -956,6 +934,7 @@ evaluation(struct_processus *s_etat_proc
 													registre_erreur_execution;
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -1057,9 +1036,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -1143,9 +1125,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -1332,6 +1313,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -1420,9 +1402,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -1506,9 +1491,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -1706,6 +1690,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -1802,9 +1787,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -1888,9 +1876,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -2322,13 +2309,6 @@ evaluation(struct_processus *s_etat_proc
 					if ((*(*s_etat_processus).pointeur_variable_courante).objet
 							== NULL)
 					{
-						if (pthread_mutex_lock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_processus;
-						}
-
 						if (recherche_variable_partagee(s_etat_processus,
 								(*(*s_etat_processus)
 								.pointeur_variable_courante).nom,
@@ -2342,21 +2322,12 @@ evaluation(struct_processus *s_etat_proc
 
 							(*(*s_etat_processus).pointeur_variable_courante)
 									.objet = (*(*s_etat_processus)
-									.s_liste_variables_partagees).table
-									[(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.position_variable].objet;
+									.pointeur_variable_partagee_courante)
+									.objet;
 						}
 						else
 						{
 							presence_variable_partagee = d_faux;
-
-							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex)) != 0)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-							}
 						}
 					}
 					else
@@ -2386,8 +2357,8 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -2420,8 +2391,8 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -2454,8 +2425,8 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -2494,8 +2465,8 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -2537,8 +2508,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2574,8 +2545,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2617,8 +2588,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2680,7 +2651,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -2716,7 +2687,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -2753,7 +2724,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -2799,7 +2770,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -2835,8 +2806,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2878,8 +2849,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2921,8 +2892,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -2984,7 +2955,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3019,7 +2990,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3072,7 +3043,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3108,7 +3079,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3151,7 +3122,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3186,7 +3157,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3227,7 +3198,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3265,7 +3236,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3322,7 +3293,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3359,7 +3330,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3401,7 +3372,7 @@ evaluation(struct_processus *s_etat_proc
 
 								if (pthread_mutex_unlock(
 										&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3453,8 +3424,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -3485,7 +3456,7 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3522,7 +3493,7 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees)
+										.pointeur_variable_partagee_courante)
 										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -3557,8 +3528,8 @@ evaluation(struct_processus *s_etat_proc
 										NULL;
 
 								if (pthread_mutex_unlock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
+										.pointeur_variable_partagee_courante)
+										.mutex)) != 0)
 								{
 									(*s_etat_processus).erreur_systeme =
 											d_es_processus;
@@ -3588,7 +3559,8 @@ evaluation(struct_processus *s_etat_proc
 									NULL;
 
 							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees) .mutex)) != 0)
+									.pointeur_variable_partagee_courante)
+									.mutex)) != 0)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_processus;
@@ -3620,7 +3592,8 @@ evaluation(struct_processus *s_etat_proc
 									NULL;
 
 							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex)) != 0)
+									.pointeur_variable_partagee_courante)
+									.mutex)) != 0)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_processus;
@@ -3643,7 +3616,8 @@ evaluation(struct_processus *s_etat_proc
 						 		.pointeur_variable_courante).objet = NULL;
 
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme =
 									d_es_processus;
@@ -3937,6 +3911,7 @@ evaluation(struct_processus *s_etat_proc
 													registre_erreur_execution;
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -4038,9 +4013,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -4124,9 +4102,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -4354,6 +4331,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -4442,9 +4420,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -4528,9 +4509,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -4724,6 +4704,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -4812,9 +4793,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -4898,9 +4882,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -5178,6 +5161,7 @@ evaluation(struct_processus *s_etat_proc
 													registre_erreur_execution;
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -5279,9 +5263,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -5365,9 +5352,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -5595,6 +5581,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -5683,9 +5670,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -5769,9 +5759,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -5965,6 +5954,7 @@ evaluation(struct_processus *s_etat_proc
 												}
 											}
 											else if (TEST(instruction_for) ||
+													TEST(instruction_forall) ||
 													TEST(instruction_start))
 											{
 												empilement_pile_systeme(
@@ -6053,9 +6043,12 @@ evaluation(struct_processus *s_etat_proc
 												 */
 
 												presence_compteur =
+													(((*(*s_etat_processus)
+													.l_base_pile_systeme)
+													.type_cloture == 'F') ||
 													((*(*s_etat_processus)
 													.l_base_pile_systeme)
-													.type_cloture == 'F')
+													.type_cloture == 'A'))
 													? d_vrai : d_faux;
 
 												if (((*(*s_etat_processus)
@@ -6139,9 +6132,8 @@ evaluation(struct_processus *s_etat_proc
 														.niveau_courant--;
 
 													if (
-													retrait_variable_par_niveau(
-													s_etat_processus) ==
-													d_erreur)
+												retrait_variables_par_niveau(
+												s_etat_processus) == d_erreur)
 													{
 														if (presence_egalite ==
 																d_vrai)
@@ -6341,15 +6333,6 @@ evaluation(struct_processus *s_etat_proc
 							{
 								// Variable partagée
 
-								if (pthread_mutex_lock(&((*(*s_etat_processus)
-										.s_liste_variables_partagees).mutex))
-										!= 0)
-								{
-									(*s_etat_processus).erreur_systeme =
-											d_es_processus;
-									return(d_erreur);
-								}
-
 								presence_variable_partagee = d_faux;
 
 								if (recherche_variable_partagee(
@@ -6362,12 +6345,9 @@ evaluation(struct_processus *s_etat_proc
 									presence_variable = d_vrai;
 									presence_variable_partagee = d_vrai;
 
-									if ((*((*(*s_etat_processus)
-											.s_liste_variables_partagees).table
-											[(*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.position_variable].objet)).type
-											== ADR)
+									if ((*(*(*s_etat_processus)
+											.pointeur_variable_partagee_courante
+											).objet).type == ADR)
 									{
 										presence_fonction = d_vrai;
 									}
@@ -6378,18 +6358,15 @@ evaluation(struct_processus *s_etat_proc
 											.objet)).symbole == d_faux))
 									{
 										if ((s_copie_variable_partagee =
-												copie_objet(s_etat_processus,
-												(*(*s_etat_processus)
-												.s_liste_variables_partagees)
-												.table[(*(*s_etat_processus)
-												.s_liste_variables_partagees)
-												.position_variable].objet, 'P'))
-												== NULL)
+											copie_objet(s_etat_processus,
+											(*(*s_etat_processus)
+											.pointeur_variable_partagee_courante
+											).objet, 'P')) == NULL)
 										{
 											if (pthread_mutex_unlock(
-													&((*(*s_etat_processus)
-													.s_liste_variables_partagees
-													).mutex)) != 0)
+											&((*(*s_etat_processus)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 											{
 												(*s_etat_processus)
 														.erreur_systeme =
@@ -6405,8 +6382,8 @@ evaluation(struct_processus *s_etat_proc
 
 									if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 									{
 										(*s_etat_processus).erreur_systeme =
 												d_es_processus;
@@ -6418,16 +6395,6 @@ evaluation(struct_processus *s_etat_proc
 									(*s_etat_processus).erreur_systeme = d_es;
 									presence_variable = d_faux;
 									presence_variable_partagee = d_faux;
-
-									if (pthread_mutex_unlock(
-											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
-									{
-										(*s_etat_processus).erreur_systeme =
-												d_es_processus;
-										return(d_erreur);
-									}
 								}
 							}
 							else
@@ -6887,16 +6854,6 @@ evaluation(struct_processus *s_etat_proc
 								{
 									// Variable partagée
 
-									if (pthread_mutex_lock(
-											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
-									{
-										(*s_etat_processus).erreur_systeme =
-												d_es_processus;
-										return(d_erreur);
-									}
-
 									if (recherche_variable_partagee(
 											s_etat_processus,
 											(*(*s_etat_processus)
@@ -6909,18 +6866,15 @@ evaluation(struct_processus *s_etat_proc
 												s_objet_elementaire);
 
 										if ((s_objet_elementaire =
-												copie_objet(s_etat_processus,
-												(*(*s_etat_processus)
-												.s_liste_variables_partagees)
-												.table[(*(*s_etat_processus)
-												.s_liste_variables_partagees)
-												.position_variable].objet,
-												'P')) == NULL)
+											copie_objet(s_etat_processus,
+											(*(*s_etat_processus)
+											.pointeur_variable_partagee_courante
+											).objet, 'P')) == NULL)
 										{
 											if (pthread_mutex_unlock(
-													&((*(*s_etat_processus)
-													.s_liste_variables_partagees
-													).mutex)) != 0)
+											&((*(*s_etat_processus)
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
 											{
 												(*s_etat_processus)
 														.erreur_systeme =
@@ -6941,16 +6895,16 @@ evaluation(struct_processus *s_etat_proc
 													instruction_courante;
 											return(d_erreur);
 										}
-									}
 
-									if (pthread_mutex_unlock(
+										if (pthread_mutex_unlock(
 											&((*(*s_etat_processus)
-											.s_liste_variables_partagees)
-											.mutex)) != 0)
-									{
-										(*s_etat_processus).erreur_systeme =
-												d_es_processus;
-										return(d_erreur);
+											.pointeur_variable_partagee_courante
+											).mutex)) != 0)
+										{
+											(*s_etat_processus).erreur_systeme =
+													d_es_processus;
+											return(d_erreur);
+										}
 									}
 								}
 								else
@@ -7143,8 +7097,17 @@ evaluation(struct_processus *s_etat_proc
 
 			(*s_etat_processus).niveau_courant = niveau_initial;
 
-			if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+			if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 			{
+				if (presence_egalite == d_vrai)
+				{
+					liberation(s_etat_processus, s_objet_evalue);
+				}
+
+				(*s_etat_processus).instruction_courante =
+						instruction_courante;
+				(*s_etat_processus).mode_execution_programme =
+						registre_mode_execution_programme;
 				return(d_erreur);
 			}
 		}
@@ -7153,34 +7116,40 @@ evaluation(struct_processus *s_etat_proc
 		 * Retrait des variables statiques créées dans l'expression
 		 */
 
-		for(n = 0; n < (*s_etat_processus).nombre_variables_statiques; n++)
+		if (retrait_variables_statiques_locales(s_etat_processus) == d_erreur)
 		{
-			if ((*s_etat_processus).s_liste_variables_statiques[n]
-					.niveau > (*s_etat_processus).niveau_courant)
+			if (presence_egalite == d_vrai)
 			{
-				if (retrait_variable_statique(s_etat_processus,
-						(*s_etat_processus).s_liste_variables_statiques[n].nom,
-						(*s_etat_processus).s_liste_variables_statiques[n]
-						.variable_statique) == d_erreur)
-				{
-					if (presence_egalite == d_vrai)
-					{
-						liberation(s_etat_processus, s_objet_evalue);
-					}
-
-					(*s_etat_processus).instruction_courante =
-							instruction_courante;
-					(*s_etat_processus).mode_execution_programme =
-							registre_mode_execution_programme;
-					return(d_erreur);
-				}
+				liberation(s_etat_processus, s_objet_evalue);
 			}
+
+			(*s_etat_processus).instruction_courante =
+					instruction_courante;
+			(*s_etat_processus).mode_execution_programme =
+					registre_mode_execution_programme;
+			return(d_erreur);
 		}
 
 		/*
 		 * Retrait des variables partagées créées dans l'expression
 		 */
 
+		if (retrait_variables_partagees_locales(s_etat_processus) == d_erreur)
+		{
+			if (presence_egalite == d_vrai)
+			{
+				liberation(s_etat_processus, s_objet_evalue);
+			}
+
+			(*s_etat_processus).instruction_courante =
+					instruction_courante;
+			(*s_etat_processus).mode_execution_programme =
+					registre_mode_execution_programme;
+			return(d_erreur);
+		}
+
+#warning A FIXER
+#if 0
 		if (pthread_mutex_lock(&((*(*s_etat_processus)
 				.s_liste_variables_partagees).mutex)) != 0)
 		{
@@ -7227,6 +7196,7 @@ evaluation(struct_processus *s_etat_proc
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return(d_erreur);
 		}
+#endif
 
 		if ((*s_etat_processus).var_volatile_requete_arret != 0)
 		{