--- rpl/src/instructions_d5.c 2015/09/18 13:41:13 1.133 +++ rpl/src/instructions_d5.c 2015/11/26 11:44:35 1.137 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.23 + RPL/2 (R) version 4.1.24 Copyright (C) 1989-2015 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1088,13 +1088,13 @@ instruction_detach(struct_processus *s_e return; } - if (pthread_mutex_lock(&((*s_etat_processus).mutex_allocation_buffer)) != 0) + if (pthread_mutex_lock(&mutex_liste_variables_partagees) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; } - if (pthread_mutex_lock(&mutex_liste_variables_partagees) != 0) + if (pthread_mutex_lock(&((*s_etat_processus).mutex_allocation_buffer)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1288,6 +1288,13 @@ instruction_detach(struct_processus *s_e pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex); pthread_mutexattr_destroy(&attributs_mutex); + pthread_mutex_destroy(&mutex_liste_threads); + + pthread_mutexattr_init(&attributs_mutex); + pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE); + pthread_mutex_init(&mutex_liste_threads, &attributs_mutex); + pthread_mutexattr_destroy(&attributs_mutex); + liberation_queue_signaux(s_etat_processus); creation_queue_signaux(s_etat_processus);