--- rpl/src/gestion_objets.c	2013/05/22 13:40:40	1.102
+++ rpl/src/gestion_objets.c	2018/12/21 10:56:16	1.139
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.14
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -106,6 +106,7 @@ initialisation_allocateur(struct_process
 	(*s_etat_processus).pointeur_int = 0;
 	(*s_etat_processus).pointeur_mat = 0;
 	(*s_etat_processus).pointeur_nom = 0;
+	(*s_etat_processus).pointeur_rec = 0;
 	(*s_etat_processus).pointeur_rel = 0;
 	(*s_etat_processus).pointeur_tab = 0;
 	(*s_etat_processus).pointeur_vec = 0;
@@ -141,6 +142,8 @@ liberation_allocateur(struct_processus *
 			free((*s_etat_processus).objets_mat[i++]));
 	for(i = 0; i < (*s_etat_processus).pointeur_nom;
 			free((*s_etat_processus).objets_nom[i++]));
+	for(i = 0; i < (*s_etat_processus).pointeur_rec;
+			free((*s_etat_processus).objets_rec[i++]));
 	for(i = 0; i < (*s_etat_processus).pointeur_rel;
 			free((*s_etat_processus).objets_rel[i++]));
 	for(i = 0; i < (*s_etat_processus).pointeur_tab;
@@ -343,6 +346,8 @@ allocation(struct_processus *s_etat_proc
 	}
 
 	(*s_objet).type = type;
+	(*s_objet).extension_type = 0;
+	(*s_objet).descripteur_bibliotheque = NULL;
 
 	switch(type)
 	{
@@ -434,6 +439,12 @@ allocation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case EXT :
+		{
+			// Aucune allocation
+			break;
+		}
+
 		case FCT :
 		{
 			if ((*s_etat_processus).pointeur_fct > 0)
@@ -615,6 +626,28 @@ allocation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case REC :
+		{
+			if ((*s_etat_processus).pointeur_rec > 0)
+			{
+				(*s_objet).objet = (*s_etat_processus).objets_rec
+						[--(*s_etat_processus).pointeur_rec];
+			}
+			else
+			{
+				if (((*s_objet).objet = malloc(2 * sizeof(struct_objet *)))
+						== NULL)
+				{
+					(*s_etat_processus).erreur_systeme =
+							d_es_allocation_memoire;
+					free(s_objet);
+					return(NULL);
+				}
+			}
+
+			break;
+		}
+
 		case REL :
 		{
 			if ((*s_etat_processus).pointeur_rel > 0)
@@ -821,6 +854,8 @@ liberation(struct_processus *s_etat_proc
 	struct_liste_chainee				*l_element_suivant;
 
 	integer8							i;
+	integer8							(*__type_drop)(struct_processus *,
+												void **);
 
 	if (s_objet == NULL)
 	{
@@ -926,7 +961,7 @@ liberation(struct_processus *s_etat_proc
 				return;
 			}
 
-			free((unsigned char *) ((*s_objet).objet));
+			free((unsigned char *) (*s_objet).objet);
 			break;
 		}
 
@@ -1263,6 +1298,31 @@ liberation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case REC :
+		{
+			liberation(s_etat_processus,
+					(*((struct_record *) (*s_objet).objet)).noms);
+			liberation(s_etat_processus,
+					(*((struct_record *) (*s_objet).objet)).donnees);
+
+			if (decrementation_atomique(s_objet) > 0)
+			{
+				return;
+			}
+
+			if ((*s_etat_processus).pointeur_rec < TAILLE_CACHE)
+			{
+				(*s_etat_processus).objets_rec
+						[(*s_etat_processus).pointeur_rec++] = (*s_objet).objet;
+			}
+			else
+			{
+				free((real8 *) ((*s_objet).objet));
+			}
+
+			break;
+		}
+
 		case REL :
 		{
 			if (decrementation_atomique(s_objet) > 0)
@@ -1493,6 +1553,57 @@ liberation(struct_processus *s_etat_proc
 			break;
 		}
 
+		case EXT:
+		{
+			if (decrementation_atomique(s_objet) > 0)
+			{
+				return;
+			}
+
+			// Appel de la fonction de liberation associée à l'objet
+			// externe. Le descripteur de bibliothèque est directement
+			// associé à la structure objet.
+
+			l_element_courant = (*s_etat_processus).s_bibliotheques;
+
+			while(l_element_courant != NULL)
+			{
+				if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
+						.descripteur == (*s_objet).descripteur_bibliotheque)
+				{
+					if ((__type_drop = dlsym((*s_objet)
+							.descripteur_bibliotheque, "__type_drop")) == NULL)
+					{
+						// La fonction de libération n'existe pas dans la
+						// bibliothèque.
+
+						(*s_etat_processus).erreur_execution =
+								d_ex_type_externe_drop;
+					}
+					else
+					{
+						if (__type_drop(s_etat_processus, (void **) &s_objet)
+								== 0)
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_type_externe_drop;
+						}
+					}
+
+					break;
+				}
+
+				l_element_courant = (*l_element_courant).suivant;
+			}
+
+			if (l_element_courant == NULL)
+			{
+				(*s_etat_processus).erreur_execution = d_ex_type_externe_drop;
+			}
+
+			break;
+		}
+
 		default :
 		{
 			if (pthread_mutex_unlock(&((*s_objet).mutex)) != 0)
@@ -1591,6 +1702,7 @@ copie_objet(struct_processus *s_etat_pro
 
 	integer8					i;
 	integer8					j;
+	integer8					(*__type_dup)(struct_processus *, void **);
 
 	if (pthread_mutex_lock(&((*s_objet).mutex)) != 0)
 	{
@@ -2434,6 +2546,18 @@ copie_objet(struct_processus *s_etat_pro
 					(*((struct_socket *) ((*s_objet).objet))).pid;
 			(*((struct_socket *) ((*s_nouvel_objet).objet))).tid =
 					(*((struct_socket *) ((*s_objet).objet))).tid;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).options =
+					(*((struct_socket *) ((*s_objet).objet))).options;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).priorite =
+					(*((struct_socket *) ((*s_objet).objet))).priorite;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).buffer_reception =
+					(*((struct_socket *) ((*s_objet).objet))).buffer_reception;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).buffer_emission =
+					(*((struct_socket *) ((*s_objet).objet))).buffer_emission;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).timeout_reception =
+					(*((struct_socket *) ((*s_objet).objet))).timeout_reception;
+			(*((struct_socket *) ((*s_nouvel_objet).objet))).timeout_emission =
+					(*((struct_socket *) ((*s_objet).objet))).timeout_emission;
 
 			if (((*((struct_socket *) ((*s_nouvel_objet).objet))).format =
 					copie_objet(s_etat_processus, (*((struct_socket *)
@@ -2800,6 +2924,59 @@ copie_objet(struct_processus *s_etat_pro
 			break;
 		}
 
+		case EXT:
+		{
+			if (type != 'O')
+			{
+				incrementation_atomique(s_objet);
+				return(s_objet);
+			}
+
+			// Appel de la fonction de duplication associée à l'objet
+			// externe. Le descripteur de bibliothèque est directement
+			// associé à la structure objet.
+
+			l_element_courant = (*s_etat_processus).s_bibliotheques;
+
+			while(l_element_courant != NULL)
+			{
+				if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
+						.descripteur == (*s_objet).descripteur_bibliotheque)
+				{
+					if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque,
+							"__type_dup")) == NULL)
+					{
+						// La fonction de duplication n'existe pas dans la
+						// bibliothèque.
+
+						(*s_etat_processus).erreur_execution =
+								d_ex_type_externe_dup;
+						return(NULL);
+					}
+
+					s_nouvel_objet = s_objet;
+
+					if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet)
+							== 0)
+					{
+						return(NULL);
+					}
+
+					break;
+				}
+
+				l_element_courant = (*l_element_courant).suivant;
+			}
+
+			if (l_element_courant == NULL)
+			{
+				(*s_etat_processus).erreur_execution = d_ex_type_externe_dup;
+				return(NULL);
+			}
+
+			break;
+		}
+
 		default :
 		{
 			return(NULL);
@@ -2837,23 +3014,44 @@ copie_etat_processus(struct_processus *s
 
 	integer8						i;
 
-	if (pthread_mutex_lock(&((*s_etat_processus).mutex)) != 0)
+	if (pthread_mutex_lock(&((*s_etat_processus).mutex_pile_processus)) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return(NULL);
 	}
 
-	if ((s_nouvel_etat_processus = malloc(sizeof(struct_processus))) == NULL)
+	if ((s_nouvel_etat_processus = sys_malloc(sizeof(struct_processus)))
+			== NULL)
 	{
+		if (pthread_mutex_unlock(&((*s_etat_processus)
+				.mutex_pile_processus)) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_processus;
+			return(NULL);
+		}
+
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(NULL);
 	}
 
 	(*s_nouvel_etat_processus) = (*s_etat_processus);
 
-	// On réinitialise l'allocateur.
+	// On réinitialise les allocateurs.
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation_buffer),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
 
 	initialisation_allocateur(s_nouvel_etat_processus);
+	initialisation_allocateur_buffer(s_nouvel_etat_processus);
 
 	/*
 	 * (*s_etat_processus).definition_chainee,
@@ -2931,9 +3129,9 @@ copie_etat_processus(struct_processus *s
 
 	// Copie de la localisation
 
-	if (((*s_nouvel_etat_processus).localisation = malloc((strlen(
-			(*s_etat_processus).localisation) + 1) * sizeof(unsigned char)))
-			== NULL)
+	if (((*s_nouvel_etat_processus).localisation = rpl_malloc(
+			s_nouvel_etat_processus, (strlen((*s_etat_processus).localisation)
+			+ 1) * sizeof(unsigned char))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(NULL);
@@ -2947,7 +3145,8 @@ copie_etat_processus(struct_processus *s
 		if (((*s_nouvel_etat_processus).indep = copie_objet(s_etat_processus,
 				(*s_etat_processus).indep, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -2967,7 +3166,8 @@ copie_etat_processus(struct_processus *s
 		if (((*s_nouvel_etat_processus).depend = copie_objet(s_etat_processus, 
 				(*s_etat_processus).depend, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -2988,7 +3188,8 @@ copie_etat_processus(struct_processus *s
 				copie_objet(s_etat_processus, (*s_etat_processus)
 				.parametres_courbes_de_niveau, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3008,11 +3209,13 @@ copie_etat_processus(struct_processus *s
 	if (((*s_etat_processus).instruction_courante != NULL) &&
 			(*s_etat_processus).evaluation_expression_compilee == 'N')
 	{
-		if (((*s_nouvel_etat_processus).instruction_courante = malloc((strlen(
+		if (((*s_nouvel_etat_processus).instruction_courante = rpl_malloc(
+				s_nouvel_etat_processus, (strlen(
 				(*s_etat_processus).instruction_courante) + 1) *
 				sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3032,11 +3235,13 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_etat_processus).label_x != NULL)
 	{
-		if (((*s_nouvel_etat_processus).label_x = malloc((strlen(
+		if (((*s_nouvel_etat_processus).label_x = rpl_malloc(
+				s_nouvel_etat_processus, (strlen(
 				(*s_etat_processus).label_x) + 1) *
 				sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3056,11 +3261,12 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_etat_processus).label_y != NULL)
 	{
-		if (((*s_nouvel_etat_processus).label_y = malloc((strlen(
-				(*s_etat_processus).label_y) + 1) *
-				sizeof(unsigned char))) == NULL)
+		if (((*s_nouvel_etat_processus).label_y = rpl_malloc(
+				s_nouvel_etat_processus, (strlen((*s_etat_processus).label_y)
+				+ 1) * sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3080,11 +3286,12 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_etat_processus).label_z != NULL)
 	{
-		if (((*s_nouvel_etat_processus).label_z = malloc((strlen(
-				(*s_etat_processus).label_z) + 1) *
-				sizeof(unsigned char))) == NULL)
+		if (((*s_nouvel_etat_processus).label_z = rpl_malloc(
+				s_nouvel_etat_processus, (strlen((*s_etat_processus).label_z)
+				+ 1) * sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3104,11 +3311,12 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_etat_processus).titre != NULL)
 	{
-		if (((*s_nouvel_etat_processus).titre = malloc((strlen(
-				(*s_etat_processus).titre) + 1) *
-				sizeof(unsigned char))) == NULL)
+		if (((*s_nouvel_etat_processus).titre = rpl_malloc(
+				s_nouvel_etat_processus, (strlen((*s_etat_processus).titre) + 1)
+				* sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3128,11 +3336,12 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_etat_processus).legende != NULL)
 	{
-		if (((*s_nouvel_etat_processus).legende = malloc((strlen(
-				(*s_etat_processus).legende) + 1) *
-				sizeof(unsigned char))) == NULL)
+		if (((*s_nouvel_etat_processus).legende = rpl_malloc(
+				s_nouvel_etat_processus, (strlen((*s_etat_processus).legende)
+				+ 1) * sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3177,9 +3386,11 @@ copie_etat_processus(struct_processus *s
 
 	while(l_element_lecture != NULL)
 	{
-		if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)
+		if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_liste_chainee))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3192,7 +3403,8 @@ copie_etat_processus(struct_processus *s
 		if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
 				(*l_element_lecture).donnee, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3228,7 +3440,8 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
 	{
-		if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+		if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus))
+				!= 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return(NULL);
@@ -3250,7 +3463,8 @@ copie_etat_processus(struct_processus *s
 
 	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
 	{
-		if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+		if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus))
+				!= 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return(NULL);
@@ -3282,9 +3496,11 @@ copie_etat_processus(struct_processus *s
 
 	while(l_element_lecture != NULL)
 	{
-		if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)
+		if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_liste_chainee))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3297,7 +3513,8 @@ copie_etat_processus(struct_processus *s
 		if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
 				(*l_element_lecture).donnee, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3328,9 +3545,11 @@ copie_etat_processus(struct_processus *s
 
 	while(l_element_lecture != NULL)
 	{
-		if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)
+		if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_liste_chainee))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3343,7 +3562,8 @@ copie_etat_processus(struct_processus *s
 		if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
 				(*l_element_lecture).donnee, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3379,9 +3599,11 @@ copie_etat_processus(struct_processus *s
 
 	while(l_element_lecture != NULL)
 	{
-		if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)
+		if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_liste_chainee))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3394,7 +3616,8 @@ copie_etat_processus(struct_processus *s
 		if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
 				(*l_element_lecture).donnee, 'P')) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3425,9 +3648,11 @@ copie_etat_processus(struct_processus *s
 
 	while(l_element_lecture != NULL)
 	{
-		if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)
+		if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_liste_chainee))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3437,8 +3662,8 @@ copie_etat_processus(struct_processus *s
 			return(NULL);
 		}
 
-		if (((*l_element_suivant).donnee = malloc(sizeof(struct_bibliotheque)))
-				== NULL)
+		if (((*l_element_suivant).donnee = rpl_malloc(s_nouvel_etat_processus,
+				sizeof(struct_bibliotheque))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
@@ -3453,10 +3678,12 @@ copie_etat_processus(struct_processus *s
 				= (*((struct_bibliotheque *) (*l_element_lecture).donnee)).tid;
 
 		if (((*((struct_bibliotheque *) (*l_element_suivant).donnee)).nom =
-				malloc((strlen((*((struct_bibliotheque *) (*l_element_lecture)
+				rpl_malloc(s_nouvel_etat_processus,
+				(strlen((*((struct_bibliotheque *) (*l_element_lecture)
 				.donnee)).nom) + 1) * sizeof(unsigned char))) == NULL)
 		{
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3487,8 +3714,8 @@ copie_etat_processus(struct_processus *s
 	if ((*s_etat_processus).nombre_instructions_externes != 0)
 	{
 		if (((*s_nouvel_etat_processus).s_instructions_externes =
-				malloc(((size_t) (*s_etat_processus)
-				.nombre_instructions_externes) *
+				rpl_malloc(s_nouvel_etat_processus, ((size_t)
+				(*s_etat_processus).nombre_instructions_externes) *
 				sizeof(struct_instruction_externe))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -3498,7 +3725,8 @@ copie_etat_processus(struct_processus *s
 		for(i = 0; i < (*s_etat_processus).nombre_instructions_externes; i++)
 		{
 			if (((*s_nouvel_etat_processus).s_instructions_externes[i].nom =
-					malloc((strlen((*s_etat_processus).s_instructions_externes
+					rpl_malloc(s_nouvel_etat_processus,
+					(strlen((*s_etat_processus).s_instructions_externes
 					[i].nom) + 1) * sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -3509,9 +3737,9 @@ copie_etat_processus(struct_processus *s
 					(*s_etat_processus).s_instructions_externes[i].nom);
 
 			if (((*s_nouvel_etat_processus).s_instructions_externes[i]
-					.nom_bibliotheque = malloc((strlen((*s_etat_processus)
-					.s_instructions_externes[i].nom_bibliotheque) + 1) *
-					sizeof(unsigned char))) == NULL)
+					.nom_bibliotheque = rpl_malloc(s_nouvel_etat_processus,
+					(strlen((*s_etat_processus).s_instructions_externes[i]
+					.nom_bibliotheque) + 1) * sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return(NULL);
@@ -3533,16 +3761,29 @@ copie_etat_processus(struct_processus *s
 
 	pthread_mutexattr_init(&attributs_mutex);
 	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
-	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex), &attributs_mutex);
+	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_pile_processus),
+			&attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
 	pthread_mutexattr_init(&attributs_mutex);
 	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
-	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation),
+	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_interruptions),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_signaux),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_nouvel_etat_processus).protection_liste_mutexes),
 			&attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
-	if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+	if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus)) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return(NULL);