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

Diff for /rpl/src/instructions_r2.c between versions 1.38 and 1.39

version 1.38, 2012/08/22 10:47:17 version 1.39, 2012/09/29 17:53:02
Line 434  instruction_return(struct_processus *s_e Line 434  instruction_return(struct_processus *s_e
                         (strcmp(instruction_majuscule, "DO") == 0) ||                          (strcmp(instruction_majuscule, "DO") == 0) ||
                         (strcmp(instruction_majuscule, "WHILE") == 0) ||                          (strcmp(instruction_majuscule, "WHILE") == 0) ||
                         (strcmp(instruction_majuscule, "FOR") == 0) ||                          (strcmp(instruction_majuscule, "FOR") == 0) ||
                           (strcmp(instruction_majuscule, "FORALL") == 0) ||
                         (strcmp(instruction_majuscule, "START") == 0) ||                          (strcmp(instruction_majuscule, "START") == 0) ||
                         (strcmp(instruction_majuscule, "SELECT") == 0)                          (strcmp(instruction_majuscule, "SELECT") == 0) ||
                           (strcmp(instruction_majuscule, "CRITICAL") == 0)
                         || (strcmp(instruction_majuscule, "CASE") == 0)                          || (strcmp(instruction_majuscule, "CASE") == 0)
                         || (strcmp(instruction_majuscule, "<<") == 0))                          || (strcmp(instruction_majuscule, "<<") == 0))
                 {                  {
Line 501  instruction_return(struct_processus *s_e Line 503  instruction_return(struct_processus *s_e
                         }                          }
                     }                      }
                     else if (((strcmp(instruction_majuscule, "NEXT") == 0) ||                      else if (((strcmp(instruction_majuscule, "NEXT") == 0) ||
                                 (strcmp(instruction_majuscule, "STEP") == 0)) &&                              (strcmp(instruction_majuscule, "STEP") == 0)) &&
                                 ((*(*s_etat_processus).l_base_pile_systeme)                              ((*(*s_etat_processus).l_base_pile_systeme)
                                 .type_cloture != 'L'))                              .type_cloture != 'L'))
                     {                      {
                         /*                          /*
                          * Libération des compteurs de boucle.                           * Libération des compteurs de boucle.
Line 543  instruction_return(struct_processus *s_e Line 545  instruction_return(struct_processus *s_e
                                 return;                                  return;
                             }                              }
   
                             (*(*s_etat_processus).l_base_pile_systeme)                              (*s_etat_processus).niveau_courant--;
                                     .indice_boucle = (*(*s_etat_processus)  
                                     .pointeur_variable_courante).objet;  
   
                             if (presence_compteur == d_vrai)                              if (retrait_variable_par_niveau(
                                       s_etat_processus) == d_erreur)
                             {                              {
                                 (*s_etat_processus).niveau_courant--;                                  return;
   
                                 if (retrait_variable_par_niveau(  
                                         s_etat_processus) == d_erreur)  
                                 {  
                                     return;  
                                 }  
                             }                              }
                         }                          }
   
                         (*(*s_etat_processus).l_base_pile_systeme)  
                                 .indice_boucle = NULL;  
   
                         depilement_pile_systeme(s_etat_processus);                          depilement_pile_systeme(s_etat_processus);
   
                         if ((*s_etat_processus).erreur_systeme != d_es)                          if ((*s_etat_processus).erreur_systeme != d_es)
Line 571  instruction_return(struct_processus *s_e Line 563  instruction_return(struct_processus *s_e
                     }                      }
                     else                      else
                     {                      {
                           if ((*s_etat_processus).l_base_pile_systeme == NULL)
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_processus;
                               return;
                           }
   
                           if ((*(*s_etat_processus).l_base_pile_systeme)
                                   .type_cloture == 'Q')
                           {
                               if (pthread_mutex_unlock(
                                       &mutex_sections_critiques) != 0)
                               {
                                   (*s_etat_processus).erreur_systeme =
                                           d_es_processus;
                                   return;
                               }
   
                               (*s_etat_processus).sections_critiques--;
                           }
   
                         depilement_pile_systeme(s_etat_processus);                          depilement_pile_systeme(s_etat_processus);
   
                         if ((*s_etat_processus).erreur_systeme != d_es)                          if ((*s_etat_processus).erreur_systeme != d_es)
Line 669  instruction_return(struct_processus *s_e Line 682  instruction_return(struct_processus *s_e
                     (fonction == instruction_do) ||                      (fonction == instruction_do) ||
                     (fonction == instruction_while) ||                      (fonction == instruction_while) ||
                     (fonction == instruction_for) ||                      (fonction == instruction_for) ||
                       (fonction == instruction_forall) ||
                     (fonction == instruction_start) ||                      (fonction == instruction_start) ||
                     (fonction == instruction_select) ||                      (fonction == instruction_select) ||
                       (fonction == instruction_critical) ||
                     (fonction == instruction_case) ||                      (fonction == instruction_case) ||
                     (fonction == instruction_vers_niveau_superieur))                      (fonction == instruction_vers_niveau_superieur))
             {              {
Line 775  instruction_return(struct_processus *s_e Line 790  instruction_return(struct_processus *s_e
                             return;                              return;
                         }                          }
   
                         (*(*s_etat_processus).l_base_pile_systeme)                          (*s_etat_processus).niveau_courant--;
                                 .indice_boucle = (*(*s_etat_processus)  
                                 .pointeur_variable_courante).objet;  
   
                         if (presence_compteur == d_vrai)                          if (retrait_variable_par_niveau(s_etat_processus)
                                   == d_erreur)
                         {                          {
                             (*s_etat_processus).niveau_courant--;                              return;
   
                             if (retrait_variable_par_niveau(s_etat_processus)  
                                     == d_erreur)  
                             {  
                                 return;  
                             }  
                         }                          }
                     }                      }
   
                     (*(*s_etat_processus).l_base_pile_systeme)  
                             .indice_boucle = NULL;  
   
                     depilement_pile_systeme(s_etat_processus);                      depilement_pile_systeme(s_etat_processus);
                 }                  }
                 else                  else
                 {                  {
                       if ((*s_etat_processus).l_base_pile_systeme == NULL)
                       {
                           (*s_etat_processus).erreur_systeme =
                                   d_es_processus;
                           return;
                       }
   
                       if ((*(*s_etat_processus).l_base_pile_systeme)
                               .type_cloture == 'Q')
                       {
                           if (pthread_mutex_unlock(
                                   &mutex_sections_critiques) != 0)
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_processus;
                               return;
                           }
   
                           (*s_etat_processus).sections_critiques--;
                       }
   
                     depilement_pile_systeme(s_etat_processus);                      depilement_pile_systeme(s_etat_processus);
   
                     if ((*s_etat_processus).erreur_systeme != d_es)                      if ((*s_etat_processus).erreur_systeme != d_es)
Removed from v.1.38  
changed lines
  Added in v.1.39

CVSweb interface <joel.bertrand@systella.fr>