--- rpl/src/evaluation.c	2012/12/13 16:59:41	1.63
+++ rpl/src/evaluation.c	2012/12/19 09:58:22	1.67
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
+  RPL/2 (R) version 4.1.12
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -95,7 +95,6 @@ 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;
@@ -188,7 +187,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;
@@ -2314,7 +2313,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.
 
@@ -6340,7 +6339,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;
@@ -6860,7 +6859,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 +7147,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