--- rpl/src/rpl.c	2015/01/05 15:32:24	1.163
+++ rpl/src/rpl.c	2016/10/11 11:57:02	1.188
@@ -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.26
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -27,6 +27,11 @@
 #pragma GCC diagnostic push
 #pragma GCC diagnostic ignored "-Wclobbered"
 
+#ifdef BROKEN_SIGSEGV
+#	undef HAVE_STACK_OVERFLOW_RECOVERY
+#	undef HAVE_SIGSEGV_RECOVERY
+#endif
+
 
 /*
 ================================================================================
@@ -123,8 +128,13 @@ rplinit(int argc, char *argv[], char *en
 	errno = 0;
 	s_queue_signaux = NULL;
 	routine_recursive = 0;
+	nombre_thread_surveillance_processus = 0;
 	pid_processus_pere = getpid();
 
+#	ifdef DEBUG_PROC
+	__proc = 0;
+#	endif
+
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_initialisation();
 #	endif
@@ -132,7 +142,57 @@ rplinit(int argc, char *argv[], char *en
 	setvbuf(stdout, NULL, _IOLBF, 0);
 	setvbuf(stderr, NULL, _IOLBF, 0);
 
-	if ((s_etat_processus = malloc(sizeof(struct_processus))) == NULL)
+	if ((s_etat_processus = sys_malloc(sizeof(struct_processus))) == NULL)
+	{
+		erreur = d_es_allocation_memoire;
+
+		if ((langue = getenv("LANG")) != NULL)
+		{
+			if (strncmp(langue, "fr", 2) == 0)
+			{
+				uprintf("+++Système : Mémoire insuffisante\n");
+			}
+			else
+			{
+				uprintf("+++System : Not enough memory\n");
+			}
+		}
+		else
+		{
+			uprintf("+++System : Not enough memory\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
+	(*s_etat_processus).erreur_systeme = d_es;
+
+	initialisation_allocateur_buffer(s_etat_processus);
+
+	if ((*s_etat_processus).erreur_systeme != d_es)
+	{
+		erreur = d_es_allocation_memoire;
+
+		if ((langue = getenv("LANG")) != NULL)
+		{
+			if (strncmp(langue, "fr", 2) == 0)
+			{
+				uprintf("+++Système : Mémoire insuffisante\n");
+			}
+			else
+			{
+				uprintf("+++System : Not enough memory\n");
+			}
+		}
+		else
+		{
+			uprintf("+++System : Not enough memory\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
+	if (initialisation_etat_processus_readline() != 0)
 	{
 		erreur = d_es_allocation_memoire;
 
@@ -179,7 +239,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')
 		{
@@ -198,7 +258,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);
 
@@ -234,6 +294,12 @@ rplinit(int argc, char *argv[], char *en
 	pthread_mutexattr_destroy(&attributs_mutex);
 
 	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_etat_processus).mutex_allocation_buffer),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	pthread_mutexattr_init(&attributs_mutex);
 	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
 	pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
@@ -243,6 +309,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
@@ -379,11 +450,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");
 		}
 	}
 
@@ -453,39 +524,6 @@ rplinit(int argc, char *argv[], char *en
 		}
 #	endif
 
-	if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur)
-	{
-#		ifndef SEMAPHORES_NOMMES
-			sem_post(&((*s_etat_processus).semaphore_fork));
-			sem_destroy(&((*s_etat_processus).semaphore_fork));
-#		else
-			sem_post((*s_etat_processus).semaphore_fork);
-			sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
-					pthread_self(), SEM_FORK);
-#		endif
-
-		liberation_contexte_cas(s_etat_processus);
-		destruction_queue_signaux(s_etat_processus);
-
-#		ifdef HAVE_STACK_OVERFLOW_RECOVERY
-			stackoverflow_deinstall_handler();
-#		endif
-
-		erreur = d_es_signal;
-
-		if ((*s_etat_processus).langue == 'F')
-		{
-			printf("+++Système : Initialisation des signaux POSIX "
-					"impossible\n");
-		}
-		else
-		{
-			printf("+++System : Initialization of POSIX signals failed\n");
-		}
-
-		return(EXIT_FAILURE);
-	}
-
 	action.sa_handler = interruption1;
 	action.sa_flags = 0;
 
@@ -643,7 +681,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	if (sigaction(SIGALRM, &action, NULL) != 0)
+	if (sigaction(SIGUSR2, &action, NULL) != 0)
 	{
 #		ifndef SEMAPHORES_NOMMES
 			sem_post(&((*s_etat_processus).semaphore_fork));
@@ -677,7 +715,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	raise(SIGALRM);
+	raise(SIGUSR2);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -687,7 +725,7 @@ rplinit(int argc, char *argv[], char *en
 		nanosleep(&attente, NULL);
 	}
 
-	if (signal_test != SIGALRM)
+	if (signal_test != SIGUSR2)
 	{
 #		ifndef SEMAPHORES_NOMMES
 			sem_post(&((*s_etat_processus).semaphore_fork));
@@ -1965,8 +2003,9 @@ rplinit(int argc, char *argv[], char *en
 							}
 
 							if (((*s_etat_processus).definitions_chainees =
-									compactage((*s_etat_processus)
-									.definitions_chainees)) == NULL)
+									compactage(s_etat_processus,
+									(*s_etat_processus).definitions_chainees))
+									== NULL)
 							{
 #								ifndef SEMAPHORES_NOMMES
 								sem_post(&((*s_etat_processus).semaphore_fork));
@@ -2418,7 +2457,7 @@ rplinit(int argc, char *argv[], char *en
 
 		if (debug == d_faux)
 		{
-#	ifdef HAVE_SIGSEGV_RECOVERY
+#	if defined(HAVE_SIGSEGV_RECOVERY)
 			if (sigsegv_install_handler(interruption_violation_access) != 0)
 			{
 #				ifndef SEMAPHORES_NOMMES
@@ -4928,7 +4967,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
 							{
@@ -4939,7 +4978,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
 								{
@@ -4947,7 +4986,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);
 								}
 							}
 						}
@@ -5344,9 +5383,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)
@@ -5667,6 +5706,15 @@ rplinit(int argc, char *argv[], char *en
 
 	retrait_thread(s_etat_processus);
 
+	attente.tv_sec = 0;
+	attente.tv_nsec = GRANULARITE_us * 1000;
+
+	while(nombre_thread_surveillance_processus != 0)
+	{
+		nanosleep(&attente, NULL);
+		INCR_GRANULARITE(attente.tv_nsec);
+	}
+
 	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));
@@ -5700,9 +5748,13 @@ rplinit(int argc, char *argv[], char *en
 		erreur = d_erreur;
 	}
 
-	free(arg_exec);
-	arret_thread_signaux(s_etat_processus);
-	free(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();
@@ -5828,7 +5880,7 @@ controle_integrite(struct_processus *s_e
 
 
 unsigned char *
-date_compilation()
+date_compilation(struct_processus *s_etat_processus)
 {
 	unsigned char		*date;