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

Diff for /rpl/src/instructions_d5.c between versions 1.63 and 1.65

version 1.63, 2011/08/30 14:19:28 version 1.65, 2011/09/03 10:31:50
Line 2074  instruction_detach(struct_processus *s_e Line 2074  instruction_detach(struct_processus *s_e
   
         if ((*s_etat_processus).erreur_systeme == d_es)          if ((*s_etat_processus).erreur_systeme == d_es)
         {          {
             if (variable_partagee == d_faux)              if (setjmp(contexte_processus) == 0)
             {              {
                 if (evaluation(s_etat_processus, s_objet, 'E') == d_erreur)                  if (variable_partagee == d_faux)
                 {                  {
                     if (((*s_etat_processus).erreur_execution == d_ex) &&                      if (evaluation(s_etat_processus, s_objet, 'E') == d_erreur)
                             ((*s_etat_processus).erreur_systeme == d_es))  
                     {                      {
                         (*s_etat_processus).erreur_execution =                          if (((*s_etat_processus).erreur_execution == d_ex) &&
                                 d_ex_erreur_evaluation;                                  ((*s_etat_processus).erreur_systeme == d_es))
                     }  
                 }  
                 else  
                 {  
                     if (((*s_etat_processus).var_volatile_alarme == 0)  
                             && ((*s_etat_processus).arret_depuis_abort == 0)  
                             && ((*s_etat_processus).at_exit != NULL))  
                     {  
                         (*s_etat_processus).var_volatile_requete_arret = 0;  
   
                         if (evaluation(s_etat_processus,  
                                 (*s_etat_processus).at_exit, 'E') == d_erreur)  
                         {                          {
                             (*s_etat_processus).erreur_execution =                              (*s_etat_processus).erreur_execution =
                                     d_ex_erreur_evaluation;                                      d_ex_erreur_evaluation;
                         }                          }
                     }                      }
                 }                      else
             }  
             else  
             {  
                 if (evaluation(s_etat_processus, s_copie, 'E') == d_erreur)  
                 {  
                     if (((*s_etat_processus).erreur_execution == d_ex) &&  
                             ((*s_etat_processus).erreur_systeme == d_es))  
                     {                      {
                         (*s_etat_processus).erreur_execution =                          if (((*s_etat_processus).var_volatile_alarme == 0)
                                 d_ex_erreur_evaluation;                                  && ((*s_etat_processus).arret_depuis_abort == 0)
                                   && ((*s_etat_processus).at_exit != NULL))
                           {
                               (*s_etat_processus).var_volatile_requete_arret = 0;
   
                               if (evaluation(s_etat_processus,
                                       (*s_etat_processus).at_exit, 'E') ==
                                       d_erreur)
                               {
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_erreur_evaluation;
                               }
                           }
                     }                      }
                 }                  }
                 else                  else
                 {                  {
                     if ((*s_etat_processus).at_exit != NULL)                      if (evaluation(s_etat_processus, s_copie, 'E') == d_erreur)
                     {                      {
                         (*s_etat_processus).var_volatile_requete_arret = 0;                          if (((*s_etat_processus).erreur_execution == d_ex) &&
                                   ((*s_etat_processus).erreur_systeme == d_es))
                         if (evaluation(s_etat_processus,  
                                 (*s_etat_processus).at_exit, 'E') == d_erreur)  
                         {                          {
                             (*s_etat_processus).erreur_execution =                              (*s_etat_processus).erreur_execution =
                                     d_ex_erreur_evaluation;                                      d_ex_erreur_evaluation;
                         }                          }
                     }                      }
                 }                      else
                       {
                           if ((*s_etat_processus).at_exit != NULL)
                           {
                               (*s_etat_processus).var_volatile_requete_arret = 0;
   
                 liberation(s_etat_processus, s_copie);                              if (evaluation(s_etat_processus,
                                       (*s_etat_processus).at_exit, 'E') ==
                                       d_erreur)
                               {
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_erreur_evaluation;
                               }
                           }
                       }
   
                       liberation(s_etat_processus, s_copie);
                   }
             }              }
         }          }
   
Line 2726  instruction_detach(struct_processus *s_e Line 2731  instruction_detach(struct_processus *s_e
         while(l_element_courant != NULL)          while(l_element_courant != NULL)
         {          {
             l_element_suivant = (*l_element_courant).suivant;              l_element_suivant = (*l_element_courant).suivant;
   
             liberation(s_etat_processus, (*l_element_courant).donnee);  
             free(l_element_courant);  
   
             l_element_courant = l_element_suivant;  
         }  
   
         l_element_courant = (*s_etat_processus).l_base_pile_undo;  
         while(l_element_courant != NULL)  
         {  
             l_element_suivant = (*l_element_courant).suivant;  
   
             liberation(s_etat_processus, (*l_element_courant).donnee);              liberation(s_etat_processus, (*l_element_courant).donnee);
             free(l_element_courant);              free(l_element_courant);
Removed from v.1.63  
changed lines
  Added in v.1.65

CVSweb interface <joel.bertrand@systella.fr>