version 1.47, 2012/12/17 21:22:43
|
version 1.51, 2013/02/26 19:56:14
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.12 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 549 instruction_fleche(struct_processus *s_e
|
Line 549 instruction_fleche(struct_processus *s_e
|
(*s_etat_processus).objet_courant; |
(*s_etat_processus).objet_courant; |
} |
} |
|
|
|
if (pthread_mutex_lock(&mutex_creation_variable_partagee) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
|
if (recherche_variable_partagee(s_etat_processus, s_variable.nom, |
if (recherche_variable_partagee(s_etat_processus, s_variable.nom, |
position_variable, |
position_variable, |
((*s_etat_processus).mode_execution_programme == 'Y') |
((*s_etat_processus).mode_execution_programme == 'Y') |
Line 556 instruction_fleche(struct_processus *s_e
|
Line 562 instruction_fleche(struct_processus *s_e
|
{ |
{ |
// Variable partagée à utiliser |
// Variable partagée à utiliser |
|
|
|
if (pthread_mutex_unlock(&mutex_creation_variable_partagee) |
|
!= 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
|
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
.pointeur_variable_partagee_courante).mutex)) != 0) |
.pointeur_variable_partagee_courante).mutex)) != 0) |
{ |
{ |
Line 580 instruction_fleche(struct_processus *s_e
|
Line 593 instruction_fleche(struct_processus *s_e
|
} |
} |
else |
else |
{ |
{ |
// Variable partagée à utiliser |
|
// Variable partagee à créer |
// Variable partagee à créer |
|
|
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
Line 641 instruction_fleche(struct_processus *s_e
|
Line 653 instruction_fleche(struct_processus *s_e
|
if (creation_variable_partagee(s_etat_processus, |
if (creation_variable_partagee(s_etat_processus, |
&s_variable_partagee) == d_erreur) |
&s_variable_partagee) == d_erreur) |
{ |
{ |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
|
.pointeur_variable_partagee_courante).mutex)) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
|
|
return; |
return; |
} |
} |
|
|
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
s_variable.objet = NULL; |
.pointeur_variable_partagee_courante).mutex)) != 0) |
|
|
if (pthread_mutex_unlock(&mutex_creation_variable_partagee) |
|
!= 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
} |
} |
|
|
s_variable.objet = NULL; |
|
} |
} |
} |
} |
else |
else |