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

version 1.20, 2011/04/21 16:00:58 version 1.21, 2011/06/10 11:35:13
Line 534  instruction_return(struct_processus *s_e Line 534  instruction_return(struct_processus *s_e
                                 return;                                  return;
                             }                              }
   
                             if (((*s_etat_processus).s_liste_variables                              if ((*(*s_etat_processus)
                                     [(*s_etat_processus)                                      .pointeur_variable_courante).objet == NULL)
                                     .position_variable_courante]).objet == NULL)  
                             {                              {
                                 (*s_etat_processus).erreur_systeme = d_es;                                  (*s_etat_processus).erreur_systeme = d_es;
                                 (*s_etat_processus).erreur_execution =                                  (*s_etat_processus).erreur_execution =
Line 545  instruction_return(struct_processus *s_e Line 544  instruction_return(struct_processus *s_e
                             }                              }
   
                             (*(*s_etat_processus).l_base_pile_systeme)                              (*(*s_etat_processus).l_base_pile_systeme)
                                     .indice_boucle = ((*s_etat_processus)                                      .indice_boucle = (*(*s_etat_processus)
                                     .s_liste_variables[(*s_etat_processus)                                      .pointeur_variable_courante).objet;
                                     .position_variable_courante]).objet;  
   
                             if (presence_compteur == d_vrai)                              if (presence_compteur == d_vrai)
                             {                              {
Line 768  instruction_return(struct_processus *s_e Line 766  instruction_return(struct_processus *s_e
                             return;                              return;
                         }                          }
   
                         if ((*s_etat_processus).s_liste_variables                          if ((*(*s_etat_processus).pointeur_variable_courante)
                                 [(*s_etat_processus).position_variable_courante]  
                                 .objet == NULL)                                  .objet == NULL)
                         {                          {
                             (*s_etat_processus).erreur_systeme = d_es;                              (*s_etat_processus).erreur_systeme = d_es;
Line 779  instruction_return(struct_processus *s_e Line 776  instruction_return(struct_processus *s_e
                         }                          }
   
                         (*(*s_etat_processus).l_base_pile_systeme)                          (*(*s_etat_processus).l_base_pile_systeme)
                                 .indice_boucle = ((*s_etat_processus)                                  .indice_boucle = (*(*s_etat_processus)
                                 .s_liste_variables[(*s_etat_processus)                                  .pointeur_variable_courante).objet;
                                 .position_variable_courante]).objet;  
   
                         if (presence_compteur == d_vrai)                          if (presence_compteur == d_vrai)
                         {                          {
Line 940  instruction_rdm(struct_processus *s_etat Line 936  instruction_rdm(struct_processus *s_etat
   
         liberation(s_etat_processus, s_objet_initial);          liberation(s_etat_processus, s_objet_initial);
   
         if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)          if ((*(*s_etat_processus).pointeur_variable_courante)
                 .position_variable_courante].variable_verrouillee == d_vrai)                  .variable_verrouillee == d_vrai)
         {          {
             (*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;              (*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;
   
Line 949  instruction_rdm(struct_processus *s_etat Line 945  instruction_rdm(struct_processus *s_etat
             return;              return;
         }          }
   
         s_objet_initial = (*s_etat_processus).s_liste_variables          s_objet_initial = (*(*s_etat_processus).pointeur_variable_courante)
                 [(*s_etat_processus).position_variable_courante].objet;                  .objet;
   
         if (s_objet_initial == NULL)          if (s_objet_initial == NULL)
         {          {
Line 962  instruction_rdm(struct_processus *s_etat Line 958  instruction_rdm(struct_processus *s_etat
             }              }
   
             if (recherche_variable_partagee(s_etat_processus,              if (recherche_variable_partagee(s_etat_processus,
                     (*s_etat_processus).s_liste_variables                      (*(*s_etat_processus).pointeur_variable_courante).nom,
                     [(*s_etat_processus).position_variable_courante].nom,                      (*(*s_etat_processus).pointeur_variable_courante)
                     (*s_etat_processus).s_liste_variables                      .variable_partagee, (*(*s_etat_processus)
                     [(*s_etat_processus).position_variable_courante]                      .pointeur_variable_courante).origine)
                     .variable_partagee, (*s_etat_processus).s_liste_variables  
                     [(*s_etat_processus).position_variable_courante].origine)  
                     == d_faux)                      == d_faux)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
Line 2212  instruction_rdm(struct_processus *s_etat Line 2206  instruction_rdm(struct_processus *s_etat
         }          }
         else          else
         {          {
             (*s_etat_processus).s_liste_variables              (*(*s_etat_processus).pointeur_variable_courante).objet =
                     [(*s_etat_processus).position_variable_courante].objet =  
                     s_objet_redimensionne;                      s_objet_redimensionne;
         }          }
     }      }

Removed from v.1.20  
changed lines
  Added in v.1.21


CVSweb interface <joel.bertrand@systella.fr>