--- rpl/src/rpl.c	2019/02/17 16:08:41	1.211
+++ rpl/src/rpl.c	2023/08/07 14:32:56	1.219
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.31
-  Copyright (C) 1989-2019 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.34
+  Copyright (C) 1989-2021 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -315,29 +315,34 @@ rplinit(int argc, char *argv[], char *en
 
 	pthread_mutexattr_init(&attributs_mutex);
 	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&mutex_liste_threads_surveillance, &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
 	pthread_mutex_init(&mutex_sigaction, &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
 #	ifndef SEMAPHORES_NOMMES
-		sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
+		if (sem_init(&((*s_etat_processus).semaphore_fork), 0, 0) != 0)
 #	else
 		if (((*s_etat_processus).semaphore_fork = sem_init3(0, getpid(),
 				pthread_self(), SEM_FORK)) == SEM_FAILED)
-		{
-			liberation_contexte_cas(s_etat_processus);
-
-			if ((*s_etat_processus).langue == 'F')
-			{
-				uprintf("+++Système : Mémoire insuffisante\n");
-			}
-			else
-			{
-				uprintf("+++System : Not enough memory\n");
-			}
+#	endif
+	{
+		liberation_contexte_cas(s_etat_processus);
 
-			return(EXIT_FAILURE);
+		if ((*s_etat_processus).langue == 'F')
+		{
+			uprintf("+++Système : Mémoire insuffisante\n");
 		}
-#	endif
+		else
+		{
+			uprintf("+++System : Not enough memory\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
 
 	pthread_mutexattr_init(&attributs_mutex);
 	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
@@ -454,11 +459,11 @@ rplinit(int argc, char *argv[], char *en
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("+++Copyright (C) 1989 à 2018, 2019 BERTRAND Joël\n");
+			printf("+++Copyright (C) 1989 à 2022, 2023 BERTRAND Joël\n");
 		}
 		else
 		{
-			printf("+++Copyright (C) 1989 to 2018, 2019 BERTRAND Joel\n");
+			printf("+++Copyright (C) 1989 to 2022, 2023 BERTRAND Joel\n");
 		}
 	}
 
@@ -6176,6 +6181,7 @@ rplinit(int argc, char *argv[], char *en
 	liberation_allocateur_buffer(s_etat_processus);
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));
 	pthread_mutex_destroy(&mutex_liste_threads);
+	pthread_mutex_destroy(&mutex_liste_threads_surveillance);
 	pthread_mutex_destroy(&mutex_sigaction);
 
 	sys_free(s_etat_processus);