--- rpl/src/instructions_s1.c	2012/10/01 11:05:06	1.55
+++ rpl/src/instructions_s1.c	2013/02/27 17:11:44	1.63
@@ -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.
 
@@ -2916,7 +2916,7 @@ instruction_step(struct_processus *s_eta
 		{
 			(*s_etat_processus).niveau_courant--;
 
-			if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+			if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 			{
 				return;
 			}
@@ -3219,27 +3219,15 @@ instruction_sto(struct_processus *s_etat
 
 		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;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine) == d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
-				if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+				if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+						((*((struct_nom *) (*s_objet_1).objet)).symbole
+						== d_faux))
 				{
 					liberation(s_etat_processus, s_objet_1);
 					liberation(s_etat_processus, s_objet_2);
@@ -3282,16 +3270,12 @@ instruction_sto(struct_processus *s_etat
 			else
 			{
 				liberation(s_etat_processus, (*(*s_etat_processus)
-						.s_liste_variables_partagees).table
-						[(*(*s_etat_processus).s_liste_variables_partagees)
-						.position_variable].objet);
-
-				(*(*s_etat_processus).s_liste_variables_partagees).table
-						[(*(*s_etat_processus).s_liste_variables_partagees)
-						.position_variable].objet = s_objet_2;
+						.pointeur_variable_partagee_courante).objet);
+				(*(*s_etat_processus).pointeur_variable_partagee_courante)
+						.objet = s_objet_2;
 
 				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;
 					return;
@@ -3300,7 +3284,8 @@ instruction_sto(struct_processus *s_etat
 		}
 		else
 		{
-			if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+			if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+					((*((struct_nom *) (*s_objet_1).objet)).symbole == d_faux))
 			{
 				if ((*(*s_etat_processus).pointeur_variable_courante)
 						.niveau == 1)
@@ -3327,7 +3312,8 @@ instruction_sto(struct_processus *s_etat
 		 * une variable globale.
 		 */
 
-		if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+		if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+				((*((struct_nom *) (*s_objet_1).objet)).symbole == d_faux))
 		{
 			liberation(s_etat_processus, s_objet_1);
 			liberation(s_etat_processus, s_objet_2);