version 1.3, 2010/02/10 10:14:21
|
version 1.9, 2010/04/07 13:45:05
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.0.14 |
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 1760 instruction_detach(struct_processus *s_e
|
Line 1760 instruction_detach(struct_processus *s_e
|
l_element_suivant = (*l_element_courant).suivant; |
l_element_suivant = (*l_element_courant).suivant; |
|
|
fclose((*((struct_descripteur_fichier *) |
fclose((*((struct_descripteur_fichier *) |
(*l_element_courant).donnee)).descripteur); |
(*l_element_courant).donnee)).descripteur_c); |
|
|
|
if ((*((struct_descripteur_fichier *) |
|
(*l_element_courant).donnee)).type != 'C') |
|
{ |
|
sqlite3_close((*((struct_descripteur_fichier *) |
|
(*l_element_courant).donnee)).descripteur_sqlite); |
|
} |
|
|
free((*((struct_descripteur_fichier *) (*l_element_courant) |
free((*((struct_descripteur_fichier *) (*l_element_courant) |
.donnee)).nom); |
.donnee)).nom); |
Line 1979 instruction_detach(struct_processus *s_e
|
Line 1986 instruction_detach(struct_processus *s_e
|
l_element_suivant = (*l_element_courant).suivant; |
l_element_suivant = (*l_element_courant).suivant; |
|
|
fclose((*((struct_descripteur_fichier *) |
fclose((*((struct_descripteur_fichier *) |
(*l_element_courant).donnee)).descripteur); |
(*l_element_courant).donnee)).descripteur_c); |
|
|
|
if ((*((struct_descripteur_fichier *) |
|
(*l_element_courant).donnee)).type != 'C') |
|
{ |
|
sqlite3_close((*((struct_descripteur_fichier *) |
|
(*l_element_courant).donnee)).descripteur_sqlite); |
|
} |
|
|
if (((*((struct_descripteur_fichier *) (*l_element_courant) |
if (((*((struct_descripteur_fichier *) (*l_element_courant) |
.donnee)).pid == getpid()) && |
.donnee)).pid == getpid()) && |
Line 2515 instruction_detach(struct_processus *s_e
|
Line 2529 instruction_detach(struct_processus *s_e
|
|
|
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
|
|
|
# ifndef Cygwin |
free((*s_etat_processus).pile_signal.ss_sp); |
free((*s_etat_processus).pile_signal.ss_sp); |
free((*s_etat_processus).definitions_chainees); |
# endif |
|
|
|
free((*s_etat_processus).definitions_chainees); |
free((*s_etat_processus).nom_fichier_historique); |
free((*s_etat_processus).nom_fichier_historique); |
|
|
for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++) |
for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++) |
Line 2573 instruction_detach(struct_processus *s_e
|
Line 2589 instruction_detach(struct_processus *s_e
|
sem_destroy(&semaphore_gestionnaires_signaux_atomique); |
sem_destroy(&semaphore_gestionnaires_signaux_atomique); |
|
|
clear_history(); |
clear_history(); |
|
|
|
# ifdef DEBUG_MEMOIRE |
|
debug_memoire_verification(s_etat_processus); |
|
# endif |
|
|
exit(EXIT_SUCCESS); |
exit(EXIT_SUCCESS); |
} |
} |
else |
else |