--- rpl/src/instructions_s1.c	2011/06/24 20:31:40	1.32
+++ rpl/src/instructions_s1.c	2011/09/14 17:55:59	1.37
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.4
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3867,11 +3867,8 @@ instruction_syseval(struct_processus *s_
 					longueur_ecriture = strlen((unsigned char *)
 							(*(*l_element_courant).donnee).objet);
 
-#					ifndef SEMAPHORES_NOMMES
-					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-#					else
-					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
-#					endif
+					if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork))
+							!= 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -3882,20 +3879,12 @@ instruction_syseval(struct_processus *s_
 							(*(*l_element_courant).donnee).objet,
 							longueur_ecriture) != longueur_ecriture)
 					{
-#						ifndef SEMAPHORES_NOMMES
-						while(sem_wait(&((*s_etat_processus)
-								.semaphore_fork)) == -1)
-#						else
-						while(sem_wait((*s_etat_processus)
-								.semaphore_fork) == -1)
-#						endif
+						while(pthread_mutex_lock(&((*s_etat_processus)
+								.mutex_fork)) != 0)
 						{
-							if (errno != EINTR)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-								return;
-							}
+							(*s_etat_processus).erreur_systeme =
+									d_es_processus;
+							return;
 						}
 
 						if (longueur_ecriture == -1)
@@ -3904,13 +3893,8 @@ instruction_syseval(struct_processus *s_
 							return;
 						}
 
-#						ifndef SEMAPHORES_NOMMES
-						if (sem_post(&((*s_etat_processus)
-								.semaphore_fork)) != 0)
-#						else
-						if (sem_post((*s_etat_processus)
-								.semaphore_fork) != 0)
-#						endif
+						if (pthread_mutex_unlock(&((*s_etat_processus)
+								.mutex_fork)) != 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -3920,20 +3904,12 @@ instruction_syseval(struct_processus *s_
 					while(write_atomic(s_etat_processus,
 							pipes_entree[1], "\n", 1) != 1)
 					{
-#						ifndef SEMAPHORES_NOMMES
-						while(sem_wait(&((*s_etat_processus)
-								.semaphore_fork)) == -1)
-#						else
-						while(sem_wait((*s_etat_processus)
-								.semaphore_fork) == -1)
-#						endif
+						if (pthread_mutex_lock(&((*s_etat_processus)
+								.mutex_fork)) != 0)
 						{
-							if (errno != EINTR)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-								return;
-							}
+							(*s_etat_processus).erreur_systeme =
+									d_es_processus;
+							return;
 						}
 
 						if (longueur_ecriture == -1)
@@ -3942,30 +3918,19 @@ instruction_syseval(struct_processus *s_
 							return;
 						}
 
-#						ifndef SEMAPHORES_NOMMES
-						if (sem_post(&((*s_etat_processus)
-								.semaphore_fork)) != 0)
-#						else
-						if (sem_post((*s_etat_processus)
-								.semaphore_fork) != 0)
-#						endif
+						if (pthread_mutex_unlock(&((*s_etat_processus)
+								.mutex_fork)) != 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
 						}
 					}
 
-#					ifndef SEMAPHORES_NOMMES
-					while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#					else
-					while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#					endif
+					if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork))
+							!= 0)
 					{
-						if (errno != EINTR)
-						{
-							(*s_etat_processus).erreur_systeme = d_es_processus;
-							return;
-						}
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+						return;
 					}
 
 					l_element_courant = (*l_element_courant).suivant;
@@ -3989,11 +3954,8 @@ instruction_syseval(struct_processus *s_
 				 * Récupération de la valeur de retour du processus détaché
 				 */
 
-#				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-#				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
-#				endif
+				if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork))
+						!= 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -4001,34 +3963,21 @@ instruction_syseval(struct_processus *s_
 
 				if (waitpid(pid, &status, 0) == -1)
 				{
-#					ifndef SEMAPHORES_NOMMES
-					if (sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#					else
-					if (sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#					endif
+					if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork))
+							!= 0)
 					{
-						if (errno != EINTR)
-						{
-							(*s_etat_processus).erreur_systeme = d_es_processus;
-							return;
-						}
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+						return;
 					}
 
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
 
-#				ifndef SEMAPHORES_NOMMES
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#				else
-				if (sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#				endif
+				if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 				{
-					if (errno != EINTR)
-					{
-						(*s_etat_processus).erreur_systeme = d_es_processus;
-						return;
-					}
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
 				}
 			} while((!WIFEXITED(status)) && (!WIFSIGNALED(status)));
 
@@ -4043,35 +3992,21 @@ instruction_syseval(struct_processus *s_
 				return;
 			}
 
-#			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-#			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
 
 			while((ios = read_atomic(s_etat_processus,
 					pipes_sortie[0], &(tampon[pointeur]),
 					longueur_lecture)) > 0)
 			{
-#				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#				endif
+				while(pthread_mutex_lock(&((*s_etat_processus).mutex_fork))
+						!= 0)
 				{
-					if (errno != EINTR)
-					{
-						(*s_etat_processus).erreur_systeme = d_es_processus;
-						return;
-					}
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
 				}
 
 				tampon[pointeur + ios] = d_code_fin_chaine;
@@ -4087,28 +4022,18 @@ instruction_syseval(struct_processus *s_
 					return;
 				}
 
-#				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-#				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
-#				endif
+				if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork))
+						!= 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
 			}
 
-#			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#			endif
+			if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 			{
-				if (errno != EINTR)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
 			}
 
 			if ((tampon = realloc(tampon, (strlen(tampon) + 1) *
@@ -4250,11 +4175,7 @@ instruction_syseval(struct_processus *s_
 			return;
 		}
  
-#		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-#		else
-		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
-#		endif
+		if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork)) != 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
@@ -4271,17 +4192,10 @@ instruction_syseval(struct_processus *s_
 				&((*s_etat_processus).l_base_pile), s_objet_resultat)
 				== d_erreur)
 		{
-#			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#			endif
+			if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 			{
-				if (errno != EINTR)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
 			}
 
 			if (close(pipes_erreur[0]) != 0)
@@ -4294,17 +4208,10 @@ instruction_syseval(struct_processus *s_
 			return;
 		}
 
-#		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
-#		else
-		while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
-#		endif
+		if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 		{
-			if (errno != EINTR)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+			(*s_etat_processus).erreur_systeme = d_es_processus;
+			return;
 		}
 
 		if (close(pipes_erreur[0]) != 0)