--- rpl/src/interruptions.c	2011/07/25 07:45:00	1.58
+++ rpl/src/interruptions.c	2011/09/14 17:55:59	1.68
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.2
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -57,6 +57,10 @@ static volatile struct_liste_chainee_vol
 		= NULL;
 static volatile struct_liste_chainee_volatile	*liste_threads_surveillance
 		= NULL;
+static volatile int								code_erreur_gsl = 0;
+
+static pthread_mutex_t							mutex_interruptions
+		= PTHREAD_MUTEX_INITIALIZER;
 
 void
 modification_pid_thread_pere(struct_processus *s_etat_processus)
@@ -74,29 +78,17 @@ modification_pid_thread_pere(struct_proc
 void
 insertion_thread(struct_processus *s_etat_processus, logical1 thread_principal)
 {
-	sigset_t									oldset;
-	sigset_t									set;
-
 	volatile struct_liste_chainee_volatile		*l_nouvel_objet;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
 	if ((l_nouvel_objet = malloc(sizeof(struct_liste_chainee_volatile)))
 			== NULL)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
 	if (((*l_nouvel_objet).donnee = malloc(sizeof(struct_thread))) == NULL)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
@@ -108,40 +100,21 @@ insertion_thread(struct_processus *s_eta
 	(*((struct_thread *) (*l_nouvel_objet).donnee)).s_etat_processus =
 			s_etat_processus;
 
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	(*l_nouvel_objet).suivant = liste_threads;
 	liste_threads = l_nouvel_objet;
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -149,38 +122,19 @@ void
 insertion_thread_surveillance(struct_processus *s_etat_processus,
 		struct_descripteur_thread *s_argument_thread)
 {
-	sigset_t									oldset;
-	sigset_t									set;
-
 	volatile struct_liste_chainee_volatile		*l_nouvel_objet;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
 	if ((l_nouvel_objet = malloc(sizeof(struct_liste_chainee_volatile)))
 			== NULL)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	pthread_mutex_lock(&((*s_argument_thread).mutex_nombre_references));
@@ -192,50 +146,25 @@ insertion_thread_surveillance(struct_pro
 
 	liste_threads_surveillance = l_nouvel_objet;
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
 void
 retrait_thread(struct_processus *s_etat_processus)
 {
-	sigset_t								oldset;
-	sigset_t								set;
-
 	volatile struct_liste_chainee_volatile	*l_element_precedent;
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_precedent = NULL;
@@ -256,14 +185,7 @@ retrait_thread(struct_processus *s_etat_
 
 	if (l_element_courant == NULL)
 	{
-#		ifndef SEMAPHORES_NOMMES
-		sem_post(&semaphore_liste_threads);
-#		else
-		sem_post(semaphore_liste_threads);
-#		endif
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -277,38 +199,15 @@ retrait_thread(struct_processus *s_etat_
 		(*l_element_precedent).suivant = (*l_element_courant).suivant;
 	}
 
-	if (pthread_setspecific(semaphore_fork_processus_courant, NULL) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
-
-#		ifndef SEMAPHORES_NOMMES
-		sem_post(&semaphore_liste_threads);
-#		else
-		sem_post(semaphore_liste_threads);
-#		endif
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-		return;
-	}
-
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
 		return;
 	}
 
 	free((void *) (*l_element_courant).donnee);
 	free((struct_liste_chainee_volatile *) l_element_courant);
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -316,29 +215,13 @@ void
 retrait_thread_surveillance(struct_processus *s_etat_processus,
 		struct_descripteur_thread *s_argument_thread)
 {
-	sigset_t								set;
-	sigset_t								oldset;
-
 	volatile struct_liste_chainee_volatile	*l_element_precedent;
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_precedent = NULL;
@@ -357,14 +240,7 @@ retrait_thread_surveillance(struct_proce
 
 	if (l_element_courant == NULL)
 	{
-#		ifndef SEMAPHORES_NOMMES
-		sem_post(&semaphore_liste_threads);
-#		else
-		sem_post(semaphore_liste_threads);
-#		endif
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -381,14 +257,7 @@ retrait_thread_surveillance(struct_proce
 	if (pthread_mutex_lock(&((*s_argument_thread).mutex_nombre_references))
 			!= 0)
 	{
-#		ifndef SEMAPHORES_NOMMES
-		sem_post(&semaphore_liste_threads);
-#		else
-		sem_post(semaphore_liste_threads);
-#		endif
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -404,14 +273,7 @@ retrait_thread_surveillance(struct_proce
 		if (pthread_mutex_unlock(&((*s_argument_thread)
 				.mutex_nombre_references)) != 0)
 		{
-#			ifndef SEMAPHORES_NOMMES
-			sem_post(&semaphore_liste_threads);
-#			else
-			sem_post(semaphore_liste_threads);
-#			endif
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
+			pthread_mutex_unlock(&mutex_liste_threads);
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
@@ -425,37 +287,19 @@ retrait_thread_surveillance(struct_proce
 		if (pthread_mutex_unlock(&((*s_argument_thread)
 				.mutex_nombre_references)) != 0)
 		{
-#			ifndef SEMAPHORES_NOMMES
-			sem_post(&semaphore_liste_threads);
-#			else
-			sem_post(semaphore_liste_threads);
-#			endif
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
+			pthread_mutex_unlock(&mutex_liste_threads);
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
 	}
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
 	free((struct_liste_chainee_volatile *) l_element_courant);
-
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	return;
 }
 
@@ -464,17 +308,10 @@ verrouillage_threads_concurrents(struct_
 {
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_courant = liste_threads;
@@ -485,19 +322,11 @@ verrouillage_threads_concurrents(struct_
 				== getpid()) && (pthread_equal((*((struct_thread *)
 				(*l_element_courant).donnee)).tid, pthread_self()) == 0))
 		{
-#			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*(*((struct_thread *) (*l_element_courant)
-					.donnee)).s_etat_processus).semaphore_fork)) == -1)
-#			else
-			while(sem_wait((*(*((struct_thread *) (*l_element_courant)
-					.donnee)).s_etat_processus).semaphore_fork) == -1)
-#			endif
+			if (pthread_mutex_lock(&((*(*((struct_thread *) (*l_element_courant)
+					.donnee)).s_etat_processus).mutex_fork)) == -1)
 			{
-				if (errno != EINTR)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
 			}
 		}
 
@@ -520,29 +349,15 @@ deverrouillage_threads_concurrents(struc
 				== getpid()) && (pthread_equal((*((struct_thread *)
 				(*l_element_courant).donnee)).tid, pthread_self()) == 0))
 		{
-#			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*(*((struct_thread *)
-					(*l_element_courant).donnee)).s_etat_processus)
-					.semaphore_fork)) != 0)
-#			else
-			if (sem_post((*(*((struct_thread *)
+			if (pthread_mutex_unlock(&((*(*((struct_thread *)
 					(*l_element_courant).donnee)).s_etat_processus)
-					.semaphore_fork) != 0)
-#			endif
+					.mutex_fork)) != 0)
 			{
-#				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&semaphore_liste_threads) != 0)
+				if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				else
-				if (sem_post(semaphore_liste_threads) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-#				endif
 
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -552,11 +367,7 @@ deverrouillage_threads_concurrents(struc
 		l_element_courant = (*l_element_courant).suivant;
 	}
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
@@ -570,9 +381,6 @@ liberation_threads(struct_processus *s_e
 {
 	logical1									suppression_variables_partagees;
 
-	sigset_t									oldset;
-	sigset_t									set;
-
 	struct_descripteur_thread					*s_argument_thread;
 
 	struct_processus							*candidat;
@@ -586,21 +394,10 @@ liberation_threads(struct_processus *s_e
 	volatile struct_liste_chainee_volatile		*l_element_courant;
 	volatile struct_liste_chainee_volatile		*l_element_suivant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_liste_threads) == -1)
-#	else
-	while(sem_wait(semaphore_liste_threads) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_liste_threads) == -1)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_courant = liste_threads;
@@ -684,7 +481,7 @@ liberation_threads(struct_processus *s_e
 						.mutex_nombre_references)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
-					sem_post(&semaphore_liste_threads);
+					pthread_mutex_unlock(&mutex_liste_threads);
 					return;
 				}
 
@@ -709,7 +506,7 @@ liberation_threads(struct_processus *s_e
 							.mutex_nombre_references)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
-						sem_post(&semaphore_liste_threads);
+						pthread_mutex_unlock(&mutex_liste_threads);
 						return;
 					}
 
@@ -734,7 +531,7 @@ liberation_threads(struct_processus *s_e
 							.mutex_nombre_references)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
-						sem_post(&semaphore_liste_threads);
+						pthread_mutex_unlock(&mutex_liste_threads);
 						return;
 					}
 				}
@@ -1310,14 +1107,10 @@ liberation_threads(struct_processus *s_e
 
 			liberation_allocateur(s_etat_processus);
 
-#			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_destroy2((*s_etat_processus).semaphore_fork, sem_fork);
-#			endif
+			pthread_mutex_unlock(&((*s_etat_processus).mutex_fork));
+			pthread_mutex_destroy(&((*s_etat_processus).mutex_fork));
 
+			liberation_contexte_cas(s_etat_processus);
 			free(s_etat_processus);
 
 			s_etat_processus = candidat;
@@ -1344,7 +1137,7 @@ liberation_threads(struct_processus *s_e
 				!= 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
-			sem_post(&semaphore_liste_threads);
+			pthread_mutex_unlock(&mutex_liste_threads);
 			return;
 		}
 
@@ -1368,7 +1161,7 @@ liberation_threads(struct_processus *s_e
 					.mutex_nombre_references)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
-				sem_post(&semaphore_liste_threads);
+				pthread_mutex_unlock(&mutex_liste_threads);
 				return;
 			}
 
@@ -1392,7 +1185,7 @@ liberation_threads(struct_processus *s_e
 					.mutex_nombre_references)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
-				sem_post(&semaphore_liste_threads);
+				pthread_mutex_unlock(&mutex_liste_threads);
 				return;
 			}
 		}
@@ -1404,19 +1197,12 @@ liberation_threads(struct_processus *s_e
 
 	liste_threads_surveillance = NULL;
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_liste_threads) != 0)
-#	else
-	if (sem_post(semaphore_liste_threads) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -1456,8 +1242,8 @@ recherche_thread(pid_t pid, pthread_t ti
 	return(s_etat_processus);
 }
 
-static logical1
-recherche_thread_principal(pid_t pid, pthread_t *thread)
+static struct_processus *
+recherche_thread_principal(pid_t pid)
 {
 	volatile struct_liste_chainee_volatile		*l_element_courant;
 
@@ -1481,12 +1267,11 @@ recherche_thread_principal(pid_t pid, pt
 		 * Le processus n'existe plus. On ne distribue aucun signal.
 		 */
 
-		return(d_faux);
+		return(NULL);
 	}
 
-	(*thread) = (*((struct_thread *) (*l_element_courant).donnee)).tid;
-
-	return(d_vrai);
+	return((*((struct_thread *) (*l_element_courant).donnee))
+			.s_etat_processus);
 }
 
 
@@ -1507,42 +1292,23 @@ recherche_thread_principal(pid_t pid, pt
 // les sémaphores sont déjà bloqués par un gestionnaire de signal.
 
 static inline void
-verrouillage_gestionnaire_signaux()
+verrouillage_gestionnaire_signaux(struct_processus *s_etat_processus)
 {
 	int			semaphore;
 
-	sigset_t	oldset;
-	sigset_t	set;
-
-	sem_t		*sem;
-
-	if ((sem = pthread_getspecific(semaphore_fork_processus_courant))
-			!= NULL)
+	if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork)) != 0)
 	{
-		if (sem_post(sem) != 0)
-		{
-			BUG(1, uprintf("Lock error !\n"));
-			return;
-		}
+		BUG(1, uprintf("Lock error !\n"));
+		return;
 	}
 
 	// Il faut respecteur l'atomicité des deux opérations suivantes !
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_gestionnaires_signaux_atomique) == -1)
-#	else
-	while(sem_wait(semaphore_gestionnaires_signaux_atomique) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			BUG(1, uprintf("Unlock error !\n"));
-			return;
-		}
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
 #	ifndef SEMAPHORES_NOMMES
