--- rpl/src/instructions_r4.c	2010/03/09 09:19:49	1.9
+++ rpl/src/instructions_r4.c	2010/05/24 10:58:34	1.14
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
+  RPL/2 (R) version 4.0.16
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1913,11 +1913,19 @@ instruction_read(struct_processus *s_eta
 					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)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
+#				endif
 
 				for(;;)
 				{
@@ -1956,8 +1964,13 @@ instruction_read(struct_processus *s_eta
 						free(tampon_lecture);
 						liberation(s_etat_processus, s_objet_argument_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 (errno != EINTR)
 							{
@@ -1985,8 +1998,11 @@ instruction_read(struct_processus *s_eta
 					}
 				}
 
-				while(sem_wait(&((*s_etat_processus).semaphore_fork))
-						== -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 (errno != EINTR)
 					{