--- rpl/src/interruptions.c	2013/02/23 18:32:15	1.116
+++ rpl/src/interruptions.c	2013/05/22 12:05:42	1.128
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.14
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -99,17 +99,23 @@ thread_surveillance_signaux(void *argume
 		if (sem_wait(semaphore_signalisation) == 0)
 #		endif
 		{
+			if ((*s_queue_signaux).requete_arret == d_vrai)
+			{
+#				if (!defined(SEMAPHORES_NOMMES)) || defined(IPCS_SYSV)
+				sem_post(&(*s_queue_signaux).signalisation);
+#				else
+				sem_post(semaphore_signalisation);
+#				endif
+
+				break;
+			}
+
 #			if (!defined(SEMAPHORES_NOMMES)) || defined(IPCS_SYSV)
 			sem_post(&(*s_queue_signaux).signalisation);
 #			else
 			sem_post(semaphore_signalisation);
 #			endif
 
-			if ((*s_queue_signaux).requete_arret == d_vrai)
-			{
-				break;
-			}
-
 			nombre_signaux_envoyes = 0;
 			sched_yield();
 
@@ -153,14 +159,27 @@ thread_surveillance_signaux(void *argume
 				if ((*((struct_thread *) (*l_element_courant).donnee)).pid
 						== getpid())
 				{
-					if ((*(*((struct_thread *) (*l_element_courant).donnee))
-							.s_etat_processus).pointeur_signal_ecriture !=
-							(*(*((struct_thread *) (*l_element_courant).donnee))
-							.s_etat_processus).pointeur_signal_lecture)
+					if (pthread_mutex_lock(&mutex_interruptions) != 0)
+					{
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+					}
+					else
 					{
-						nombre_signaux_envoyes++;
-						pthread_kill((*((struct_thread *) (*l_element_courant)
-								.donnee)).tid, SIGALRM);
+						if ((*(*((struct_thread *) (*l_element_courant).donnee))
+								.s_etat_processus).pointeur_signal_ecriture !=
+								(*(*((struct_thread *) (*l_element_courant)
+								.donnee)).s_etat_processus)
+								.pointeur_signal_lecture)
+						{
+							nombre_signaux_envoyes++;
+							pthread_kill((*((struct_thread *)
+									(*l_element_courant).donnee)).tid, SIGALRM);
+						}
+
+						if (pthread_mutex_unlock(&mutex_interruptions) != 0)
+						{
+							(*s_etat_processus).erreur_systeme = d_es_processus;
+						}
 					}
 				}
 
@@ -555,7 +574,7 @@ liberation_threads(struct_processus *s_e
 	struct_liste_variables_statiques			*l_element_statique_courant;
 	struct_liste_variables_statiques			*l_element_statique_suivant;
 
-	unsigned long								i;
+	integer8									i;
 
 	void										*element_candidat;
 	void										*element_courant;
@@ -598,8 +617,7 @@ liberation_threads(struct_processus *s_e
 			close((*s_etat_processus).pipe_injections);
 			close((*s_etat_processus).pipe_nombre_injections);
 			close((*s_etat_processus).pipe_interruptions);
-			close((*s_etat_processus).pipe_nombre_objets_attente);
-			close((*s_etat_processus).pipe_nombre_interruptions_attente);
+			close((*s_etat_processus).pipe_nombre_elements_attente);
 
 			liberation(s_etat_processus, (*s_etat_processus).at_exit);
 
@@ -667,10 +685,8 @@ liberation_threads(struct_processus *s_e
 					close((*s_argument_thread).pipe_acquittement[1]);
 					close((*s_argument_thread).pipe_injections[1]);
 					close((*s_argument_thread).pipe_nombre_injections[1]);
-					close((*s_argument_thread).pipe_nombre_objets_attente[0]);
+					close((*s_argument_thread).pipe_nombre_elements_attente[0]);
 					close((*s_argument_thread).pipe_interruptions[0]);
-					close((*s_argument_thread)
-							.pipe_nombre_interruptions_attente[0]);
 
 					if (pthread_mutex_unlock(&((*s_argument_thread)
 							.mutex_nombre_references)) != 0)
@@ -1311,9 +1327,8 @@ liberation_threads(struct_processus *s_e
 			close((*s_argument_thread).pipe_acquittement[1]);
 			close((*s_argument_thread).pipe_injections[1]);
 			close((*s_argument_thread).pipe_nombre_injections[1]);
-			close((*s_argument_thread).pipe_nombre_objets_attente[0]);
+			close((*s_argument_thread).pipe_nombre_elements_attente[0]);
 			close((*s_argument_thread).pipe_interruptions[0]);
-			close((*s_argument_thread).pipe_nombre_interruptions_attente[0]);
 
 			if (pthread_mutex_unlock(&((*s_argument_thread)
 					.mutex_nombre_references)) != 0)
@@ -2409,8 +2424,9 @@ signal_hup(struct_processus *s_etat_proc
 		return;
 	}
 
-	snprintf(nom, 8 + 64 + 1, "rpl-out-%lu-%lu", (unsigned long) getpid(),
-			(unsigned long) pthread_self());
+	snprintf(nom, 8 + 64 + 1, "rpl-out-%llu-%llu",
+			(unsigned long long) getpid(),
+			(unsigned long long) pthread_self());
 
 	if ((fichier = fopen(nom, "w+")) != NULL)
 	{
@@ -2951,6 +2967,12 @@ envoi_signal_thread(pthread_t tid, enum
 
 	struct_processus						*s_etat_processus;
 
+	if (pthread_mutex_lock(&mutex_interruptions) != 0)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
 	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
 		return(1);
@@ -2976,12 +2998,6 @@ envoi_signal_thread(pthread_t tid, enum
 		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;
 
@@ -3320,8 +3336,7 @@ liberation_queue_signaux(struct_processu
 #		endif
 #	else // POSIX
 #		ifndef SEMAPHORES_NOMMES
-			sem_close(&((*s_queue_signaux).semaphore));
-			sem_close(&((*s_queue_signaux).signalisation));
+			// Rien à faire, les sémaphores sont anonymes.
 #		else
 			sem_close(semaphore_queue_signaux);
 			sem_close(semaphore_signalisation);
@@ -3360,7 +3375,11 @@ destruction_queue_signaux(struct_process
 		unsigned char		*nom;
 #	endif
 
-	// Incrémenter le sémaphore pour être sûr de le débloquer.
+#	if (!defined(SEMAPHORES_NOMMES)) || defined(IPCS_SYSV)
+	sem_wait(&((*s_queue_signaux).signalisation));
+#	else
+	sem_wait(semaphore_signalisation);
+#	endif
 
 	(*s_queue_signaux).requete_arret = d_vrai;
 
@@ -3370,6 +3389,14 @@ destruction_queue_signaux(struct_process
 	sem_post(semaphore_signalisation);
 #	endif
 
+	// Incrémenter le sémaphore pour être sûr de le débloquer.
+
+#	if (!defined(SEMAPHORES_NOMMES)) || defined(IPCS_SYSV)
+	sem_post(&((*s_queue_signaux).signalisation));
+#	else
+	sem_post(semaphore_signalisation);
+#	endif
+
 	pthread_join((*s_queue_signaux).thread_signaux, NULL);
 
 #	ifdef IPCS_SYSV // SystemV
@@ -3430,10 +3457,7 @@ destruction_queue_signaux(struct_process
 #		endif
 #	else // POSIX
 #		ifndef SEMAPHORES_NOMMES
-			sem_close(&((*s_queue_signaux).semaphore));
 			sem_destroy(&((*s_queue_signaux).semaphore));
-
-			sem_close(&((*s_queue_signaux).signalisation));
 			sem_destroy(&((*s_queue_signaux).signalisation));
 #		else
 			sem_close(semaphore_queue_signaux);