--- rpl/src/evaluation.c	2012/12/13 16:59:41	1.63
+++ rpl/src/evaluation.c	2013/03/05 21:02:35	1.72
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -95,11 +95,9 @@ evaluation(struct_processus *s_etat_proc
 
 	unsigned long					k;
 	unsigned long					l;
-	unsigned long					n;
 	unsigned long					niveau_initial;
 	unsigned long					nombre_termes;
 	unsigned long					registre_hauteur_pile_operationnelle;
-	unsigned long					registre_niveau_courant;
 	unsigned long					registre_position_courante;
 
 	void							(*fonction)();
@@ -188,7 +186,7 @@ evaluation(struct_processus *s_etat_proc
 								.pointeur_variable_courante).nom,
 								(*(*s_etat_processus)
 								.pointeur_variable_courante)
-								.variable_partagee, 'E') == d_vrai)
+								.variable_partagee, 'E') != NULL)
 						{
 							presence_variable = d_vrai;
 							presence_variable_partagee = d_vrai;
@@ -716,8 +714,6 @@ evaluation(struct_processus *s_etat_proc
 		registre_retour_definition = (*(*s_etat_processus).l_base_pile_systeme)
 				.retour_definition;
 		(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N';
-		(*(*s_etat_processus).l_base_pile_systeme).pointeur_adresse_retour =
-				s_objet;
 
 		l_element_courant = (struct_liste_chainee *) (*s_objet).objet;
 		autorisation_empilement_programme = (*s_etat_processus)
@@ -2314,7 +2310,7 @@ evaluation(struct_processus *s_etat_proc
 								.pointeur_variable_courante).nom,
 								(*(*s_etat_processus)
 								.pointeur_variable_courante).variable_partagee,
-								'E') == d_vrai)
+								'E') != NULL)
 						{
 							// Une variable partagée existe.
 
@@ -6242,7 +6238,6 @@ evaluation(struct_processus *s_etat_proc
 									registre_mode_execution_programme;
 							(*s_etat_processus).instruction_courante =
 									instruction_courante;
-
 							if (presence_egalite == d_vrai)
 							{
 								liberation(s_etat_processus, s_objet_evalue);
@@ -6340,7 +6335,7 @@ evaluation(struct_processus *s_etat_proc
 										.pointeur_variable_courante).nom,
 										(*(*s_etat_processus)
 										.pointeur_variable_courante)
-										.variable_partagee, 'E') == d_vrai)
+										.variable_partagee, 'E') != NULL)
 								{
 									presence_variable = d_vrai;
 									presence_variable_partagee = d_vrai;
@@ -6545,7 +6540,7 @@ evaluation(struct_processus *s_etat_proc
 							}
 
 							(*s_etat_processus).evaluation_forcee =
-								registre_evaluation_forcee;
+									registre_evaluation_forcee;
 							(*s_etat_processus).instruction_courante =
 									instruction_courante;
 							(*s_etat_processus).mode_execution_programme = 'N';
@@ -6680,18 +6675,18 @@ evaluation(struct_processus *s_etat_proc
 									}
 								}
 
-								registre_niveau_courant = (*(*s_etat_processus)
-										.l_base_pile_systeme).niveau_courant;
-								registre_retour_definition =
-										(*(*s_etat_processus)
-										.l_base_pile_systeme).retour_definition;
+								empilement_pile_systeme(s_etat_processus);
 
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.retour_definition = 'Y';
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.niveau_courant = (*s_etat_processus)
 										.niveau_courant;
-								empilement_pile_systeme(s_etat_processus);
+								(*(*s_etat_processus).l_base_pile_systeme)
+										.pointeur_objet_retour =
+										l_element_courant;
+								(*(*s_etat_processus).l_base_pile_systeme)
+										.origine_routine_evaluation = 'Y';
 
 								if (evaluation(s_etat_processus,
 										(*(*s_etat_processus)
@@ -6700,13 +6695,6 @@ evaluation(struct_processus *s_etat_proc
 								{
 									depilement_pile_systeme(s_etat_processus);
 
-									(*(*s_etat_processus).l_base_pile_systeme)
-											.niveau_courant =
-											registre_niveau_courant;
-									(*(*s_etat_processus).l_base_pile_systeme)
-											.retour_definition =
-											registre_retour_definition;
-
 									if ((*s_etat_processus).profilage == d_vrai)
 									{
 										profilage(s_etat_processus, NULL);
@@ -6730,13 +6718,6 @@ evaluation(struct_processus *s_etat_proc
 								}
 
 								depilement_pile_systeme(s_etat_processus);
-
-								(*(*s_etat_processus).l_base_pile_systeme)
-										.niveau_courant =
-										registre_niveau_courant;
-								(*(*s_etat_processus).l_base_pile_systeme)
-										.retour_definition =
-									   	registre_retour_definition;
 							}
 							else
 							{
@@ -6860,7 +6841,7 @@ evaluation(struct_processus *s_etat_proc
 											.pointeur_variable_courante).nom,
 											(*(*s_etat_processus)
 											.pointeur_variable_courante)
-											.variable_partagee, 'E') == d_vrai)
+											.variable_partagee, 'E') != NULL)
 									{
 										liberation(s_etat_processus,
 												s_objet_elementaire);
@@ -7148,56 +7129,6 @@ evaluation(struct_processus *s_etat_proc
 			return(d_erreur);
 		}
 
-#warning A FIXER
-#if 0
-		if (pthread_mutex_lock(&((*(*s_etat_processus)
-				.s_liste_variables_partagees).mutex)) != 0)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return(d_erreur);
-		}
-
-		for(n = 0; n < (*(*s_etat_processus).s_liste_variables_partagees)
-				.nombre_variables; n++)
-		{
-			if ((*(*s_etat_processus).s_liste_variables_partagees).table[n]
-					.niveau > (*s_etat_processus).niveau_courant)
-			{
-				if (retrait_variable_partagee(s_etat_processus,
-						(*(*s_etat_processus).s_liste_variables_partagees)
-						.table[n].nom, (*(*s_etat_processus)
-						.s_liste_variables_partagees).table[n]
-						.variable_partagee) == d_erreur)
-				{
-					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 (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);
-				}
-			}
-		}
-
-		if (pthread_mutex_unlock(&((*(*s_etat_processus)
-				.s_liste_variables_partagees).mutex)) != 0)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return(d_erreur);
-		}
-#endif
-
 		if ((*s_etat_processus).var_volatile_requete_arret != 0)
 		{
 			// Restauration de la pile système