--- rpl/src/rpl.c	2016/03/18 12:43:48	1.182
+++ rpl/src/rpl.c	2017/07/02 22:28:20	1.194
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.25
-  Copyright (C) 1989-2016 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.27
+  Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -123,8 +123,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
@@ -440,11 +445,11 @@ rplinit(int argc, char *argv[], char *en
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("+++Copyright (C) 1989 à 2015, 2016 BERTRAND Joël\n");
+			printf("+++Copyright (C) 1989 à 2016, 2017 BERTRAND Joël\n");
 		}
 		else
 		{
-			printf("+++Copyright (C) 1989 to 2015, 2016 BERTRAND Joel\n");
+			printf("+++Copyright (C) 1989 to 2016, 2017 BERTRAND Joel\n");
 		}
 	}
 
@@ -671,7 +676,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));
@@ -705,7 +710,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	raise(SIGALRM);
+	raise(SIGUSR2);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -715,7 +720,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));
@@ -5696,6 +5701,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));
@@ -5774,6 +5788,8 @@ informations(struct_processus *s_etat_pr
 		printf("      -i : fonctionnement interactif\n");
 		printf("      -l : licence d'utilisation\n");
 		printf("      -n : ignorance du signal HUP\n");
+		printf("      -m : chargement d'un module RPL/SO avant la "
+				"compilation\n");
 		printf("      -p : précompilation du script avant exécution\n");
 		printf("      -P : profilage (-P ou -PP)\n");
 		printf("      -s : empêchement de l'ouverture de l'écran initial\n");
@@ -5795,6 +5811,7 @@ informations(struct_processus *s_etat_pr
 		printf("      -i : runs the RPL/2 sequencer in interactive mode\n");
 		printf("      -l : prints the user licence of the software\n");
 		printf("      -n : ignores HUP signal\n");
+		printf("      -m : loads RPL/SO object before compilation\n");
 		printf("      -p : precompiles script\n");
 		printf("      -P : computes profile data (-P or -PP)\n");
 		printf("      -s : disables splash screen\n");