--- rpl/src/rpl.c	2015/01/30 07:53:15	1.166
+++ rpl/src/rpl.c	2016/03/16 12:54:22	1.181
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.20
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.25
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -229,7 +229,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	if ((arg_exec = malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL)
+	if ((arg_exec = sys_malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL)
 	{
 		if ((*s_etat_processus).langue == 'F')
 		{
@@ -248,7 +248,7 @@ rplinit(int argc, char *argv[], char *en
 		arg_exec[i] = argv[i];
 	}
 
-	argv[argc] = NULL;
+	arg_exec[argc] = NULL;
 
 	initialisation_contexte_cas(s_etat_processus);
 
@@ -299,6 +299,11 @@ rplinit(int argc, char *argv[], char *en
 	pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&mutex_liste_threads, &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
 #	ifndef SEMAPHORES_NOMMES
 		sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #	else
@@ -435,11 +440,11 @@ rplinit(int argc, char *argv[], char *en
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("+++Copyright (C) 1989 à 2014, 2015 BERTRAND Joël\n");
+			printf("+++Copyright (C) 1989 à 2015, 2016 BERTRAND Joël\n");
 		}
 		else
 		{
-			printf("+++Copyright (C) 1989 to 2014, 2015 BERTRAND Joel\n");
+			printf("+++Copyright (C) 1989 to 2015, 2016 BERTRAND Joel\n");
 		}
 	}
 
@@ -4985,7 +4990,7 @@ rplinit(int argc, char *argv[], char *en
 										(*(*((struct_processus_fils *)
 										(*(*((struct_liste_chainee *)
 										l_element_courant)).donnee).objet))
-										.thread).pid, rpl_sigurg);
+										.thread).pid, rpl_sigurg, d_faux);
 							}
 							else
 							{
@@ -4996,7 +5001,7 @@ rplinit(int argc, char *argv[], char *en
 											(*(*((struct_processus_fils *)
 											(*(*((struct_liste_chainee *)
 											l_element_courant)).donnee).objet))
-											.thread).pid, rpl_sigabort);
+											.thread).pid, rpl_sigabort, d_faux);
 								}
 								else
 								{
@@ -5004,7 +5009,7 @@ rplinit(int argc, char *argv[], char *en
 											(*(*((struct_processus_fils *)
 											(*(*((struct_liste_chainee *)
 											l_element_courant)).donnee).objet))
-											.thread).pid, rpl_sigstop);
+											.thread).pid, rpl_sigstop, d_faux);
 								}
 							}
 						}
@@ -5401,9 +5406,9 @@ rplinit(int argc, char *argv[], char *en
 					{
 						if ((*resultats) != NULL)
 						{
-							free((*resultats));
+							sys_free((*resultats));
 
-							if (((*resultats) = malloc(((size_t)
+							if (((*resultats) = sys_malloc(((size_t)
 									((*s_etat_processus)
 									.hauteur_pile_operationnelle + 1))
 									* sizeof(unsigned char **))) != NULL)
@@ -5726,7 +5731,6 @@ rplinit(int argc, char *argv[], char *en
 
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_pile_processus));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
-	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_interruptions));
 	pthread_mutex_destroy(&((*s_etat_processus).mutex_signaux));
 	pthread_mutex_destroy(&mutex_sections_critiques);
@@ -5758,11 +5762,13 @@ rplinit(int argc, char *argv[], char *en
 		erreur = d_erreur;
 	}
 
-	free(arg_exec);
-	arret_thread_signaux(s_etat_processus);
 	liberation_etat_processus_readline();
+
 	liberation_allocateur_buffer(s_etat_processus);
+	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));
+
 	sys_free(s_etat_processus);
+	sys_free(arg_exec);
 
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_verification();