--- rpl/src/instructions_d5.c 2015/02/01 22:49:28 1.126 +++ rpl/src/instructions_d5.c 2015/07/21 12:30:38 1.131 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.20 + RPL/2 (R) version 4.1.22 Copyright (C) 1989-2015 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1269,13 +1269,14 @@ instruction_detach(struct_processus *s_e * Processus fils */ + liberation_queue_signaux(s_etat_processus); + creation_queue_signaux(s_etat_processus); + if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur) { (*s_etat_processus).erreur_systeme = d_es_processus; } - liberation_queue_signaux(s_etat_processus); - creation_queue_signaux(s_etat_processus); routine_recursive = 0; (*s_etat_processus).pointeur_signal_lecture = 0; @@ -1515,10 +1516,9 @@ instruction_detach(struct_processus *s_e exit(EXIT_FAILURE); } -uprintf("(*s_etat_processus).evaluation_expression_compilee=%c\n", (*s_etat_processus).evaluation_expression_compilee); if ((*s_etat_processus).evaluation_expression_compilee == 'N') { -// free((*s_etat_processus).instruction_courante); + free((*s_etat_processus).instruction_courante); (*s_etat_processus).instruction_courante = NULL; }