--- rpl/src/instructions_w1.c	2018/12/21 10:56:21	1.111
+++ rpl/src/instructions_w1.c	2019/02/11 09:45:52	1.116
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.29
-  Copyright (C) 1989-2018 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.31
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1732,12 +1732,18 @@ instruction_write(struct_processus *s_et
 				(*s_objet_argument_1).objet)).type,
 				"SEQUENTIAL DATAGRAM") == 0))
 		{ // Sockets connectées
+			if (pthread_mutex_lock(&mutex_sigaction) != 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
 
 			action.sa_handler = SIG_IGN;
-			action.sa_flags = SA_ONSTACK;
+			action.sa_flags = 0;
 
 			if (sigaction(SIGPIPE, &action, &registre) != 0)
 			{
+				pthread_mutex_unlock(&mutex_sigaction);
 				(*s_etat_processus).erreur_systeme = d_es_signal;
 				return;
 			}
@@ -1750,10 +1756,12 @@ instruction_write(struct_processus *s_et
 			{
 				if (sigaction(SIGPIPE, &registre, NULL) != 0)
 				{
+					pthread_mutex_unlock(&mutex_sigaction);
 					(*s_etat_processus).erreur_systeme = d_es_signal;
 					return;
 				}
 
+				pthread_mutex_unlock(&mutex_sigaction);
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
@@ -1765,10 +1773,17 @@ instruction_write(struct_processus *s_et
 
 				if (sigaction(SIGPIPE, &registre, NULL) != 0)
 				{
+					pthread_mutex_unlock(&mutex_sigaction);
 					(*s_etat_processus).erreur_systeme = d_es_signal;
 					return;
 				}
 
+				if (pthread_mutex_unlock(&mutex_sigaction) != 0)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
+
 #				ifndef SEMAPHORES_NOMMES
 					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
@@ -1803,10 +1818,12 @@ instruction_write(struct_processus *s_et
 				{
 					if (sigaction(SIGPIPE, &registre, NULL) != 0)
 					{
+						pthread_mutex_unlock(&mutex_sigaction);
 						(*s_etat_processus).erreur_systeme = d_es_signal;
 						return;
 					}
 
+					pthread_mutex_unlock(&mutex_sigaction);
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
@@ -1814,9 +1831,16 @@ instruction_write(struct_processus *s_et
 
 			if (sigaction(SIGPIPE, &registre, NULL) != 0)
 			{
+				pthread_mutex_unlock(&mutex_sigaction);
 				(*s_etat_processus).erreur_systeme = d_es_signal;
 				return;
 			}
+
+			if (pthread_mutex_unlock(&mutex_sigaction) != 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
 		}
 		else
 		{ // Sockets non connectées