version 1.66, 2011/09/14 14:34:28
|
version 1.75, 2011/11/26 10:01:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
RPL/2 (R) version 4.1.5 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 2216 copie_objet(struct_processus *s_etat_pro
|
Line 2216 copie_objet(struct_processus *s_etat_pro
|
|
|
case MTX : |
case MTX : |
{ |
{ |
if (type != 'O') |
// La duplication d'un mutex renvoie le même objet. |
{ |
incrementation_atomique(s_objet); |
incrementation_atomique(s_objet); |
|
return(s_objet); |
|
} |
|
|
|
if ((s_nouvel_objet = allocation(s_etat_processus, MTX)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
|
|
(*((struct_mutex *) ((*s_nouvel_objet).objet))).mutex = |
|
(*((struct_mutex *) ((*s_objet).objet))).mutex; |
|
break; |
break; |
} |
} |
|
|
Line 2484 copie_objet(struct_processus *s_etat_pro
|
Line 2473 copie_objet(struct_processus *s_etat_pro
|
return(NULL); |
return(NULL); |
} |
} |
|
|
|
(*((struct_semaphore *) (*s_nouvel_objet).objet)).semaphore = |
|
(*((struct_semaphore *) (*s_objet).objet)).semaphore; |
strcpy((*((struct_semaphore *) (*s_nouvel_objet).objet)).nom, |
strcpy((*((struct_semaphore *) (*s_nouvel_objet).objet)).nom, |
(*((struct_semaphore *) (*s_objet).objet)).nom); |
(*((struct_semaphore *) (*s_objet).objet)).nom); |
break; |
break; |
Line 2801 copie_etat_processus(struct_processus *s
|
Line 2792 copie_etat_processus(struct_processus *s
|
* n'ont aucune raison de changer. |
* n'ont aucune raison de changer. |
*/ |
*/ |
|
|
# ifndef SEMAPHORES_NOMMES |
pthread_mutexattr_init(&attributs_mutex); |
sem_init(&((*s_nouvel_etat_processus).semaphore_fork), 0, 0); |
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); |
# else |
|
if (((*s_nouvel_etat_processus).semaphore_fork = sem_init2(0, sem_fork)) |
// Les sémaphores sont initialisés dans le nouveau thread. Il |
== SEM_FAILED) |
// s'agit d'une limitation de l'implantation de l'émulation |
{ |
// de sem_init(). |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return(NULL); |
|
} |
|
# endif |
|
|
|
initialisation_contexte_cas(s_etat_processus); |
initialisation_contexte_cas(s_etat_processus); |
|
|
Line 2827 copie_etat_processus(struct_processus *s
|
Line 2814 copie_etat_processus(struct_processus *s
|
(*s_nouvel_etat_processus).processus_detache = d_faux; |
(*s_nouvel_etat_processus).processus_detache = d_faux; |
(*s_nouvel_etat_processus).evaluation_forcee = 'N'; |
(*s_nouvel_etat_processus).evaluation_forcee = 'N'; |
|
|
(*s_nouvel_etat_processus).compteur_violation_d_acces = 0; |
|
|
|
(*s_nouvel_etat_processus).nombre_objets_envoyes_non_lus = 0; |
(*s_nouvel_etat_processus).nombre_objets_envoyes_non_lus = 0; |
(*s_nouvel_etat_processus).nombre_objets_injectes = 0; |
(*s_nouvel_etat_processus).nombre_objets_injectes = 0; |
(*s_nouvel_etat_processus).presence_fusible = d_faux; |
(*s_nouvel_etat_processus).presence_fusible = d_faux; |
Line 3939 debug_fork()
|
Line 3924 debug_fork()
|
pthread_mutex_lock(&mutex_allocation); |
pthread_mutex_lock(&mutex_allocation); |
pid = fork(); |
pid = fork(); |
|
|
# ifdef OS2 |
|
if (pid == 0) |
|
{ |
|
sem_init(&semaphore_liste_threads, 0, 1); |
|
sem_init(&semaphore_gestionnaires_signaux, 0, 0); |
|
sem_init(&semaphore_gestionnaires_signaux_atomique, 0, 1); |
|
sem_init(&((*s_etat_processus).semaphore_fork), 0, 0); |
|
} |
|
# endif |
|
|
|
if (pid == 0) |
if (pid == 0) |
{ |
{ |
liberation_queue_signaux(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |