version 1.70, 2013/03/20 17:11:44
|
version 1.78, 2013/04/18 15:33:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.14 |
Copyright (C) 1989-2013 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 1531 retrait_variables_par_niveau(struct_proc
|
Line 1531 retrait_variables_par_niveau(struct_proc
|
break; |
break; |
} |
} |
|
|
|
if (((*s_etat_processus).at_exit != NULL) && |
|
((*s_etat_processus).niveau_courant == 0)) |
|
{ |
|
// Il y a une routine ATEXIT enregistrée. On ne détruit pas |
|
// les variables globales qui pourraient y être utilisées. |
|
|
|
break; |
|
} |
|
|
while((*(*s_etat_processus).l_liste_variables_par_niveau).liste |
while((*(*s_etat_processus).l_liste_variables_par_niveau).liste |
!= NULL) |
!= NULL) |
{ |
{ |
Line 1863 nombre_variables_partagees(struct_proces
|
Line 1872 nombre_variables_partagees(struct_proces
|
return(0); |
return(0); |
} |
} |
|
|
|
// Mutex deverrouillé par liste_variables_partagees(); |
if (pthread_mutex_lock(&((*l_element_courant).mutex_feuille)) != 0) |
if (pthread_mutex_lock(&((*l_element_courant).mutex_feuille)) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
Line 1953 liste_variables_locales(struct_processus
|
Line 1963 liste_variables_locales(struct_processus
|
|
|
if (l_element_courant == NULL) |
if (l_element_courant == NULL) |
{ |
{ |
return(0); |
return(position); |
} |
} |
|
|
if ((*l_element_courant).feuille != NULL) |
if ((*l_element_courant).feuille != NULL) |
Line 1973 liste_variables_locales(struct_processus
|
Line 1983 liste_variables_locales(struct_processus
|
tableau[position].variable_partagee = |
tableau[position].variable_partagee = |
(*(*l_variable).variable).variable_partagee; |
(*(*l_variable).variable).variable_partagee; |
tableau[position].variable_masquee = d_faux; |
tableau[position].variable_masquee = d_faux; |
|
tableau[position].mutex = NULL; |
|
|
position++; |
position++; |
|
|
l_variable = (*l_variable).suivant; |
l_variable = (*l_variable).suivant; |
} while(l_variable != (*l_element_courant).feuille); |
} while(l_variable != (*l_element_courant).feuille); |
} |
} |
Line 1991 liste_variables_locales(struct_processus
|
Line 2003 liste_variables_locales(struct_processus
|
tableau[position].nom = (*(*l_variable_statique).variable).nom; |
tableau[position].nom = (*(*l_variable_statique).variable).nom; |
tableau[position].niveau = |
tableau[position].niveau = |
(*(*l_variable_statique).variable).niveau; |
(*(*l_variable_statique).variable).niveau; |
tableau[position].objet = |
tableau[position].objet = (*(*l_variable_statique).variable) |
(*(*l_variable_statique).variable).objet; |
.objet; |
tableau[position].variable_verrouillee = d_faux; |
tableau[position].variable_verrouillee = d_faux; |
tableau[position].variable_statique = |
tableau[position].variable_statique = |
(*(*l_variable_statique).variable).variable_statique; |
(*(*l_variable_statique).variable).variable_statique; |
Line 2030 liste_variables_partagees(struct_process
|
Line 2042 liste_variables_partagees(struct_process
|
|
|
if (l_element_courant == NULL) |
if (l_element_courant == NULL) |
{ |
{ |
return(0); |
return(position); |
} |
} |
|
|
if ((*l_element_courant).feuille != NULL) |
if ((*l_element_courant).feuille != NULL) |
Line 2046 liste_variables_partagees(struct_process
|
Line 2058 liste_variables_partagees(struct_process
|
tableau[position].variable_verrouillee = d_faux; |
tableau[position].variable_verrouillee = d_faux; |
tableau[position].variable_partagee = |
tableau[position].variable_partagee = |
(*(*l_variable).variable).variable_partagee; |
(*(*l_variable).variable).variable_partagee; |
tableau[position].variable_partagee.pointeur = NULL; |
tableau[position].variable_statique.pointeur = NULL; |
tableau[position].variable_masquee = d_faux; |
tableau[position].variable_masquee = d_faux; |
|
tableau[position].mutex = &((*(*l_variable).variable).mutex); |
|
pthread_mutex_lock(tableau[position].mutex); |
|
|
position++; |
position++; |
|
|
Line 2064 liste_variables_partagees(struct_process
|
Line 2078 liste_variables_partagees(struct_process
|
} |
} |
} |
} |
|
|
|
// Mutex verrouillé par nombre_variables_partagees(); |
|
if (pthread_mutex_unlock(&((*l_element_courant).mutex_feuille)) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return(0); |
|
} |
|
|
return(position); |
return(position); |
} |
} |
|
|
Line 2100 liste_variables(struct_processus *s_etat
|
Line 2121 liste_variables(struct_processus *s_etat
|
|
|
nombre_elements = liste_variables_locales(s_etat_processus, |
nombre_elements = liste_variables_locales(s_etat_processus, |
tableau, 0, (*s_etat_processus).s_arbre_variables); |
tableau, 0, (*s_etat_processus).s_arbre_variables); |
nombre_elements += liste_variables_partagees(s_etat_processus, |
nombre_elements = liste_variables_partagees(s_etat_processus, |
tableau, nombre_elements, (*(*s_etat_processus) |
tableau, nombre_elements, (*(*s_etat_processus) |
.s_arbre_variables_partagees)); |
.s_arbre_variables_partagees)); |
|
|