--- rpl/src/instructions_r2.c	2012/10/04 15:21:26	1.42
+++ rpl/src/instructions_r2.c	2012/12/13 16:59:42	1.43
@@ -980,13 +980,6 @@ instruction_rdm(struct_processus *s_etat
 
 		if (s_objet_initial == 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)
@@ -994,13 +987,6 @@ instruction_rdm(struct_processus *s_etat
 					.pointeur_variable_courante).origine)
 					== d_faux)
 			{
-				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;
@@ -1023,7 +1009,7 @@ instruction_rdm(struct_processus *s_etat
 		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;
@@ -1055,7 +1041,7 @@ instruction_rdm(struct_processus *s_etat
 		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;
@@ -1085,7 +1071,7 @@ instruction_rdm(struct_processus *s_etat
 			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;
@@ -1108,7 +1094,7 @@ instruction_rdm(struct_processus *s_etat
 			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;
@@ -1145,7 +1131,7 @@ instruction_rdm(struct_processus *s_etat
 		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 +1160,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1195,7 +1181,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1232,7 +1218,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1253,7 +1239,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1291,7 +1277,7 @@ instruction_rdm(struct_processus *s_etat
 				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,7 +1299,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1360,7 +1346,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1381,7 +1367,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1431,7 +1417,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1452,7 +1438,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1503,7 +1489,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1525,7 +1511,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1580,7 +1566,7 @@ instruction_rdm(struct_processus *s_etat
 			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;
@@ -1618,7 +1604,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1642,7 +1628,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1662,7 +1648,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -1703,7 +1690,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1727,7 +1714,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1747,7 +1734,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -1788,7 +1776,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1812,7 +1800,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1833,7 +1821,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -1885,7 +1874,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1909,7 +1898,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -1932,7 +1921,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -1984,7 +1974,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -2008,7 +1998,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -2031,7 +2021,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -2083,7 +2074,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -2107,7 +2098,7 @@ instruction_rdm(struct_processus *s_etat
 				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;
@@ -2130,7 +2121,8 @@ instruction_rdm(struct_processus *s_etat
 					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;
@@ -2188,7 +2180,7 @@ instruction_rdm(struct_processus *s_etat
 			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;
@@ -2223,12 +2215,11 @@ instruction_rdm(struct_processus *s_etat
 	{
 		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_redimensionne;
+			(*(*s_etat_processus).pointeur_variable_partagee_courante).objet =
+					s_objet_redimensionne;
 
 			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;