--- rpl/src/instructions_e2.c	2010/07/14 14:19:36	1.12
+++ rpl/src/instructions_e2.c	2011/06/09 14:48:36	1.21
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.0.prerelease.0
+  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"
 
 
 /*
@@ -721,7 +721,7 @@ void
 instruction_edit(struct_processus *s_etat_processus)
 {
 #	ifdef VIM_SUPPORT
-#	include "vim.conv.h"
+#	include "vim-conv.h"
 
 	file					*fichier;
 
@@ -1302,8 +1302,7 @@ instruction_exit(struct_processus *s_eta
 				{
 					instruction_majuscule = conversion_majuscule("");
 
-					if ((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus).position_variable_courante]
+					if ((*(*s_etat_processus).pointeur_variable_courante)
 							.objet == NULL)
 					{
 						if (pthread_mutex_lock(&((*(*s_etat_processus)
@@ -1315,18 +1314,15 @@ instruction_exit(struct_processus *s_eta
 						}
 
 						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_vrai)
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).nom,
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).variable_partagee,
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).origine) == d_vrai)
 						{
-							if ((*((*s_etat_processus).s_liste_variables
-									[(*s_etat_processus)
-									.position_variable_courante]).objet).type
+							if ((*(*(*s_etat_processus)
+									.pointeur_variable_courante).objet).type
 									== ADR)
 							{
 								empilement_pile_systeme(s_etat_processus);
@@ -1358,9 +1354,8 @@ instruction_exit(struct_processus *s_eta
 
 								(*s_etat_processus).position_courante =
 										(*((unsigned long *)
-										((*((*s_etat_processus)
-										.s_liste_variables[(*s_etat_processus)
-										.position_variable_courante].objet))
+										((*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.objet)));
 
 								(*s_etat_processus)
@@ -1383,10 +1378,8 @@ instruction_exit(struct_processus *s_eta
 					}
 					else
 					{
-						if ((*((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante]).objet).type
-								== ADR)
+						if ((*(*(*s_etat_processus).pointeur_variable_courante)
+								.objet).type == ADR)
 						{
 							empilement_pile_systeme(s_etat_processus);
 
@@ -1406,9 +1399,9 @@ instruction_exit(struct_processus *s_eta
 									(*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)
@@ -1530,8 +1523,7 @@ instruction_exit(struct_processus *s_eta
 				{
 					instruction_majuscule = conversion_majuscule("");
 
-					if ((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus).position_variable_courante]
+					if ((*(*s_etat_processus).pointeur_variable_courante)
 							.objet == NULL)
 					{
 						if (pthread_mutex_lock(&((*(*s_etat_processus)
@@ -1543,18 +1535,15 @@ instruction_exit(struct_processus *s_eta
 						}
 
 						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_vrai)
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).nom,
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).variable_partagee,
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).origine) == d_vrai)
 						{
-							if ((*((*s_etat_processus).s_liste_variables
-									[(*s_etat_processus)
-									.position_variable_courante]).objet).type
+							if ((*(*(*s_etat_processus)
+									.pointeur_variable_courante).objet).type
 									== ADR)
 							{
 								empilement_pile_systeme(s_etat_processus);
@@ -1586,9 +1575,8 @@ instruction_exit(struct_processus *s_eta
 
 								(*s_etat_processus).position_courante =
 										(*((unsigned long *)
-										((*((*s_etat_processus)
-										.s_liste_variables[(*s_etat_processus)
-										.position_variable_courante].objet))
+										((*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.objet)));
 
 								(*s_etat_processus)
@@ -1611,10 +1599,8 @@ instruction_exit(struct_processus *s_eta
 					}
 					else
 					{
-						if ((*((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante]).objet).type
-								== ADR)
+						if ((*(*(*s_etat_processus).pointeur_variable_courante)
+								.objet).type == ADR)
 						{
 							empilement_pile_systeme(s_etat_processus);
 
@@ -1634,9 +1620,9 @@ instruction_exit(struct_processus *s_eta
 									(*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)