--- rpl/src/instructions_m4.c	2011/09/20 09:51:42	1.33
+++ rpl/src/instructions_m4.c	2011/09/26 15:57:14	1.35
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.3
+  RPL/2 (R) version 4.1.4
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -416,7 +416,11 @@ instruction_mtxlock(struct_processus *s_
 			}
 		}
 
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+#		ifndef SEMAPHORES_NOMMES
+			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+#		else
+			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#		endif
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
@@ -425,7 +429,11 @@ instruction_mtxlock(struct_processus *s_
 		if (pthread_mutex_lock(&((*((struct_mutex *) (*s_objet_argument).objet))
 				.mutex)) != 0)
 		{
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+#			ifndef SEMAPHORES_NOMMES
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+#			else
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				if (errno != EINTR)
 				{
@@ -445,7 +453,11 @@ instruction_mtxlock(struct_processus *s_
 			return;
 		}
 
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+#		ifndef SEMAPHORES_NOMMES
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+#		else
+			while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
+#		endif
 		{
 			if (errno != EINTR)
 			{