@@ -1551,7 +1317,7 @@ verrouillage_gestionnaire_signaux()
 	if (sem_post(semaphore_gestionnaires_signaux) == -1)
 #	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Lock error !\n"));
 		return;
 	}
@@ -1562,18 +1328,14 @@ verrouillage_gestionnaire_signaux()
 	if (sem_getvalue(semaphore_gestionnaires_signaux, &semaphore) != 0)
 #	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Lock error !\n"));
 		return;
 	}
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_gestionnaires_signaux_atomique) != 0)
-#	else
-	if (sem_post(semaphore_gestionnaires_signaux_atomique) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
@@ -1586,64 +1348,29 @@ verrouillage_gestionnaire_signaux()
 		// par un thread concurrent. On essaye donc de le bloquer jusqu'à
 		// ce que ce soit possible.
 
-#		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&semaphore_liste_threads) == -1)
-#		else
-		while(sem_wait(semaphore_liste_threads) == -1)
-#		endif
+		if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 		{
-			if (errno != EINTR)
-			{
-				pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-
-				while(sem_wait(sem) == -1)
-				{
-					if (errno != EINTR)
-					{
-						BUG(1, uprintf("Lock error !\n"));
-						return;
-					}
-				}
-
-				BUG(1, uprintf("Lock error !\n"));
-				return;
-			}
+			pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+			BUG(1, uprintf("Lock error !\n"));
+			return;
 		}
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	return;
 }
 
 static inline void
