--- rpl/src/instructions_s1.c	2012/06/13 08:29:38	1.50
+++ rpl/src/instructions_s1.c	2013/02/27 17:11:44	1.63
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.9
-  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.
 
@@ -2572,15 +2572,6 @@ instruction_start(struct_processus *s_et
 		}
 	}
 
-	empilement_pile_systeme(s_etat_processus);
-
-	if ((*s_etat_processus).erreur_systeme != d_es)
-	{
-		return;
-	}
-
-	(*(*s_etat_processus).l_base_pile_systeme).type_cloture = 'S';
-
 	if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
 			&s_objet_1) == d_erreur)
 	{
@@ -2614,6 +2605,15 @@ instruction_start(struct_processus *s_et
 		return;
 	}
 
+	empilement_pile_systeme(s_etat_processus);
+
+	if ((*s_etat_processus).erreur_systeme != d_es)
+	{
+		return;
+	}
+
+	(*(*s_etat_processus).l_base_pile_systeme).type_cloture = 'S';
+
 	(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = s_objet_2;
 	(*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle = s_objet_1;
 
@@ -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);
@@ -3399,13 +3385,12 @@ instruction_syseval(struct_processus *s_
 	logical1					presence_stdin;
 
 	long						i;
+	long						longueur_ecriture;
 	long						longueur_traitee;
 	long						nombre_arguments;
 
 	pid_t						pid;
 
-	ssize_t						longueur_ecriture;
-
 	struct_liste_chainee		*l_element_courant;
 	struct_liste_chainee		*l_element_precedent;
 	struct_liste_chainee		*l_element_stdin;
@@ -4166,7 +4151,7 @@ instruction_syseval(struct_processus *s_
 
 					if (((*(*l_element_courant).donnee).objet =
 							analyse_flux(s_etat_processus, ptr,
-							&longueur_tampon)) == NULL)
+							strlen(ptr))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;