--- rpl/src/instructions_c2.c	2011/04/21 16:00:56	1.18
+++ rpl/src/instructions_c2.c	2011/06/09 14:48:36	1.19
@@ -137,8 +137,7 @@ instruction_cycle(struct_processus *s_et
 			{
 				instruction_majuscule = conversion_majuscule("");
 
-				if (((*s_etat_processus).s_liste_variables
-						[(*s_etat_processus).position_variable_courante]).objet
+				if ((*(*s_etat_processus).pointeur_variable_courante).objet
 						== NULL)
 				{
 					// Variable partagée
@@ -151,11 +150,10 @@ instruction_cycle(struct_processus *s_et
 					}
 
 					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, 'E') == d_vrai)
+							(*(*s_etat_processus).pointeur_variable_courante)
+							.nom, (*(*s_etat_processus)
+							.pointeur_variable_courante).variable_partagee,
+							'E') == d_vrai)
 					{
 						if ((*((*(*s_etat_processus)
 								.s_liste_variables_partagees).table
@@ -191,9 +189,9 @@ instruction_cycle(struct_processus *s_et
 									(*s_etat_processus).niveau_courant;
 
 							(*s_etat_processus).position_courante =
-									(*((unsigned long *) ((*((*s_etat_processus)
-									.s_liste_variables[(*s_etat_processus)
-									.position_variable_courante].objet))
+									(*((unsigned long *)
+									((*(*(*s_etat_processus)
+									.pointeur_variable_courante).objet)
 									.objet)));
 
 							(*s_etat_processus)
@@ -212,8 +210,7 @@ instruction_cycle(struct_processus *s_et
 				{
 					// Variable privée
 
-					if ((*((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus).position_variable_courante])
+					if ((*(*(*s_etat_processus).pointeur_variable_courante)
 							.objet).type == ADR)
 					{
 						empilement_pile_systeme(s_etat_processus);
@@ -234,9 +231,8 @@ instruction_cycle(struct_processus *s_et
 								(*s_etat_processus).niveau_courant;
 
 						(*s_etat_processus).position_courante =
-								(*((unsigned long *) ((*((*s_etat_processus)
-								.s_liste_variables[(*s_etat_processus)
-								.position_variable_courante].objet)).objet)));
+								(*((unsigned long *) ((*(*(*s_etat_processus)
+								.pointeur_variable_courante).objet).objet)));
 
 						(*s_etat_processus).autorisation_empilement_programme
 								= 'N';
@@ -603,8 +599,8 @@ instruction_con(struct_processus *s_etat
 
 		liberation(s_etat_processus, s_objet_2);
 
-		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);
 
@@ -612,8 +608,7 @@ instruction_con(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)
 		{
 			// Variable partagée
 
@@ -625,12 +620,10 @@ instruction_con(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)
+					(*(*s_etat_processus).pointeur_variable_courante).nom,
+					(*(*s_etat_processus).pointeur_variable_courante)
+					.variable_partagee, (*(*s_etat_processus)
+					.pointeur_variable_courante).origine)
 					== d_faux)
 			{
 				(*s_etat_processus).erreur_systeme = d_es;
@@ -665,8 +658,7 @@ instruction_con(struct_processus *s_etat
 		{
 			// Variable privée
 
-			s_objet_2 = (*s_etat_processus).s_liste_variables
-					[(*s_etat_processus).position_variable_courante].objet;
+			s_objet_2 = (*(*s_etat_processus).pointeur_variable_courante).objet;
 		}
 	}
 	else
@@ -1056,8 +1048,7 @@ instruction_con(struct_processus *s_etat
 	}
 	else
 	{
-		(*s_etat_processus).s_liste_variables
-				[(*s_etat_processus).position_variable_courante].objet =
+		(*(*s_etat_processus).pointeur_variable_courante).objet =
 				s_objet_resultat;
 	}