--- rpl/src/rpl.c	2017/07/30 21:59:41	1.197
+++ rpl/src/rpl.c	2019/02/03 14:41:27	1.206
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
-  Copyright (C) 1989-2017 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.
 
@@ -449,11 +449,11 @@ rplinit(int argc, char *argv[], char *en
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("+++Copyright (C) 1989 à 2016, 2017 BERTRAND Joël\n");
+			printf("+++Copyright (C) 1989 à 2018, 2019 BERTRAND Joël\n");
 		}
 		else
 		{
-			printf("+++Copyright (C) 1989 to 2016, 2017 BERTRAND Joel\n");
+			printf("+++Copyright (C) 1989 to 2018, 2019 BERTRAND Joel\n");
 		}
 	}
 
@@ -6116,13 +6116,29 @@ rplinit(int argc, char *argv[], char *en
 		INCR_GRANULARITE(attente.tv_nsec);
 	}
 
+	attente.tv_sec = 0;
+	attente.tv_nsec = GRANULARITE_us * 1000;
+
+	while(pthread_mutex_trylock(&((*s_etat_processus).mutex_pile_processus))
+			== EBUSY)
+	{
+		nanosleep(&attente, NULL);
+		INCR_GRANULARITE(attente.tv_nsec);
+	}
+
+	pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_pile_processus));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_interruptions));
-	pthread_mutex_destroy(&((*s_etat_processus).mutex_signaux));
 	pthread_mutex_destroy(&mutex_sections_critiques);
 	pthread_mutex_destroy(&mutex_liste_variables_partagees);
 
+	free((*s_etat_processus).localisation);
+
+	destruction_queue_signaux(s_etat_processus);
+	pthread_mutex_destroy(&((*s_etat_processus).mutex_signaux));
+	liberation_contexte_cas(s_etat_processus);
+
 #	ifndef SEMAPHORES_NOMMES
 	sem_post(&((*s_etat_processus).semaphore_fork));
 	sem_destroy(&((*s_etat_processus).semaphore_fork));
@@ -6132,11 +6148,6 @@ rplinit(int argc, char *argv[], char *en
 			SEM_FORK);
 #	endif
 
-	free((*s_etat_processus).localisation);
-
-	destruction_queue_signaux(s_etat_processus);
-	liberation_contexte_cas(s_etat_processus);
-
 	free((*s_etat_processus).chemin_fichiers_temporaires);
 
 	if ((*s_etat_processus).requete_redemarrage == d_vrai)
@@ -6153,6 +6164,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);
 
 	sys_free(s_etat_processus);
 	sys_free(arg_exec);