version 1.83, 2011/11/26 10:01:28
|
version 1.95, 2012/10/07 08:18:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 814 instruction_der(struct_processus *s_etat
|
Line 814 instruction_der(struct_processus *s_etat
|
void |
void |
instruction_detach(struct_processus *s_etat_processus) |
instruction_detach(struct_processus *s_etat_processus) |
{ |
{ |
int pipe_initialisation_segment_signaux[2]; |
int pipe_initialisation_segment_signaux[2]; |
|
|
logical1 drapeau; |
logical1 drapeau; |
|
|
pid_t ppid; |
pid_t ppid; |
pid_t pid_final; |
pid_t pid_final; |
|
|
pthread_attr_t attributs; |
pthread_attr_t attributs; |
|
|
pthread_mutexattr_t attributs_mutex; |
pthread_mutexattr_t attributs_mutex; |
|
|
pthread_t thread_surveillance; |
pthread_t thread_surveillance; |
|
|
sig_atomic_t registre_stop; |
sig_atomic_t registre_stop; |
|
|
ssize_t longueur_ecriture; |
ssize_t longueur_ecriture; |
|
|
struct_descripteur_thread *s_argument_thread; |
struct_descripteur_thread *s_argument_thread; |
struct_descripteur_thread *s_argument_thread2; |
struct_descripteur_thread *s_argument_thread2; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_precedent; |
struct_liste_chainee *l_element_precedent; |
struct_liste_chainee *l_element_suivant; |
struct_liste_chainee *l_element_suivant; |
|
|
struct_objet *s_copie; |
struct_liste_variables_statiques *l_element_statique_courant; |
struct_objet *s_objet; |
struct_liste_variables_statiques *l_element_statique_suivant; |
struct_objet *s_objet_systeme; |
|
struct_objet *s_objet_temporaire; |
|
|
|
struct sigaction action; |
struct_objet *s_copie; |
struct sigaction registre; |
struct_objet *s_objet; |
|
struct_objet *s_objet_systeme; |
|
struct_objet *s_objet_temporaire; |
|
|
struct timespec attente; |
struct sigaction action; |
|
struct sigaction registre; |
|
|
unsigned char caractere; |
struct timespec attente; |
unsigned char *message; |
|
|
|
unsigned int erreur; |
unsigned char caractere; |
|
unsigned char *message; |
|
|
unsigned long i; |
unsigned int erreur; |
|
|
|
unsigned long i; |
|
|
volatile logical1 variable_partagee; |
volatile logical1 variable_partagee; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 1367 instruction_detach(struct_processus *s_e
|
Line 1370 instruction_detach(struct_processus *s_e
|
l_element_courant = (*s_etat_processus).liste_mutexes; |
l_element_courant = (*s_etat_processus).liste_mutexes; |
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
{ |
{ |
pthread_mutex_trylock(&((*((struct_mutex *) (*(*l_element_courant) |
|
.donnee).objet)).mutex)); |
|
pthread_mutex_unlock(&((*((struct_mutex *) (*(*l_element_courant) |
|
.donnee).objet)).mutex)); |
|
pthread_mutex_destroy(&((*((struct_mutex *) (*(*l_element_courant) |
|
.donnee).objet)).mutex)); |
|
|
|
liberation(s_etat_processus, (*l_element_courant).donnee); |
liberation(s_etat_processus, (*l_element_courant).donnee); |
l_element_suivant = (*l_element_courant).suivant; |
l_element_suivant = (*l_element_courant).suivant; |
free(l_element_courant); |
free(l_element_courant); |
Line 1430 instruction_detach(struct_processus *s_e
|
Line 1426 instruction_detach(struct_processus *s_e
|
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
|
|
|
if (pthread_mutex_destroy(&mutex_sections_critiques) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
|
|
pid_final = -2; |
|
|
|
while((longueur_ecriture = write_atomic(s_etat_processus, |
|
(*s_argument_thread).pipe_nombre_interruptions_attente[1], |
|
&pid_final, sizeof(pid_final))) != sizeof(pid_final)) |
|
{ |
|
if (longueur_ecriture == -1) |
|
{ |
|
break; |
|
} |
|
} |
|
|
|
while((longueur_ecriture = write_atomic(s_etat_processus, |
|
(*s_argument_thread).pipe_nombre_objets_attente[1], |
|
&pid_final, sizeof(pid_final))) != sizeof(pid_final)) |
|
{ |
|
if (longueur_ecriture == -1) |
|
{ |
|
break; |
|
} |
|
} |
|
|
|
destruction_queue_signaux(s_etat_processus); |
|
BUG(1, uprintf("Process management error line %d\n", __LINE__)); |
|
exit(EXIT_FAILURE); |
|
} |
|
|
|
pthread_mutexattr_init(&attributs_mutex); |
|
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE); |
|
pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex); |
|
pthread_mutexattr_destroy(&attributs_mutex); |
|
|
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0) |
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
Line 1585 instruction_detach(struct_processus *s_e
|
Line 1617 instruction_detach(struct_processus *s_e
|
(*s_etat_processus).presence_fusible = d_faux; |
(*s_etat_processus).presence_fusible = d_faux; |
(*s_etat_processus).thread_fusible = 0; |
(*s_etat_processus).thread_fusible = 0; |
(*s_etat_processus).pid_erreur_processus_fils = getpid(); |
(*s_etat_processus).pid_erreur_processus_fils = getpid(); |
|
(*s_etat_processus).sections_critiques = 0; |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if ((*s_etat_processus).profilage == d_vrai) |
{ |
{ |
Line 2034 instruction_detach(struct_processus *s_e
|
Line 2067 instruction_detach(struct_processus *s_e
|
free(s); |
free(s); |
} |
} |
|
|
|
for(i = 0; i < (*s_etat_processus).sections_critiques; i++) |
|
{ |
|
pthread_mutex_unlock(&mutex_sections_critiques); |
|
} |
|
|
liberation(s_etat_processus, (*s_etat_processus).at_exit); |
liberation(s_etat_processus, (*s_etat_processus).at_exit); |
liberation(s_etat_processus, (*s_etat_processus).at_poke); |
liberation(s_etat_processus, (*s_etat_processus).at_poke); |
|
|
l_element_courant = (*s_etat_processus).liste_mutexes; |
l_element_courant = (*s_etat_processus).liste_mutexes; |
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
{ |
{ |
pthread_mutex_trylock(&((*((struct_mutex *) |
|
(*(*l_element_courant).donnee).objet)).mutex)); |
|
pthread_mutex_unlock(&((*((struct_mutex *) |
|
(*(*l_element_courant).donnee).objet)).mutex)); |
|
pthread_mutex_destroy(&((*((struct_mutex *) |
|
(*(*l_element_courant).donnee).objet)).mutex)); |
|
|
|
liberation(s_etat_processus, (*l_element_courant).donnee); |
liberation(s_etat_processus, (*l_element_courant).donnee); |
l_element_suivant = (*l_element_courant).suivant; |
l_element_suivant = (*l_element_courant).suivant; |
free(l_element_courant); |
free(l_element_courant); |
Line 2552 instruction_detach(struct_processus *s_e
|
Line 2583 instruction_detach(struct_processus *s_e
|
(*s_etat_processus).arbre_instructions); |
(*s_etat_processus).arbre_instructions); |
free((*s_etat_processus).pointeurs_caracteres); |
free((*s_etat_processus).pointeurs_caracteres); |
|
|
|
l_element_statique_courant = (*s_etat_processus) |
|
.l_liste_variables_statiques; |
|
|
|
while(l_element_statique_courant != NULL) |
|
{ |
|
l_element_statique_suivant = (*l_element_statique_courant).suivant; |
|
free(l_element_statique_courant); |
|
l_element_statique_courant = l_element_statique_suivant; |
|
} |
|
|
if ((*s_etat_processus).entree_standard != NULL) |
if ((*s_etat_processus).entree_standard != NULL) |
{ |
{ |
pclose((*s_etat_processus).entree_standard); |
pclose((*s_etat_processus).entree_standard); |
Line 2580 instruction_detach(struct_processus *s_e
|
Line 2621 instruction_detach(struct_processus *s_e
|
(*s_etat_processus).s_arbre_variables, d_vrai); |
(*s_etat_processus).s_arbre_variables, d_vrai); |
free((*s_etat_processus).pointeurs_caracteres_variables); |
free((*s_etat_processus).pointeurs_caracteres_variables); |
|
|
for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++) |
|
{ |
|
liberation(s_etat_processus, |
|
(*s_etat_processus).s_liste_variables_statiques[i].objet); |
|
free((*s_etat_processus).s_liste_variables_statiques[i].nom); |
|
} |
|
|
|
free((*s_etat_processus).s_liste_variables_statiques); |
|
|
|
for(i = 0; i < (*(*s_etat_processus).s_liste_variables_partagees) |
for(i = 0; i < (*(*s_etat_processus).s_liste_variables_partagees) |
.nombre_variables; i++) |
.nombre_variables; i++) |
{ |
{ |
Line 2787 instruction_detach(struct_processus *s_e
|
Line 2819 instruction_detach(struct_processus *s_e
|
pthread_mutex_destroy(&((*s_etat_processus).mutex)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation)); |
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
|
pthread_mutex_destroy(&mutex_sections_critiques); |
|
|
# ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
sem_post(&((*s_etat_processus).semaphore_fork)); |
sem_post(&((*s_etat_processus).semaphore_fork)); |