version 1.25, 2010/06/04 07:48:20
|
version 1.33, 2010/08/06 15:26:47
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.16 |
RPL/2 (R) version 4.0.18 |
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 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 1183 instruction_detach(struct_processus *s_e
|
Line 1183 instruction_detach(struct_processus *s_e
|
liberation(s_etat_processus, s_copie); |
liberation(s_etat_processus, s_copie); |
} |
} |
|
|
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0) |
liberation(s_etat_processus, s_objet); |
|
|
|
if ((s_objet = allocation(s_etat_processus, PRC)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0) |
(*((struct_processus_fils *) (*s_objet).objet)).thread = |
|
s_argument_thread; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_objets_dans_pipe = 0; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_interruptions_dans_pipe = 0; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_references = 1; |
|
|
|
/* |
|
* On copie l'objet plutôt que le pointeur car cet objet peut être |
|
* accédé depuis deux threads distincts et aboutir à un blocage lors |
|
* d'une copie. |
|
*/ |
|
|
|
if ((s_objet_systeme = copie_objet(s_etat_processus, s_objet, 'O')) |
|
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
Line 1257 instruction_detach(struct_processus *s_e
|
Line 1275 instruction_detach(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
|
# ifndef OS2 |
if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0) |
if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
Line 1275 instruction_detach(struct_processus *s_e
|
Line 1294 instruction_detach(struct_processus *s_e
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
} |
} |
|
# endif |
|
|
(*s_argument_thread).s_etat_processus = s_etat_processus; |
(*s_argument_thread).s_etat_processus = s_etat_processus; |
|
|
Line 1520 instruction_detach(struct_processus *s_e
|
Line 1540 instruction_detach(struct_processus *s_e
|
exit(EXIT_FAILURE); |
exit(EXIT_FAILURE); |
} |
} |
|
|
|
pthread_mutex_trylock(&((*s_etat_processus).protection_liste_mutexes)); |
|
|
if (pthread_mutex_unlock(&((*s_etat_processus) |
if (pthread_mutex_unlock(&((*s_etat_processus) |
.protection_liste_mutexes)) != 0) |
.protection_liste_mutexes)) != 0) |
{ |
{ |
Line 1569 instruction_detach(struct_processus *s_e
|
Line 1591 instruction_detach(struct_processus *s_e
|
|
|
liberation(s_etat_processus, (*s_etat_processus).at_exit); |
liberation(s_etat_processus, (*s_etat_processus).at_exit); |
(*s_etat_processus).at_exit = NULL; |
(*s_etat_processus).at_exit = NULL; |
|
liberation(s_etat_processus, (*s_etat_processus).at_poke); |
|
(*s_etat_processus).at_poke = NULL; |
|
(*s_etat_processus).traitement_at_poke = 'N'; |
|
|
for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++) |
for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++) |
{ |
{ |
Line 1698 instruction_detach(struct_processus *s_e
|
Line 1723 instruction_detach(struct_processus *s_e
|
|
|
l_element_courant = (struct_liste_chainee *) |
l_element_courant = (struct_liste_chainee *) |
(*s_etat_processus).l_base_pile_processus; |
(*s_etat_processus).l_base_pile_processus; |
|
|
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
{ |
{ |
s_argument_thread2 = (struct_descripteur_thread *) |
s_argument_thread2 = (struct_descripteur_thread *) |
(*l_element_courant).donnee; |
(*((struct_processus_fils *) (*(*l_element_courant).donnee) |
|
.objet)).thread; |
|
|
(*s_argument_thread2).nombre_references--; |
(*s_argument_thread2).nombre_references--; |
|
|
BUG((*s_argument_thread2).nombre_references < 0, |
BUG((*s_argument_thread2).nombre_references < 0, |
printf("(*s_argument_thread).nombre_references = %d\n", |
printf("(*s_argument_thread2).nombre_references = %d\n", |
(int) (*s_argument_thread2).nombre_references)); |
(int) (*s_argument_thread2).nombre_references)); |
|
|
if ((*s_argument_thread2).nombre_references == 0) |
if ((*s_argument_thread2).nombre_references == 0) |
Line 1732 instruction_detach(struct_processus *s_e
|
Line 1759 instruction_detach(struct_processus *s_e
|
} |
} |
|
|
free(s_argument_thread2); |
free(s_argument_thread2); |
|
free((*(*l_element_courant).donnee).objet); |
|
free((*l_element_courant).donnee); |
} |
} |
|
|
l_element_suivant = (*l_element_courant).suivant; |
l_element_suivant = (*l_element_courant).suivant; |
Line 2067 instruction_detach(struct_processus *s_e
|
Line 2096 instruction_detach(struct_processus *s_e
|
} |
} |
|
|
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); |
|
|
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) |
Line 2780 instruction_detach(struct_processus *s_e
|
Line 2810 instruction_detach(struct_processus *s_e
|
|
|
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
|
|
# ifndef Cygwin |
# if !defined(Cygwin) |
(*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 2825 instruction_detach(struct_processus *s_e
|
Line 2855 instruction_detach(struct_processus *s_e
|
retrait_thread(s_etat_processus); |
retrait_thread(s_etat_processus); |
|
|
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).protection_liste_mutexes)); |
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
|
|
pthread_key_delete(semaphore_fork_processus_courant); |
pthread_key_delete(semaphore_fork_processus_courant); |
Line 2869 instruction_detach(struct_processus *s_e
|
Line 2900 instruction_detach(struct_processus *s_e
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
} |
|
|
|
liberation(s_etat_processus, s_objet); |
|
|
|
if ((s_objet = allocation(s_etat_processus, PRC)) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
|
(*((struct_processus_fils *) (*s_objet).objet)).thread = s_argument_thread; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_objets_dans_pipe = 0; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_interruptions_dans_pipe = 0; |
|
(*(*((struct_processus_fils *) (*s_objet).objet)).thread) |
|
.nombre_references = 1; |
|
|
|
/* |
|
* On copie l'objet plutôt que le pointeur car cet objet peut être |
|
* accédé depuis deux threads distincts et aboutir à un blocage lors d'une |
|
* copie. |
|
*/ |
|
|
|
if ((s_objet_systeme = copie_objet(s_etat_processus, s_objet, 'O')) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
|
if (pthread_mutex_lock(&((*s_etat_processus).mutex)) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
} |
|
|
// Si le pid existe déjà dans la pile des processus, il s'agit forcement |
// Si le pid existe déjà dans la pile des processus, il s'agit forcement |