-deverrouillage_gestionnaire_signaux()
+deverrouillage_gestionnaire_signaux(struct_processus *s_etat_processus)
 {
 	int			semaphore;
 
-	sem_t		*sem;
-
-	sigset_t	oldset;
-	sigset_t	set;
-
 	// Il faut respecteur l'atomicité des deux opérations suivantes !
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-#	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&semaphore_gestionnaires_signaux_atomique) == -1)
-#	else
-	while(sem_wait(semaphore_gestionnaires_signaux_atomique) == -1)
-#	endif
+	if (pthread_mutex_lock(&mutex_gestionnaires_signaux_atomique) == -1)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			BUG(1, uprintf("Unlock error !\n"));
-			return;
-		}
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
 #	ifndef SEMAPHORES_NOMMES
@@ -1652,7 +1379,7 @@ deverrouillage_gestionnaire_signaux()
 	if (sem_getvalue(semaphore_gestionnaires_signaux, &semaphore) != 0)
 #	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
@@ -1665,290 +1392,264 @@ deverrouillage_gestionnaire_signaux()
 	{
 		if (errno != EINTR)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+			pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 			BUG(1, uprintf("Unlock error !\n"));
 			return;
 		}
 	}
 
-#	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&semaphore_gestionnaires_signaux_atomique) != 0)
-#	else
-	if (sem_post(semaphore_gestionnaires_signaux_atomique) != 0)
-#	endif
+	if (pthread_mutex_unlock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
 
-	if ((sem = pthread_getspecific(semaphore_fork_processus_courant))
-			!= NULL)
+	if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 	{
-		while(sem_wait(sem) == -1)
-		{
-			if (errno != EINTR)
-			{
-				pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-				BUG(1, uprintf("Unlock error !\n"));
-				return;
-			}
-		}
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
 	if (semaphore == 1)
 	{
-#		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&semaphore_liste_threads) != 0)
-#		else
-		if (sem_post(semaphore_liste_threads) != 0)
-#		endif
+		if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-
 			BUG(1, uprintf("Unlock error !\n"));
 			return;
 		}
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	return;
 }
 
+#define test_signal(signal) \
+	if (signal_test == SIGTEST) { signal_test = signal; return; }
+
+// Récupération des signaux
+// - SIGINT	(arrêt au clavier)
+// - SIGTERM (signal d'arrêt en provenance du système)
+
 void
-interruption1(SIGHANDLER_ARGS)
+interruption1(int signal)
 {
-	pid_t					pid;
+	test_signal(signal);
 
-	pthread_t				thread;
+	switch(signal)
+	{
+		case SIGINT:
+			envoi_signal_processus(getpid(), rpl_sigint);
+			break;
 
-	struct_processus		*s_etat_processus;
+		case SIGTERM:
+			envoi_signal_processus(getpid(), rpl_sigterm);
+			break;
 
-	volatile sig_atomic_t	exclusion = 0;
+		case SIGALRM:
+			envoi_signal_processus(getpid(), rpl_sigalrm);
+			break;
+	}
 
-	verrouillage_gestionnaire_signaux();
+	return;
+}
 
-#	ifdef _BROKEN_SIGINFO
-	if ((signal == SIGINT) || (signal == SIGTERM))
-	{
-		// Si l'interruption provient du clavier, il n'y a pas eu d'appel
-		// à queue_in().
+inline static void
+signal_alrm(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
-		pid = getpid();
-	}
-	else
-	{
-		pid = origine_signal(signal);
-	}
-#	else
-	if (siginfo != NULL)
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
 	{
-		pid = (*siginfo).si_pid;
+		// Si pid est égal à getpid(), le signal à traiter est issu
+		// du même processus que celui qui va le traiter, mais d'un thread
+		// différent.
+
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/SIGALRM (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
+
+		if ((*s_etat_processus).pid_processus_pere != getpid())
+		{
+			// On n'est pas dans le processus père, on remonte le signal.
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigalrm);
+		}
+		else
+		{
+			// On est dans le processus père, on effectue un arrêt d'urgence.
+			(*s_etat_processus).var_volatile_alarme = -1;
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+		}
 	}
 	else
 	{
-		pid = getpid();
-	}
-#	endif
+		// Le signal est issu d'un processus différent. On recherche le
+		// thread principal pour remonter le signal.
 
-	switch(signal)
-	{
-		case SIGALRM :
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			if (pid == getpid())
-			{
-				if ((s_etat_processus = recherche_thread(getpid(),
-						pthread_self())) == NULL)
-				{
-					deverrouillage_gestionnaire_signaux();
-					 return;
-				}
+			envoi_signal_contexte(s_thread_principal, rpl_sigalrm);
+		}
+	}
 
-				if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-				{
-					printf("[%d] SIGALRM (thread %llu)\n", (int) getpid(),
-							(unsigned long long) pthread_self());
-					fflush(stdout);
-				}
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+	return;
+}
 
-				if ((*s_etat_processus).pid_processus_pere != getpid())
-				{
-					kill((*s_etat_processus).pid_processus_pere, signal);
-				}
-				else
-				{
-					(*s_etat_processus).var_volatile_alarme = -1;
-					(*s_etat_processus).var_volatile_requete_arret = -1;
-				}
-			}
-			else
-			{
-				if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-				{
-					pthread_kill(thread, signal);
-				}
-			}
+inline static void
+signal_term(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+	volatile sig_atomic_t	exclusion = 0;
 
-			break;
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
+	{
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/SIGTERM (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
 		}
 
-		case SIGINT :
-		case SIGTERM :
+		if ((*s_etat_processus).pid_processus_pere != getpid())
+		{
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigterm);
+		}
+		else
 		{
-			/*
-			 * Une vieille spécification POSIX permet au pointeur siginfo
-			 * d'être nul dans le cas d'un ^C envoyé depuis le clavier.
-			 * Solaris suit en particulier cette spécification.
-			 */
+			(*s_etat_processus).var_volatile_traitement_sigint = -1;
+
+			while(exclusion == 1);
+			exclusion = 1;
 
-#			ifndef _BROKEN_SIGINFO
-			if (siginfo == NULL)
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
 			{
-				kill(getpid(), signal);
+				deverrouillage_gestionnaire_signaux(s_etat_processus);
+				exclusion = 0;
+				return;
 			}
-			else
-#			endif
-			if (pid == getpid())
-			{
-				if ((s_etat_processus = recherche_thread(getpid(),
-						pthread_self())) == NULL)
-				{
-					deverrouillage_gestionnaire_signaux();
-					return;
-				}
 
-				if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-				{
-					if (signal == SIGINT)
-					{
-						printf("[%d] SIGINT (thread %llu)\n", (int) getpid(),
-								(unsigned long long) pthread_self());
-					}
-					else
-					{
-						printf("[%d] SIGTERM (thread %llu)\n", (int) getpid(),
-								(unsigned long long) pthread_self());
-					}
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
 
-					fflush(stdout);
-				}
+			exclusion = 0;
+		}
+	}
+	else
+	{
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigterm);
+		}
+	}
 
