[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.54 and 1.65

version 1.54, 2011/06/21 07:45:23 version 1.65, 2011/09/03 10:31:50
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0.prerelease.1    RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 814  instruction_der(struct_processus *s_etat Line 814  instruction_der(struct_processus *s_etat
 void  void
 instruction_detach(struct_processus *s_etat_processus)  instruction_detach(struct_processus *s_etat_processus)
 {  {
     int                         status;  
   
     logical1                    drapeau;      logical1                    drapeau;
     logical1                    variable_partagee;      logical1                    variable_partagee;
   
Line 2076  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) &&  
                             ((*s_etat_processus).erreur_systeme == d_es))  
                     {  
                         (*s_etat_processus).erreur_execution =  
                                 d_ex_erreur_evaluation;  
                     }  
                 }  
                 else  
                 {                  {
                     if (((*s_etat_processus).var_volatile_alarme == 0)                      if (evaluation(s_etat_processus, s_objet, 'E') == d_erreur)
                             && ((*s_etat_processus).arret_depuis_abort == 0)  
                             && ((*s_etat_processus).at_exit != NULL))  
                     {                      {
                         (*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
             }  
             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 2455  instruction_detach(struct_processus *s_e Line 2458  instruction_detach(struct_processus *s_e
   
         while((*s_etat_processus).l_base_pile_processus != NULL)          while((*s_etat_processus).l_base_pile_processus != NULL)
         {          {
             status = 0;  
   
             l_element_courant = (struct_liste_chainee *)              l_element_courant = (struct_liste_chainee *)
                     (*s_etat_processus).l_base_pile_processus;                      (*s_etat_processus).l_base_pile_processus;
   
Line 2927  instruction_detach(struct_processus *s_e Line 2928  instruction_detach(struct_processus *s_e
         destruction_fifos_signaux(s_etat_processus);          destruction_fifos_signaux(s_etat_processus);
 #       endif  #       endif
   
           liberation_contexte_cas(s_etat_processus);
         free(s_etat_processus);          free(s_etat_processus);
   
 #       ifdef DEBUG_MEMOIRE  #       ifdef DEBUG_MEMOIRE
Removed from v.1.54  
changed lines
  Added in v.1.65

CVSweb interface <joel.bertrand@systella.fr>