--- rpl/src/instructions_c2.c	2010/06/24 10:10:42	1.9
+++ rpl/src/instructions_c2.c	2011/09/26 15:57:12	1.29
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.17
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.4
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -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;
 	}