--- rpl/src/instructions_m4.c	2010/01/26 15:22:45	1.1
+++ rpl/src/instructions_m4.c	2011/06/20 17:54:18	1.21
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.0.prerelease.1
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -139,6 +139,7 @@ instruction_mem(struct_processus *s_etat
 	(*((integer8 *) (*((*((*((struct_liste_chainee *)
 			(*s_objet_resultat).objet)).suivant)).donnee)).objet)) = 0;
 
+	/*
 	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
 	{
 		(*((integer8 *) (*((*((*((struct_liste_chainee *) (*s_objet_resultat)
@@ -148,6 +149,7 @@ instruction_mem(struct_processus *s_etat
 				.objet)).suivant)).donnee)).objet)) += occupation_memoire(
 				(*s_etat_processus).s_liste_variables[i].objet);
 	}
+	*/
 
 	for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)
 	{
@@ -396,16 +398,28 @@ instruction_mtxlock(struct_processus *s_
 			}
 		}
 
+#		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
 
 		if (pthread_mutex_lock(&((*((struct_mutex *) (*s_objet_argument).objet))
 				.mutex)) != 0)
 		{
+#			ifndef SEMAPHORES_NOMMES
 			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+#			else
+			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+#			endif
 			{
 				if ((*s_etat_processus).profilage == d_vrai)
 				{
@@ -430,7 +444,11 @@ instruction_mtxlock(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 (errno != EINTR)
 			{