version 1.33, 2010/08/06 15:26:47
|
version 1.40, 2010/08/26 19:07:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.0.19 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1317 instruction_detach(struct_processus *s_e
|
Line 1317 instruction_detach(struct_processus *s_e
|
* Processus fils |
* Processus fils |
*/ |
*/ |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
liberation_fifos_signaux(s_etat_processus); |
|
creation_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
if ((*s_etat_processus).debug == d_vrai) |
if ((*s_etat_processus).debug == d_vrai) |
if (((*s_etat_processus).type_debug & |
if (((*s_etat_processus).type_debug & |
d_debug_processus) != 0) |
d_debug_processus) != 0) |
Line 1506 instruction_detach(struct_processus *s_e
|
Line 1511 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1536 instruction_detach(struct_processus *s_e
|
Line 1545 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1569 instruction_detach(struct_processus *s_e
|
Line 1582 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1717 instruction_detach(struct_processus *s_e
|
Line 1734 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1733 instruction_detach(struct_processus *s_e
|
Line 1754 instruction_detach(struct_processus *s_e
|
(*s_argument_thread2).nombre_references--; |
(*s_argument_thread2).nombre_references--; |
|
|
BUG((*s_argument_thread2).nombre_references < 0, |
BUG((*s_argument_thread2).nombre_references < 0, |
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus), |
|
# endif |
printf("(*s_argument_thread2).nombre_references = %d\n", |
printf("(*s_argument_thread2).nombre_references = %d\n", |
(int) (*s_argument_thread2).nombre_references)); |
(int) (*s_argument_thread2).nombre_references)); |
|
|
Line 1796 instruction_detach(struct_processus *s_e
|
Line 1820 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1860 instruction_detach(struct_processus *s_e
|
Line 1888 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 1912 instruction_detach(struct_processus *s_e
|
Line 1944 instruction_detach(struct_processus *s_e
|
} |
} |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 2460 instruction_detach(struct_processus *s_e
|
Line 2496 instruction_detach(struct_processus *s_e
|
registre_stop; |
registre_stop; |
} |
} |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
(*s_etat_processus).erreur_systeme = d_es_signal; |
(*s_etat_processus).erreur_systeme = d_es_signal; |
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
Line 2494 instruction_detach(struct_processus *s_e
|
Line 2534 instruction_detach(struct_processus *s_e
|
|
|
if (sigaction(SIGPIPE, ®istre, NULL) != 0) |
if (sigaction(SIGPIPE, ®istre, NULL) != 0) |
{ |
{ |
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
pthread_mutex_unlock(&((*s_etat_processus).mutex)); |
pthread_mutex_unlock(&((*s_etat_processus).mutex)); |
|
|
(*s_etat_processus).erreur_systeme = d_es_signal; |
(*s_etat_processus).erreur_systeme = d_es_signal; |
Line 2810 instruction_detach(struct_processus *s_e
|
Line 2854 instruction_detach(struct_processus *s_e
|
|
|
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
|
|
# if !defined(Cygwin) |
# if !defined(Cygwin) && !defined(OpenBSD) |
(*s_etat_processus).pile_signal.ss_flags = SS_DISABLE; |
(*s_etat_processus).pile_signal.ss_flags = SS_DISABLE; |
sigaltstack(&((*s_etat_processus).pile_signal), NULL); |
sigaltstack(&((*s_etat_processus).pile_signal), NULL); |
free((*s_etat_processus).pile_signal.ss_sp); |
free((*s_etat_processus).pile_signal.ss_sp); |
Line 2887 instruction_detach(struct_processus *s_e
|
Line 2931 instruction_detach(struct_processus *s_e
|
|
|
clear_history(); |
clear_history(); |
|
|
|
# ifdef _BROKEN_SIGINFO |
|
destruction_fifos_signaux(s_etat_processus); |
|
# endif |
|
|
free(s_etat_processus); |
free(s_etat_processus); |
|
|
# ifdef DEBUG_MEMOIRE |
# ifdef DEBUG_MEMOIRE |