Diff for /rpl/src/instructions_d5.c between versions 1.96 and 1.97

version 1.96, 2012/10/14 21:37:10 version 1.97, 2012/12/13 16:59:41
Line 934  instruction_detach(struct_processus *s_e Line 934  instruction_detach(struct_processus *s_e
             if ((*(*s_etat_processus).pointeur_variable_courante).objet              if ((*(*s_etat_processus).pointeur_variable_courante).objet
                     == NULL)                      == NULL)
             {              {
                 if (pthread_mutex_lock(&((*(*s_etat_processus)  
                         .s_liste_variables_partagees).mutex)) != 0)  
                 {  
                     (*s_etat_processus).erreur_systeme = d_es_processus;  
                     return;  
                 }  
   
                 if (recherche_variable_partagee(s_etat_processus,                  if (recherche_variable_partagee(s_etat_processus,
                         (*(*s_etat_processus).pointeur_variable_courante).nom,                          (*(*s_etat_processus).pointeur_variable_courante).nom,
                         (*(*s_etat_processus).pointeur_variable_courante)                          (*(*s_etat_processus).pointeur_variable_courante)
                         .variable_partagee, (*(*s_etat_processus)                          .variable_partagee, (*(*s_etat_processus)
                         .pointeur_variable_courante).origine) == d_faux)                          .pointeur_variable_courante).origine) == d_faux)
                 {                  {
                     if (pthread_mutex_unlock(&((*(*s_etat_processus)  
                             .s_liste_variables_partagees).mutex)) != 0)  
                     {  
                         (*s_etat_processus).erreur_systeme = d_es_processus;  
                         return;  
                     }  
   
                     liberation(s_etat_processus, s_objet);                      liberation(s_etat_processus, s_objet);
   
                     (*s_etat_processus).erreur_systeme = d_es;                      (*s_etat_processus).erreur_systeme = d_es;
Line 962  instruction_detach(struct_processus *s_e Line 948  instruction_detach(struct_processus *s_e
                     return;                      return;
                 }                  }
   
                 if (((*(*(*s_etat_processus).s_liste_variables_partagees)                  if (((*(*(*s_etat_processus)
                         .table[(*(*s_etat_processus)                          .pointeur_variable_partagee_courante).objet).type
                         .s_liste_variables_partagees).position_variable].objet)                          == RPN) && ((*(*(*s_etat_processus)
                         .type != RPN) && ((*(*(*s_etat_processus)                          .pointeur_variable_partagee_courante).objet).type
                         .s_liste_variables_partagees).table                          == ADR))
                         [(*(*s_etat_processus).s_liste_variables_partagees)  
                         .position_variable].objet).type != ADR))  
                 {                  {
                     if (pthread_mutex_unlock(&((*(*s_etat_processus)                      if (pthread_mutex_unlock(&((*(*s_etat_processus)
                             .s_liste_variables_partagees).mutex)) != 0)                              .pointeur_variable_partagee_courante).mutex)) != 0)
                     {                      {
                         (*s_etat_processus).erreur_systeme = d_es_processus;                          (*s_etat_processus).erreur_systeme = d_es_processus;
                         return;                          return;
Line 985  instruction_detach(struct_processus *s_e Line 969  instruction_detach(struct_processus *s_e
                 }                  }
   
                 if ((s_copie = copie_objet(s_etat_processus,                  if ((s_copie = copie_objet(s_etat_processus,
                         (*(*s_etat_processus).s_liste_variables_partagees).table                          (*(*s_etat_processus)
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          .pointeur_variable_partagee_courante).objet, 'P'))
                         .position_variable].objet, 'P')) == NULL)                          == NULL)
                 {                  {
                     if (pthread_mutex_unlock(&((*(*s_etat_processus)                      if (pthread_mutex_unlock(&((*(*s_etat_processus)
                             .s_liste_variables_partagees).mutex)) != 0)                              .pointeur_variable_partagee_courante).mutex)) != 0)
                     {                      {
                         (*s_etat_processus).erreur_systeme = d_es_processus;                          (*s_etat_processus).erreur_systeme = d_es_processus;
                         return;                          return;
Line 1005  instruction_detach(struct_processus *s_e Line 989  instruction_detach(struct_processus *s_e
                 variable_partagee = d_vrai;                  variable_partagee = d_vrai;
   
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1384  instruction_detach(struct_processus *s_e Line 1368  instruction_detach(struct_processus *s_e
         (*s_etat_processus).liste_mutexes = NULL;          (*s_etat_processus).liste_mutexes = NULL;
   
         liberation_threads(s_etat_processus);          liberation_threads(s_etat_processus);
   
         (*(*s_etat_processus).s_liste_variables_partagees)  
                 .table = NULL;  
         (*(*s_etat_processus).s_liste_variables_partagees)  
                 .nombre_variables = 0;  
         (*(*s_etat_processus).s_liste_variables_partagees)  
                 .nombre_variables_allouees = 0;  
   
         insertion_thread(s_etat_processus, d_vrai);          insertion_thread(s_etat_processus, d_vrai);
   
         // Envoi d'une donnée pour signaler le démarrage du processus au thread          // Envoi d'une donnée pour signaler le démarrage du processus au thread
Line 2622  instruction_detach(struct_processus *s_e Line 2598  instruction_detach(struct_processus *s_e
             (*s_etat_processus).instruction_derniere_erreur = NULL;              (*s_etat_processus).instruction_derniere_erreur = NULL;
         }          }
   
           liberation_arbre_variables_partagees(s_etat_processus,
                   (*s_etat_processus).s_arbre_variables);
         liberation_arbre_variables(s_etat_processus,          liberation_arbre_variables(s_etat_processus,
                 (*s_etat_processus).s_arbre_variables, d_vrai);                  (*s_etat_processus).s_arbre_variables, d_vrai);
         free((*s_etat_processus).pointeurs_caracteres_variables);          free((*s_etat_processus).pointeurs_caracteres_variables);
   
         for(i = 0; i < (*(*s_etat_processus).s_liste_variables_partagees)  
                 .nombre_variables; i++)  
         {  
             liberation(s_etat_processus,  
                     (*(*s_etat_processus).s_liste_variables_partagees)  
                     .table[i].objet);  
             free((*(*s_etat_processus).s_liste_variables_partagees)  
                     .table[i].nom);  
         }  
   
         if ((*(*s_etat_processus).s_liste_variables_partagees).table  
                 != NULL)  
         {  
             free((struct_variable_partagee *)  
                     (*(*s_etat_processus).s_liste_variables_partagees).table);  
         }  
   
         pthread_mutex_destroy(&((*(*s_etat_processus)  
                 .s_liste_variables_partagees).mutex));  
   
         l_element_courant = (*s_etat_processus).l_base_pile;          l_element_courant = (*s_etat_processus).l_base_pile;
         while(l_element_courant != NULL)          while(l_element_courant != NULL)
         {          {

Removed from v.1.96  
changed lines
  Added in v.1.97


CVSweb interface <joel.bertrand@systella.fr>