--- rpl/src/instructions_s1.c	2011/04/21 16:00:59	1.26
+++ rpl/src/instructions_s1.c	2011/06/10 11:35:13	1.27
@@ -2773,8 +2773,8 @@ instruction_step(struct_processus *s_eta
 			return;
 		}
 
-		if (((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante]).variable_verrouillee == d_vrai)
+		if ((*(*s_etat_processus).pointeur_variable_courante)
+				.variable_verrouillee == d_vrai)
 		{
 			liberation(s_etat_processus, s_objet);
 
@@ -2782,8 +2782,7 @@ instruction_step(struct_processus *s_eta
 			return;
 		}
 	
-		if (((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante]).objet == NULL)
+		if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
 		{
 			liberation(s_etat_processus, s_objet);
 
@@ -2792,8 +2791,7 @@ instruction_step(struct_processus *s_eta
 		}
 
 		(*(*s_etat_processus).l_base_pile_systeme).indice_boucle =
-				((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante]).objet;
+				(*(*s_etat_processus).pointeur_variable_courante).objet;
 	}
 
 	/*
@@ -2834,8 +2832,7 @@ instruction_step(struct_processus *s_eta
 		 */
 
 		(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL;
-		((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante]).objet = s_objet;
+		(*(*s_etat_processus).pointeur_variable_courante).objet = s_objet;
 	}
 	else
 	{
@@ -3210,8 +3207,8 @@ instruction_sto(struct_processus *s_etat
 		 * La variable est accessible.
 		 */
 
-		if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante].variable_verrouillee == d_vrai)
+		if ((*(*s_etat_processus).pointeur_variable_courante)
+				.variable_verrouillee == d_vrai)
 		{
 			liberation(s_etat_processus, s_objet_1);
 			liberation(s_etat_processus, s_objet_2);
@@ -3220,8 +3217,7 @@ instruction_sto(struct_processus *s_etat
 			return;
 		}
 
-		if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante].objet == NULL)
+		if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
 		{
 			if (pthread_mutex_lock(&((*(*s_etat_processus)
 					.s_liste_variables_partagees).mutex)) != 0)
@@ -3231,12 +3227,10 @@ instruction_sto(struct_processus *s_etat
 			}
 
 			if (recherche_variable_partagee(s_etat_processus,
-					(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-					.position_variable_courante].nom,
-					(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-					.position_variable_courante].variable_partagee,
-					(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-					.position_variable_courante].origine) == d_faux)
+					(*(*s_etat_processus).pointeur_variable_courante).nom,
+					(*(*s_etat_processus).pointeur_variable_courante)
+					.variable_partagee, (*(*s_etat_processus)
+					.pointeur_variable_courante).origine) == d_faux)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
 						.s_liste_variables_partagees).mutex)) != 0)
@@ -3308,8 +3302,8 @@ instruction_sto(struct_processus *s_etat
 		{
 			if ((*s_etat_processus).autorisation_nom_implicite == 'N')
 			{
-				if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-						.position_variable_courante].niveau == 1)
+				if ((*(*s_etat_processus).pointeur_variable_courante)
+						.niveau == 1)
 				{
 					liberation(s_etat_processus, s_objet_1);
 					liberation(s_etat_processus, s_objet_2);
@@ -3321,11 +3315,9 @@ instruction_sto(struct_processus *s_etat
 			}
 
 			liberation(s_etat_processus,
-					(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-					.position_variable_courante].objet);
-
-			(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-					.position_variable_courante].objet = s_objet_2;
+					(*(*s_etat_processus).pointeur_variable_courante).objet);
+			(*(*s_etat_processus).pointeur_variable_courante).objet =
+					s_objet_2;
 		}
 	}
 	else