--- rpl/src/instructions_r5.c	2010/03/09 10:18:48	1.5
+++ rpl/src/instructions_r5.c	2011/07/25 07:44:58	1.30
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.13
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.2
+  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"
 
 
 /*
@@ -348,8 +348,8 @@ instruction_row_plus(struct_processus *s
 
 		liberation(s_etat_processus, s_objet_argument_3);
 
-		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)
 		{
 			(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;
 
@@ -359,8 +359,8 @@ instruction_row_plus(struct_processus *s
 			return;
 		}
 
-		s_objet_argument_3 = (*s_etat_processus).s_liste_variables
-				[(*s_etat_processus).position_variable_courante].objet;
+		s_objet_argument_3 = (*(*s_etat_processus).pointeur_variable_courante)
+				.objet;
 
 		if (s_objet_argument_3 == NULL)
 		{
@@ -372,12 +372,10 @@ instruction_row_plus(struct_processus *s
 			}
 
 			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)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
@@ -424,8 +422,8 @@ instruction_row_plus(struct_processus *s
 		liberation(s_etat_processus, s_objet_argument_3);
 		s_objet_argument_3 = s_copie_argument_3;
 
-		(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante].objet = s_objet_argument_3;
+		(*(*s_etat_processus).pointeur_variable_courante).objet =
+				s_objet_argument_3;
 	}
 	else
 	{
@@ -816,8 +814,8 @@ instruction_row_plus(struct_processus *s
 			return;
 		}
 
-		if (position == (integer8) (*((struct_matrice *)
-				(*s_objet_argument_3).objet)).nombre_lignes)
+		if (position != ((integer8) (*((struct_matrice *)
+				(*s_objet_argument_3).objet)).nombre_lignes + 1))
 		{
 			for(j = i = 0; i < (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes; i++)
@@ -853,6 +851,8 @@ instruction_row_plus(struct_processus *s
 	}
 	else
 	{
+		free((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau[0]);
+
 		if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau
 				= malloc(sizeof(void *))) == NULL)
 		{
@@ -1024,8 +1024,8 @@ instruction_row_moins(struct_processus *
 
 		liberation(s_etat_processus, s_objet_argument_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_argument_1);
 
@@ -1033,8 +1033,8 @@ instruction_row_moins(struct_processus *
 			return;
 		}
 
-		s_objet_argument_2 = (*s_etat_processus).s_liste_variables
-				[(*s_etat_processus).position_variable_courante].objet;
+		s_objet_argument_2 = (*(*s_etat_processus).pointeur_variable_courante)
+				.objet;
 
 		if (s_objet_argument_2 == NULL)
 		{
@@ -1046,13 +1046,10 @@ instruction_row_moins(struct_processus *
 			}
 
 			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)
@@ -1097,8 +1094,8 @@ instruction_row_moins(struct_processus *
 		liberation(s_etat_processus, s_objet_argument_2);
 		s_objet_argument_2 = s_copie_argument_2;
 
-		(*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante].objet = s_objet_argument_2;
+		(*(*s_etat_processus).pointeur_variable_courante).objet =
+				s_objet_argument_2;
 	}
 	else
 	{