version 1.34, 2011/09/20 14:36:29
|
version 1.46, 2012/10/04 15:21:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
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 169 instruction_mem(struct_processus *s_etat
|
Line 169 instruction_mem(struct_processus *s_etat
|
|
|
free(tableau); |
free(tableau); |
|
|
|
#warning A FIXER |
|
/* |
for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++) |
for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++) |
{ |
{ |
// Comptabilisation des empreintes mémoire des variables |
// Comptabilisation des empreintes mémoire des variables |
Line 187 instruction_mem(struct_processus *s_etat
|
Line 189 instruction_mem(struct_processus *s_etat
|
.s_liste_variables_statiques[i].objet); |
.s_liste_variables_statiques[i].objet); |
} |
} |
} |
} |
|
*/ |
|
|
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 453 instruction_mtxlock(struct_processus *s_
|
Line 456 instruction_mtxlock(struct_processus *s_
|
return; |
return; |
} |
} |
|
|
|
(*((struct_mutex *) (*s_objet_argument).objet)).tid = pthread_self(); |
|
|
# ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) |
while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) |
# else |
# else |
Line 608 instruction_mtxtrylock(struct_processus
|
Line 613 instruction_mtxtrylock(struct_processus
|
return; |
return; |
} |
} |
} |
} |
|
else |
|
{ |
|
(*((struct_mutex *) (*s_objet_argument).objet)).tid = |
|
pthread_self(); |
|
} |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if ((*s_etat_processus).profilage == d_vrai) |
{ |
{ |
Line 631 instruction_mtxtrylock(struct_processus
|
Line 641 instruction_mtxtrylock(struct_processus
|
return; |
return; |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = (ios == 0) ? 0 : -1; |
(*((integer8 *) (*s_objet_resultat).objet)) = (ios == 0) ? -1 : 0; |
|
|
if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
s_objet_resultat) == d_erreur) |
s_objet_resultat) == d_erreur) |
Line 642 instruction_mtxtrylock(struct_processus
|
Line 652 instruction_mtxtrylock(struct_processus
|
return; |
return; |
} |
} |
|
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Fonction 'mtxstatus' |
Fonction 'mtxstatus' |
Line 766 instruction_mtxstatus(struct_processus *
|
Line 777 instruction_mtxstatus(struct_processus *
|
} |
} |
} |
} |
|
|
if (pthread_mutex_unlock(&((*((struct_mutex *) |
if (ios == 0) |
(*s_objet_argument).objet)).mutex)) != 0) |
|
{ |
{ |
liberation(s_etat_processus, s_objet_argument); |
// Le mutex a été verrouillé par le trylock précédent. |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if (pthread_mutex_unlock(&((*((struct_mutex *) |
|
(*s_objet_argument).objet)).mutex)) != 0) |
{ |
{ |
profilage(s_etat_processus, NULL); |
liberation(s_etat_processus, s_objet_argument); |
} |
|
|
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
if ((*s_etat_processus).profilage == d_vrai) |
return; |
{ |
|
profilage(s_etat_processus, NULL); |
|
} |
|
|
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
} |
} |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if ((*s_etat_processus).profilage == d_vrai) |
Line 891 instruction_mtxunlock(struct_processus *
|
Line 907 instruction_mtxunlock(struct_processus *
|
|
|
if (l_element_courant == NULL) |
if (l_element_courant == NULL) |
{ |
{ |
|
liberation(s_etat_processus, s_objet_argument); |
|
|
(*s_etat_processus).erreur_execution = d_ex_mutex; |
(*s_etat_processus).erreur_execution = d_ex_mutex; |
|
return; |
|
} |
|
|
|
if (pthread_equal(pthread_self(), (*((struct_mutex *) |
|
(*s_objet_argument).objet)).tid) == 0) |
|
{ |
liberation(s_etat_processus, s_objet_argument); |
liberation(s_etat_processus, s_objet_argument); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_mutex_acquis_autre_thread; |
return; |
return; |
} |
} |
|
|