[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.55 and 1.63

version 1.55, 2011/06/21 15:26:31 version 1.63, 2011/08/30 14:19:28
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0.prerelease.2    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 2455  instruction_detach(struct_processus *s_e Line 2453  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 2737  instruction_detach(struct_processus *s_e Line 2733  instruction_detach(struct_processus *s_e
             l_element_courant = l_element_suivant;              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);
               free(l_element_courant);
   
               l_element_courant = l_element_suivant;
           }
   
         l_element_courant = (*s_etat_processus).l_base_pile_contextes;          l_element_courant = (*s_etat_processus).l_base_pile_contextes;
         while(l_element_courant != NULL)          while(l_element_courant != NULL)
         {          {
Line 2927  instruction_detach(struct_processus *s_e Line 2934  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.55  
changed lines
  Added in v.1.63

CVSweb interface <joel.bertrand@systella.fr>