--- rpl/src/instructions_r5.c	2012/01/05 10:19:03	1.34
+++ rpl/src/instructions_r5.c	2020/01/10 11:15:47	1.72
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -43,8 +43,8 @@ instruction_rswp(struct_processus *s_eta
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_argument_3;
 
-	signed long					ligne_1;
-	signed long					ligne_2;
+	integer8					ligne_1;
+	integer8					ligne_2;
 
 	void						*tampon;
 
@@ -120,9 +120,9 @@ instruction_rswp(struct_processus *s_eta
 			ligne_1 = (*((integer8 *) (*s_objet_argument_1).objet)) - 1;
 			ligne_2 = (*((integer8 *) (*s_objet_argument_2).objet)) - 1;
 
-			if ((ligne_1 < 0) || (ligne_1 >= (long) (*((struct_matrice *)
+			if ((ligne_1 < 0) || (ligne_1 >= (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes) ||
-					(ligne_2 < 0) || (ligne_2 >= (long) (*((struct_matrice *)
+					(ligne_2 < 0) || (ligne_2 >= (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes))
 			{
 				liberation(s_etat_processus, s_objet_argument_1);
@@ -212,8 +212,8 @@ instruction_row_plus(struct_processus *s
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_argument_3;
 
-	unsigned long					i;
-	unsigned long					j;
+	integer8						i;
+	integer8						j;
 
 	void							**tableau;
 	void							*tampon;
@@ -364,27 +364,12 @@ instruction_row_plus(struct_processus *s
 
 		if (s_objet_argument_3 == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine)
-					== d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
 				(*s_etat_processus).erreur_systeme = d_es;
 				(*s_etat_processus).erreur_execution =
 						d_ex_variable_non_definie;
@@ -396,9 +381,7 @@ instruction_row_plus(struct_processus *s
 			}
 
 			s_objet_argument_3 = (*(*s_etat_processus)
-					.s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet;
+					.pointeur_variable_partagee_courante).objet;
 			variable_partagee = d_vrai;
 		}
 
@@ -408,7 +391,7 @@ instruction_row_plus(struct_processus *s
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -457,7 +440,7 @@ instruction_row_plus(struct_processus *s
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -490,14 +473,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -537,14 +521,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -583,14 +568,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -633,14 +619,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -680,14 +667,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -726,14 +714,15 @@ instruction_row_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_objet_argument_1).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_objet_argument_1).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_objet_argument_1).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -772,7 +761,7 @@ instruction_row_plus(struct_processus *s
 		if (variable_partagee == d_vrai)
 		{
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -797,13 +786,13 @@ instruction_row_plus(struct_processus *s
 	if (matrice_vide == d_faux)
 	{
 		if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau
-				= malloc(((*((struct_matrice *) (*s_objet_argument_3).objet))
-				.nombre_lignes + 1) * sizeof(void *))) == NULL)
+				= malloc(((size_t) ((*((struct_matrice *) (*s_objet_argument_3)
+				.objet)).nombre_lignes + 1)) * sizeof(void *))) == NULL)
 		{
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -820,7 +809,7 @@ instruction_row_plus(struct_processus *s
 			for(j = i = 0; i < (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes; i++)
 			{
-				if (i == (unsigned long) (position - 1))
+				if (i == (position - 1))
 				{
 					(*((struct_matrice *) (*s_objet_argument_3).objet))
 							.tableau[i] = (*((struct_matrice *)
@@ -859,7 +848,7 @@ instruction_row_plus(struct_processus *s
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -894,12 +883,11 @@ instruction_row_plus(struct_processus *s
 	{
 		if (variable_partagee == d_vrai)
 		{
-			(*(*s_etat_processus).s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet = s_objet_argument_3;
+			(*(*s_etat_processus).pointeur_variable_partagee_courante).objet
+					= s_objet_argument_3;
 
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -942,9 +930,9 @@ instruction_row_moins(struct_processus *
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				colonne;
+	integer8					i;
+	integer8					j;
+	integer8					colonne;
 
 	void						**tableau;
 
@@ -1038,26 +1026,12 @@ instruction_row_moins(struct_processus *
 
 		if (s_objet_argument_2 == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine) == d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
 				(*s_etat_processus).erreur_systeme = d_es;
 				(*s_etat_processus).erreur_execution =
 						d_ex_variable_non_definie;
@@ -1068,9 +1042,7 @@ instruction_row_moins(struct_processus *
 			}
 
 			s_objet_argument_2 = (*(*s_etat_processus)
-					.s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet;
+					.pointeur_variable_partagee_courante).objet;
 			variable_partagee = d_vrai;
 		}
 
@@ -1080,7 +1052,7 @@ instruction_row_moins(struct_processus *
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -1126,7 +1098,7 @@ instruction_row_moins(struct_processus *
 				if (variable_partagee == d_vrai)
 				{
 					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
+							.pointeur_variable_partagee_courante).mutex)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -1151,7 +1123,7 @@ instruction_row_moins(struct_processus *
 				if (variable_partagee == d_vrai)
 				{
 					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
+							.pointeur_variable_partagee_courante).mutex)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -1174,7 +1146,7 @@ instruction_row_moins(struct_processus *
 				if (variable_partagee == d_vrai)
 				{
 					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
+							.pointeur_variable_partagee_courante).mutex)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -1196,13 +1168,15 @@ instruction_row_moins(struct_processus *
 						.tableau;
 
 				if (((*((struct_matrice *) (*s_objet_argument_2).objet)).tableau
-						= malloc(((*((struct_matrice *) (*s_objet_argument_2)
-						.objet)).nombre_lignes - 1) * sizeof(void *))) == NULL)
+						= malloc(((size_t) ((*((struct_matrice *)
+						(*s_objet_argument_2).objet)).nombre_lignes - 1)) *
+						sizeof(void *))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+							   	!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -1239,7 +1213,8 @@ instruction_row_moins(struct_processus *
 					if (variable_partagee == d_vrai)
 					{
 						if (pthread_mutex_unlock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
+								.pointeur_variable_partagee_courante).mutex))
+								!= 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -1260,7 +1235,7 @@ instruction_row_moins(struct_processus *
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -1283,7 +1258,7 @@ instruction_row_moins(struct_processus *
 		if (variable_partagee == d_vrai)
 		{
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -1313,12 +1288,11 @@ instruction_row_moins(struct_processus *
 	}
 	else if (variable_partagee == d_vrai)
 	{
-		(*(*s_etat_processus).s_liste_variables_partagees).table
-				[(*(*s_etat_processus).s_liste_variables_partagees)
-				.position_variable].objet = s_objet_argument_2;
+		(*(*s_etat_processus).pointeur_variable_partagee_courante).objet =
+				s_objet_argument_2;
 
 		if (pthread_mutex_unlock(&((*(*s_etat_processus)
-				.s_liste_variables_partagees).mutex)) != 0)
+				.pointeur_variable_partagee_courante).mutex)) != 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;