[BACK]Return to gestion_variables.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/gestion_variables.c between versions 1.95 and 1.103

version 1.95, 2015/10/22 18:37:09 version 1.103, 2018/05/30 09:27:32
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.23    RPL/2 (R) version 4.1.29
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2018 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 1858  nombre_variables_locales(struct_processu Line 1858  nombre_variables_locales(struct_processu
 }  }
   
   
 static void  
 reinitialisation_recursive_mutexes_variables_partagees(  
         struct_processus *s_etat_processus,  
         struct_arbre_variables_partagees *l_element_courant)  
 {  
     integer8                                i;  
   
     struct_liste_variables_partagees        *l_variable;  
   
     if (l_element_courant == NULL)  
     {  
         return;  
     }  
   
     pthread_mutex_destroy(&((*l_element_courant).mutex_feuille));  
     INITIALISATION_MUTEX((*l_element_courant).mutex_feuille);  
   
     if ((*l_element_courant).feuille != NULL)  
     {  
         l_variable = (*l_element_courant).feuille;  
   
         do  
         {  
             pthread_mutex_destroy(&((*(*l_variable).variable).mutex));  
             INITIALISATION_MUTEX((*(*l_variable).variable).mutex);  
             l_variable = (*l_variable).suivant;  
         } while(l_variable != NULL);  
     }  
   
     for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)  
     {  
         if ((*l_element_courant).noeuds[i] != NULL)  
         {  
             reinitialisation_recursive_mutexes_variables_partagees(  
                     s_etat_processus, (*l_element_courant).noeuds[i]);  
         }  
     }  
   
     return;  
 }  
   
   
 void  
 reinitialisation_mutexes_variables_partagees(struct_processus *s_etat_processus)  
 {  
     reinitialisation_recursive_mutexes_variables_partagees(s_etat_processus,  
             (*(*s_etat_processus).s_arbre_variables_partagees));  
     return;  
 }  
   
   
 static integer8  static integer8
 nombre_variables_partagees(struct_processus *s_etat_processus,  nombre_variables_partagees(struct_processus *s_etat_processus,
         struct_arbre_variables_partagees *l_element_courant)          struct_arbre_variables_partagees *l_element_courant)
Removed from v.1.95  
changed lines
  Added in v.1.103

CVSweb interface <joel.bertrand@systella.fr>