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

Diff for /rpl/src/instructions_c6.c between versions 1.20 and 1.21

version 1.20, 2011/06/20 17:54:16 version 1.21, 2011/06/21 07:35:40
Line 38 Line 38
 void  void
 instruction_clusr(struct_processus *s_etat_processus)  instruction_clusr(struct_processus *s_etat_processus)
 {  {
       struct_liste_variables              *l_element_courant;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 70  instruction_clusr(struct_processus *s_et Line 72  instruction_clusr(struct_processus *s_et
             return;              return;
         }          }
     }      }
 /*  
  * Utiliser la pile des variables par niveau      l_element_courant = (*s_etat_processus).l_liste_variables_par_niveau;
     for(i = 0; i < (*s_etat_processus).nombre_variables; i++)  
       if (l_element_courant == NULL)
       {
           return;
       }
   
       do
     {      {
         if (((*s_etat_processus).s_liste_variables[i]).niveau == 1)          if ((*l_element_courant).liste != NULL)
         {          {
             if (retrait_variable(s_etat_processus,              if ((*(*l_element_courant).liste).donnee != NULL)
                     ((*s_etat_processus).s_liste_variables[i]).nom, 'G')  
                     == d_erreur)  
             {              {
                 return;                  if ((*((struct_variable *) (*(*l_element_courant).liste)
                           .donnee)).niveau == 1)
                   {
                       while((*l_element_courant).liste != NULL)
                       {
                           if (retrait_variable(s_etat_processus,
                                   (*((struct_variable *) (*(*l_element_courant)
                                   .liste).donnee)).nom, 'G') == d_erreur)
                           {
                               return;
                           }
   
                           if ((*s_etat_processus).niveau_supprime == d_vrai)
                           {
                               // La dernière variable de niveau 1 a été
                               // supprimée. On sort donc de la boucle car
                               // (*l_element_courant).liste pointe sur
                               // un pointeur libérée par retrait_variable().
   
                               break;
                           }
                       }
   
                       break;
                   }
             }              }
         }          }
     }  
     */          l_element_courant = (*l_element_courant).precedent;
       } while(l_element_courant != (*s_etat_processus)
               .l_liste_variables_par_niveau);
   
     return;      return;
 }  }
Removed from v.1.20  
changed lines
  Added in v.1.21

CVSweb interface <joel.bertrand@systella.fr>