-				if ((*s_etat_processus).pid_processus_pere != getpid())
-				{
-					kill((*s_etat_processus).pid_processus_pere, signal);
-				}
-				else
-				{
-					(*s_etat_processus).var_volatile_traitement_sigint = -1;
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+	return;
+}
 
-					while(exclusion == 1);
-					exclusion = 1;
+inline static void
+signal_int(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+	volatile sig_atomic_t	exclusion = 0;
 
-					if ((*s_etat_processus).var_volatile_requete_arret == -1)
-					{
-						deverrouillage_gestionnaire_signaux();
-						exclusion = 0;
-						return;
-					}
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-					if (signal == SIGINT)
-					{
-						if (strncmp(getenv("LANG"), "fr", 2) == 0)
-						{
-							printf("+++Interruption\n");
-						}
-						else
-						{
-							printf("+++Interrupt\n");
-						}
+	if (pid == getpid())
+	{
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/SIGINT (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
 
-						fflush(stdout);
-					}
+		if ((*s_etat_processus).pid_processus_pere != getpid())
+		{
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigint);
+		}
+		else
+		{
+			(*s_etat_processus).var_volatile_traitement_sigint = -1;
 
-					(*s_etat_processus).var_volatile_requete_arret = -1;
-					(*s_etat_processus).var_volatile_alarme = -1;
+			while(exclusion == 1);
+			exclusion = 1;
 
-					exclusion = 0;
-				}
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
+			{
+				deverrouillage_gestionnaire_signaux(s_etat_processus);
+				exclusion = 0;
+				return;
+			}
+
+			if ((*s_etat_processus).langue == 'F')
+			{
+				printf("+++Interruption\n");
 			}
 			else
 			{
-				if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-				{
-					pthread_kill(thread, signal);
-				}
+				printf("+++Interrupt\n");
 			}
 
-			break;
-		}
+			fflush(stdout);
+
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
 
-		default :
+			exclusion = 0;
+		}
+	}
+	else
+	{
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			BUG(1, uprintf("[%d] Unknown signal %d in this context\n",
-					(int) getpid(), signal));
-			break;
+			envoi_signal_contexte(s_thread_principal, rpl_sigint);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGFSTP
+//
+// ATTENTION :
+// Le signal SIGFSTP provient de la mort du processus de contrôle.
+// Sous certains systèmes (Linux...), la mort du terminal de contrôle
+// se traduit par l'envoi d'un SIGHUP au processus. Sur d'autres
+// (SunOS), le processus reçoit un SIGFSTP avec une structure siginfo
+// non initialisée (pointeur NULL) issue de TERMIO.
+
 void
-interruption2(SIGHANDLER_ARGS)
+interruption2(int signal)
 {
-	pid_t					pid;
-
-	pthread_t				thread;
-
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
+	test_signal(signal);
+	envoi_signal_processus(getpid(), rpl_sigtstp);
+	return;
+}
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	if (siginfo != NULL)
-	{
-		pid = (*siginfo).si_pid;
-	}
-	else
-	{
-		pid = getpid();
-	}
-#	endif
+static inline void
+signal_tstp(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
-#	ifndef _BROKEN_SIGINFO
-	if (siginfo == NULL)
-	{
-		/*
-		 * Le signal SIGFSTP provient de la mort du processus de contrôle.
-		 * Sous certains systèmes (Linux...), la mort du terminal de contrôle
-		 * se traduit par l'envoi d'un SIGHUP au processus. Sur d'autres
-		 * (SunOS), le processus reçoit un SIGFSTP avec une structure siginfo
-		 * non initialisée (pointeur NULL) issue de TERMIO.
-		 */
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-		{
-			pthread_kill(thread, SIGHUP);
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-	}
-	else
-#	endif
 	if (pid == getpid())
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
-		{
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-
 		/*
 		 *  0 => fonctionnement normal
 		 * -1 => requête
@@ -1957,14 +1658,15 @@ interruption2(SIGHANDLER_ARGS)
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGTSTP (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGTSTP (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
 
 		if ((*s_etat_processus).var_volatile_processus_pere == 0)
 		{
-			kill((*s_etat_processus).pid_processus_pere, signal);
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigtstp);
 		}
 		else
 		{
@@ -1975,38 +1677,52 @@ interruption2(SIGHANDLER_ARGS)
 	{
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, SIGTSTP);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigtstp);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
 void
-interruption3(SIGHANDLER_ARGS)
+interruption3(int signal)
 {
-	pid_t					pid;
+	// Si on passe par ici, c'est qu'il est impossible de récupérer
+	// l'erreur d'accès à la mémoire. On sort donc du programme quitte à
+	// ce qu'il reste des processus orphelins.
 
-	struct_processus		*s_etat_processus;
+	unsigned char		message[] = "+++System : Uncaught access violation\n"
+								"+++System : Aborting !\n";
 
-	static int				compteur = 0;
+	test_signal(signal);
 
-	verrouillage_gestionnaire_signaux();
+	if (pid_processus_pere == getpid())
+	{
+		kill(pid_processus_pere, SIGALRM);
+	}
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	write(STDERR_FILENO, message, strlen(message));
+	_exit(EXIT_FAILURE);
+}
+
+#if 0
+// Utiliser libsigsegv
+void INTERRUPTION3_A_FIXER()
+{
+	pthread_t				thread;
+
+	struct_processus		*s_etat_processus;
+
+	test_signal(signal);
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
@@ -2020,7 +1736,7 @@ interruption3(SIGHANDLER_ARGS)
 	if ((*s_etat_processus).var_volatile_recursivite == -1)
 	{
 		// Segfault dans un appel de fonction récursive
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		longjmp(contexte, -1);
 	}
 	else
@@ -2028,98 +1744,128 @@ interruption3(SIGHANDLER_ARGS)
 		// Segfault dans une routine interne
 		if (strncmp(getenv("LANG"), "fr", 2) == 0)
 		{
-			printf("+++Système : Violation d'accès (dépassement de pile)\n");
+			printf("+++Système : Violation d'accès\n");
 		}
 		else
 		{
-			printf("+++System : Access violation (stack overflow)\n");
+			printf("+++System : Access violation\n");
 		}
 
 		fflush(stdout);
 
-		compteur++;
+		(*s_etat_processus).compteur_violation_d_acces++;
 
-		if (compteur > 1)
+		if ((*s_etat_processus).compteur_violation_d_acces > 1)
 		{
-			deverrouillage_gestionnaire_signaux();
+			// On vient de récupérer plus d'une erreur de segmentation
+			// dans le même processus ou le même thread. L'erreur n'est pas
+			// récupérable et on sort autoritairement du programme. Il peut
+			// rester des processus orphelins en attente !
+
+			if (strncmp(getenv("LANG"), "fr", 2) == 0)
+			{
+				printf("+++Système : Violation d'accès, tentative de "
+						"terminaison de la tâche\n");
+				printf("             (defauts multiples)\n");
+			}
+			else
+			{
+				printf("+++System : Access violation, trying to kill task "
+						"(multiple defaults)\n");
+			}
+
+			fflush(stdout);
+
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			exit(EXIT_FAILURE);
 		}
 		else
 		{
-			deverrouillage_gestionnaire_signaux();
-			longjmp(contexte_initial, -1);
-		}
-	}
+			// Première erreur de segmentation. On essaie de terminer
+			// proprement le thread ou le processus. Le signal ne peut être
+			// envoyé que depuis le même processus.
 
-	deverrouillage_gestionnaire_signaux();
-	return;
-}
-
-void
-interruption4(SIGHANDLER_ARGS)
-{
-	pid_t					pid;
+			if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+			{
+				if (pthread_equal(thread, pthread_self()) != 0)
+				{
+					deverrouillage_gestionnaire_signaux(s_etat_processus);
 
-	struct_processus		*s_etat_processus;
+					if ((*s_etat_processus).pid_processus_pere != getpid())
+					{
+						// On est dans le thread principal d'un processus.
 
-	verrouillage_gestionnaire_signaux();
+						longjmp(contexte_processus, -1);
+					}
+					else
+					{
+						// On est dans le thread principal du processus
+						// père.
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+						longjmp(contexte_initial, -1);
+					}
+				}
+				else
+				{
+					// On est dans un thread fils d'un thread principal.
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
-	{
-		deverrouillage_gestionnaire_signaux();
-		return;
-	}
+					deverrouillage_gestionnaire_signaux(s_etat_processus);
+					longjmp(contexte_thread, -1);
+				}
+			}
 
-	/*
-	 * Démarrage d'un processus fils ou gestion de SIGCONT (SUSPEND)
-	 */
+			// Là, on ramasse les miettes puisque le thread n'existe plus
+			// dans la base (corruption de la mémoire).
 
-	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-	{
-		printf("[%d] SIGSTART/SIGCONT (thread %llu)\n", (int) getpid(),
-				(unsigned long long) pthread_self());
-		fflush(stdout);
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
+			longjmp(contexte_initial, -1);
+		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
+#endif
 
-void
-interruption5(SIGHANDLER_ARGS)
+// Traitement de rpl_sigstart
+
+static inline void
+signal_start(struct_processus *s_etat_processus, pid_t pid)
 {
-	pid_t					pid;
+	(*s_etat_processus).demarrage_fils = d_vrai;
+	return;
+}
 
-	pthread_t				thread;
+// Traitement de rpl_sigcont
 
-	struct_processus		*s_etat_processus;
+static inline void
+signal_cont(struct_processus *s_etat_processus, pid_t pid)
+{
+	(*s_etat_processus).redemarrage_processus = d_vrai;
+	return;
+}
 
-	verrouillage_gestionnaire_signaux();
+// Traitement de rpl_sigstop
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+static inline void
+signal_stop(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
 				== NULL)
 		{
-			deverrouillage_gestionnaire_signaux();
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			return;
 		}
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGFSTOP (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGFSTOP (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
@@ -2145,120 +1891,86 @@ interruption5(SIGHANDLER_ARGS)
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
 				== NULL)
 		{
-			deverrouillage_gestionnaire_signaux();
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			return;
 		}
 
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, signal);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigstop);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
-void
-interruption6(SIGHANDLER_ARGS)
-{
-	pid_t					pid;
+// Traitement de rpl_siginject
 
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
-
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+static inline void
+signal_inject(struct_processus *s_etat_processus, pid_t pid)
+{
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
 	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 	{
-		printf("[%d] SIGINJECT/SIGQUIT (thread %llu)\n", (int) getpid(),
+		printf("[%d] RPL/SIGINJECT (thread %llu)\n", (int) getpid(),
 				(unsigned long long) pthread_self());
 		fflush(stdout);
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGPIPE
+
 void
-interruption7(SIGHANDLER_ARGS)
+interruption5(int signal)
 {
-	pid_t					pid;
-
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
-
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	unsigned char		message[] = "+++System : SIGPIPE\n"
+								"+++System : Aborting !\n";
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
-	{
-		deverrouillage_gestionnaire_signaux();
-		return;
-	}
+	test_signal(signal);
 
-	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+	if (pid_processus_pere == getpid())
 	{
-		printf("[%d] SIGPIPE (thread %llu)\n", (int) getpid(),
-				(unsigned long long) pthread_self());
-		fflush(stdout);
+		envoi_signal_processus(pid_processus_pere, rpl_sigalrm);
 	}
 
-	(*s_etat_processus).var_volatile_requete_arret = -1;
-	deverrouillage_gestionnaire_signaux();
-
-	BUG(1, printf("[%d] SIGPIPE\n", (int) getpid()));
+	write(STDERR_FILENO, message, strlen(message));
 	return;
 }
 
-void
-interruption8(SIGHANDLER_ARGS)
+static inline void
+signal_urg(struct_processus *s_etat_processus, pid_t pid)
 {
-	pid_t					pid;
+	struct_processus		*s_thread_principal;
 
-	pthread_t				thread;
-
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
-
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
 				== NULL)
 		{
-			deverrouillage_gestionnaire_signaux();
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			return;
 		}
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGURG (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGURG (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
@@ -2270,83 +1982,120 @@ interruption8(SIGHANDLER_ARGS)
 	{
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, SIGURG);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigurg);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
-void
-interruption9(SIGHANDLER_ARGS)
-{
-	pid_t					pid;
+// Traitement de rpl_sigabort
 
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
+static inline void
+signal_abort(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
 	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 	{
-		printf("[%d] SIGABORT/SIGPROF (thread %llu)\n", (int) getpid(),
+		printf("[%d] RPL/SIGABORT (thread %llu)\n", (int) getpid(),
 				(unsigned long long) pthread_self());
 		fflush(stdout);
 	}
 
-#	ifdef _BROKEN_SIGINFO
-	if (queue_in(getpid(), signal) != 0)
+	if (pid == getpid())
 	{
-		return;
+		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
+				== NULL)
+		{
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
+			return;
+		}
+
+		(*s_etat_processus).arret_depuis_abort = -1;
+
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] SIGFABORT (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
+
+		/*
+		 * var_globale_traitement_retarde_stop :
+		 *  0 -> traitement immédiat
+		 *  1 -> traitement retardé (aucun signal reçu)
+		 * -1 -> traitement retardé (un ou plusieurs signaux stop reçus)
+		 */
+
+		if ((*s_etat_processus).var_volatile_traitement_retarde_stop == 0)
+		{
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+		}
+		else
+		{
+			(*s_etat_processus).var_volatile_traitement_retarde_stop = -1;
+		}
 	}
+	else
+	{
+		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
+				== NULL)
+		{
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
+			return;
+		}
 
-	deverrouillage_gestionnaire_signaux();
-	interruption11(signal);
-#	else
-	deverrouillage_gestionnaire_signaux();
-	interruption11(signal, siginfo, context);
-#	endif
+		(*s_etat_processus).arret_depuis_abort = -1;
+
+		// Envoi d'un signal au thread maître du groupe.
+
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigabort);
+		}
+	}
+
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGHUP
+
 void
-interruption10(SIGHANDLER_ARGS)
+interruption4(int signal)
 {
-	file					*fichier;
-
-	pid_t					pid;
+	test_signal(signal);
+	envoi_signal_processus(getpid(), rpl_sighup);
+	return;
+}
 
-	struct_processus		*s_etat_processus;
+static inline void
+signal_hup(struct_processus *s_etat_processus, pid_t pid)
+{
+	file					*fichier;
 
 	unsigned char			nom[8 + 64 + 1];
 
-	verrouillage_gestionnaire_signaux();
-
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
@@ -2370,102 +2119,561 @@ interruption10(SIGHANDLER_ARGS)
 		fflush(stdout);
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
 void
-interruption11(SIGHANDLER_ARGS)
+traitement_exceptions_gsl(const char *reason, const char *file,
+		int line, int gsl_errno)
 {
-	pid_t					pid;
+	code_erreur_gsl = gsl_errno;
+	envoi_signal_processus(getpid(), rpl_sigexcept);
+	return;
+}
 
-	pthread_t				thread;
+static inline void
+signal_except(struct_processus *s_etat_processus, pid_t pid)
+{
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-	struct_processus		*s_etat_processus;
+	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
+	{
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
+		return;
+	}
 
-	verrouillage_gestionnaire_signaux();
+	(*s_etat_processus).var_volatile_exception_gsl = code_erreur_gsl;
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	return;
+}
 
-	if (pid == getpid())
+static inline void
+envoi_interruptions(struct_processus *s_etat_processus, enum signaux_rpl signal,
+		pid_t pid_source)
+{
+	unsigned char		message[] = "+++System : Spurious signa !\n";
+
+	switch(signal)
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
+		case rpl_sigint:
+			signal_int(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigterm:
+			signal_term(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigstart:
+			signal_start(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigcont:
+			signal_cont(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigstop:
+			signal_stop(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigabort:
+			signal_abort(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigurg:
+			signal_urg(s_etat_processus, pid_source);
+			break;
+
+		case rpl_siginject:
+			signal_inject(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigalrm:
+			signal_alrm(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sighup:
+			signal_hup(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigtstp:
+			signal_tstp(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigexcept:
+			signal_except(s_etat_processus, pid_source);
+			break;
+
+		default:
+			write(STDERR_FILENO, message, strlen(message));
+			break;
+	}
+
+	return;
+}
+
+void
+scrutation_interruptions(struct_processus *s_etat_processus)
+{
+	// Interruptions qui arrivent sur le processus depuis un
+	// processus externe.
+
+	// Les pointeurs de lecture pointent sur les prochains éléments
+	// à lire. Les pointeurs d'écriture pointent sur les prochains éléments à
+	// écrire.
+
+	if (pthread_mutex_trylock(&((*s_queue_signaux).mutex)) == 0)
+	{
+		if ((*s_queue_signaux).pointeur_lecture !=
+				(*s_queue_signaux).pointeur_ecriture)
 		{
-			deverrouillage_gestionnaire_signaux();
-			return;
+			// Il y a un signal en attente dans le segment partagé. On le
+			// traite.
+
+			envoi_interruptions(s_etat_processus,
+					(*s_queue_signaux).queue[(*s_queue_signaux)
+					.pointeur_lecture].signal, (*s_queue_signaux).queue
+					[(*s_queue_signaux).pointeur_lecture].pid);
+			(*s_queue_signaux).pointeur_lecture =
+					((*s_queue_signaux).pointeur_lecture + 1)
+					% LONGUEUR_QUEUE_SIGNAUX;
 		}
 
-		(*s_etat_processus).arret_depuis_abort = -1;
+		pthread_mutex_unlock(&((*s_queue_signaux).mutex));
+	}
 
-		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+	// Interruptions qui arrivent depuis le groupe courant de threads.
+
+	if (pthread_mutex_trylock(&mutex_interruptions) == 0)
+	{
+		if ((*s_etat_processus).pointeur_signal_lecture !=
+				(*s_etat_processus).pointeur_signal_ecriture)
 		{
-			printf("[%d] SIGFABORT (thread %llu)\n", (int) getpid(),
-					(unsigned long long) pthread_self());
-			fflush(stdout);
+			// Il y a un signal dans la queue du thread courant. On le traite.
+
+			envoi_interruptions(s_etat_processus,
+					(*s_etat_processus).signaux_en_queue
+					[(*s_etat_processus).pointeur_signal_lecture],
+					getpid());
+			(*s_etat_processus).pointeur_signal_lecture =
+					((*s_etat_processus).pointeur_signal_lecture + 1)
+					% LONGUEUR_QUEUE_SIGNAUX;
 		}
 
-		/*
-		 * var_globale_traitement_retarde_stop :
-		 *  0 -> traitement immédiat
-		 *  1 -> traitement retardé (aucun signal reçu)
-		 * -1 -> traitement retardé (un ou plusieurs signaux stop reçus)
-		 */
+		pthread_mutex_unlock(&mutex_interruptions);
+	}
 
-		if ((*s_etat_processus).var_volatile_traitement_retarde_stop == 0)
+	return;
+}
+
+int
+envoi_signal_processus(pid_t pid, enum signaux_rpl signal)
+{
+	// Il s'agit d'ouvrir le segment de mémoire partagée, de le projeter en
+	// mémoire puis d'y inscrire le signal à traiter.
+
+	return(0);
+}
+
+int
+envoi_signal_thread(pthread_t tid, enum signaux_rpl signal)
+{
+	// Un signal est envoyé d'un thread à un autre thread du même processus.
+
+	volatile struct_liste_chainee_volatile	*l_element_courant;
+
+	struct_processus						*s_etat_processus;
+
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
+	{
+		return(1);
+	}
+
+	l_element_courant = liste_threads;
+
+	while(l_element_courant != NULL)
+	{
+		if (((*((struct_thread *) (*l_element_courant).donnee)).pid
+				== getpid()) && (pthread_equal((*((struct_thread *)
+				(*l_element_courant).donnee)).tid, tid) != 0))
 		{
-			(*s_etat_processus).var_volatile_requete_arret = -1;
+			break;
 		}
-		else
+
+		l_element_courant = (*l_element_courant).suivant;
+	}
+
+	if (l_element_courant == NULL)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	if (pthread_mutex_lock(&mutex_interruptions) != 0)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	s_etat_processus = (*((struct_thread *) (*l_element_courant).donnee))
+			.s_etat_processus;
+
+	(*s_etat_processus).signaux_en_queue
+			[(*s_etat_processus).pointeur_signal_ecriture] = signal;
+	(*s_etat_processus).pointeur_signal_ecriture =
+			((*s_etat_processus).pointeur_signal_ecriture + 1)
+			% LONGUEUR_QUEUE_SIGNAUX;
+
+	if (pthread_mutex_unlock(&mutex_interruptions) != 0)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
+	{
+		return(1);
+	}
+
+	return(0);
+}
+
+int
+envoi_signal_contexte(struct_processus *s_etat_processus_a_signaler,
+		enum signaux_rpl signal)
+{
+	pthread_mutex_lock(&mutex_interruptions);
+	(*s_etat_processus_a_signaler).signaux_en_queue
+			[(*s_etat_processus_a_signaler).pointeur_signal_ecriture] =
+			signal;
+	(*s_etat_processus_a_signaler).pointeur_signal_ecriture =
+			((*s_etat_processus_a_signaler).pointeur_signal_ecriture + 1)
+			% LONGUEUR_QUEUE_SIGNAUX;
+	pthread_mutex_unlock(&mutex_interruptions);
+
+	return(0);
+}
+
+
+/*
+================================================================================
+  Fonction renvoyant le nom du segment de mémoire partagée en fonction
+  du pid du processus.
+================================================================================
+  Entrée : Chemin absolue servant de racine, pid du processus
+--------------------------------------------------------------------------------
+  Sortie : NULL ou nom du segment
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+static unsigned char *
+nom_segment(unsigned char *chemin, pid_t pid)
+{
+	unsigned char				*fichier;
+
+#	ifdef IPCS_SYSV // !POSIX
+#		ifndef OS2 // !OS2
+
+			if ((fichier = malloc((strlen(chemin) + 1 + 256 + 1) *
+					sizeof(unsigned char))) == NULL)
+			{
+				return(NULL);
+			}
+
+			sprintf(fichier, "%s/RPL-SIGQUEUES-%d", chemin, (int) pid);
+#		else // OS2
+			if ((fichier = malloc((10 + 256 + 1) * sizeof(unsigned char)))
+					== NULL)
+			{
+				return(NULL);
+			}
+
+			sprintf(fichier, "\\SHAREMEM\\RPL-SIGQUEUES-%d", (int) pid);
+#		endif // OS2
+#	else // POSIX
+
+		if ((fichier = malloc((1 + 256 + 1) *
+				sizeof(unsigned char))) == NULL)
 		{
-			(*s_etat_processus).var_volatile_traitement_retarde_stop = -1;
+			return(NULL);
 		}
+
+		sprintf(fichier, "/RPL-SIGQUEUES-%d", (int) pid);
+#	endif
+
+	return(fichier);
+}
+
+
+/*
+================================================================================
+  Fonction créant un segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+void
+creation_queue_signaux(struct_processus *s_etat_processus)
+{
+	int								segment;
+
+	pthread_mutexattr_t				attributs_mutex;
+
+	unsigned char					*nom;
+
+#	ifndef IPCS_SYSV // POSIX
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
 	}
-	else
+
+	if ((segment = shm_open(nom, O_RDWR | O_CREAT | O_EXCL,
+			S_IRUSR | S_IWUSR)) == -1)
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (ftruncate(segment, sizeof(struct_queue_signaux)) == -1)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	s_queue_signaux = mmap(NULL, sizeof(struct_queue_signaux),
+			PROT_READ | PROT_WRITE, MAP_SHARED, segment, 0);
+	close(segment);
+
+	if (((void *) s_queue_signaux) == ((void *) -1))
+	{
+		if (shm_unlink(nom) == -1)
 		{
-			deverrouillage_gestionnaire_signaux();
+			free(nom);
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
-		(*s_etat_processus).arret_depuis_abort = -1;
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
 
-		// Envoi d'un signal au thread maître du groupe.
+	free(nom);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_queue_signaux).mutex), &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	(*s_queue_signaux).pointeur_lecture = 0;
+	(*s_queue_signaux).pointeur_ecriture = 0;
+
+#	else // SystemV
+#	ifndef OS2
+
+	file							*desc;
+
+	key_t							clef;
+
+	// Création d'un segment de données associé au PID du processus courant
+
+	chemin = (*s_etat_processus).chemin_fichiers_temporaires;
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((desc = fopen(nom, "w")) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+		return;
+	}
+
+	fclose(desc);
+
+	if ((clef = ftok(nom, 1)) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+	if ((segment = shmget(clef,
+			nombre_queues * ((2 * longueur_queue) + 4) * sizeof(int),
+			IPC_CREAT | IPC_EXCL | S_IRUSR | S_IWUSR)) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	fifos = shmat(segment, NULL, 0);
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+	if (((void *) fifos) == ((void *) -1))
+	{
+		if (shmctl(segment, IPC_RMID, 0) == -1)
 		{
-			pthread_kill(thread, signal);
-			deverrouillage_gestionnaire_signaux();
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
+
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
 	}
 
-	deverrouillage_gestionnaire_signaux();
+#	else
+
+	if ((nom = nom_segment(NULL, getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (DosAllocSharedMem(&ptr_os2, nom, nombre_queues *
+			((2 * longueur_queue) + 4) * sizeof(int),
+			PAG_WRITE | PAG_READ | PAG_COMMIT) != 0)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+	fifos = ptr_os2;
+
+#	endif
+#	endif
+
 	return;
 }
 
+
+/*
+================================================================================
+  Fonction libérant le segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
 void
-traitement_exceptions_gsl(const char *reason, const char *file,
-		int line, int gsl_errno)
+liberation_queue_signaux(struct_processus *s_etat_processus)
 {
-	struct_processus		*s_etat_processus;
+#	ifdef IPCS_SYSV // SystemV
+#		ifndef OS2
+#		else // OS/2
+#		endif
+#	else // POSIX
+		if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+#	endif
+
+	return;
+}
 
-	verrouillage_gestionnaire_signaux();
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
+/*
+================================================================================
+  Fonction détruisant le segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+void
+destruction_queue_signaux(struct_processus *s_etat_processus)
+{
+	unsigned char		*nom;
+
+#	ifdef IPCS_SYSV // SystemV
+#	ifndef OS2
+
+	if (shmdt(fifos) == -1)
 	{
-		deverrouillage_gestionnaire_signaux();
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
-	(*s_etat_processus).var_volatile_exception_gsl = gsl_errno;
-	deverrouillage_gestionnaire_signaux();
+	if (shmctl(segment, IPC_RMID, 0) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	unlink(nom);
+	free(nom);
+
+#	else
+
+	if (DosFreeMem(fifos) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+#	endif
+#	else // POSIX
+
+	if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((nom = nom_segment(NULL, getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (shm_unlink(nom) != 0)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+#	endif
+
 	return;
 }