Diff for /rpl/src/instructions_v1.c between versions 1.42 and 1.44

version 1.42, 2012/10/01 11:05:07 version 1.44, 2012/12/13 16:59:42
Line 1088  instruction_vars(struct_processus *s_eta Line 1088  instruction_vars(struct_processus *s_eta
   
         if (tableau[i].objet == NULL)          if (tableau[i].objet == NULL)
         {          {
             if (pthread_mutex_lock(&((*(*s_etat_processus)  
                     .s_liste_variables_partagees).mutex)) != 0)  
             {  
                 (*s_etat_processus).erreur_systeme = d_es_processus;  
                 return;  
             }  
   
             if (recherche_variable_partagee(s_etat_processus,              if (recherche_variable_partagee(s_etat_processus,
                     tableau[i].nom, tableau[i].variable_partagee,                      tableau[i].nom, tableau[i].variable_partagee,
                     tableau[i].origine) == d_faux)                      tableau[i].origine) == d_faux)
             {              {
                 // La variable partagée n'existe plus.                  // La variable partagée n'existe plus.
   
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)  
                         .s_liste_variables_partagees).mutex)) != 0)  
                 {  
                     (*s_etat_processus).erreur_systeme = d_es_processus;  
                     return;  
                 }  
   
                 continue;                  continue;
             }              }
   
Line 1129  instruction_vars(struct_processus *s_eta Line 1115  instruction_vars(struct_processus *s_eta
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1152  instruction_vars(struct_processus *s_eta Line 1138  instruction_vars(struct_processus *s_eta
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1178  instruction_vars(struct_processus *s_eta Line 1164  instruction_vars(struct_processus *s_eta
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1196  instruction_vars(struct_processus *s_eta Line 1182  instruction_vars(struct_processus *s_eta
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1222  instruction_vars(struct_processus *s_eta Line 1208  instruction_vars(struct_processus *s_eta
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1240  instruction_vars(struct_processus *s_eta Line 1226  instruction_vars(struct_processus *s_eta
             if (((*(*(*((struct_liste_chainee *) (*((struct_objet *)              if (((*(*(*((struct_liste_chainee *) (*((struct_objet *)
                     (*l_element_courant).donnee)).objet)).suivant).suivant)                      (*l_element_courant).donnee)).objet)).suivant).suivant)
                     .donnee = copie_objet(s_etat_processus,                      .donnee = copie_objet(s_etat_processus,
                     (*(*s_etat_processus)                      (*(*s_etat_processus).pointeur_variable_partagee_courante)
                     .s_liste_variables_partagees).table[(*(*s_etat_processus)                      .objet, 'P')) == NULL)
                     .s_liste_variables_partagees).position_variable].objet,  
                     'P')) == NULL)  
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .pointeur_variable_partagee_courante).mutex)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
Line 1257  instruction_vars(struct_processus *s_eta Line 1241  instruction_vars(struct_processus *s_eta
             }              }
   
             if (pthread_mutex_unlock(&((*(*s_etat_processus)              if (pthread_mutex_unlock(&((*(*s_etat_processus)
                     .s_liste_variables_partagees).mutex)) != 0)                      .pointeur_variable_partagee_courante).mutex)) != 0)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_processus;                  (*s_etat_processus).erreur_systeme = d_es_processus;
                 return;                  return;
Line 1310  instruction_vars(struct_processus *s_eta Line 1294  instruction_vars(struct_processus *s_eta
                 return;                  return;
             }              }
   
             strcpy((unsigned char *) (*(*(*(*(*((struct_liste_chainee *)              if (tableau[i].variable_masquee == d_vrai)
                     (*((struct_objet *) (*l_element_courant).donnee)).objet))              {
                     .suivant).suivant) .suivant).donnee).objet, "STATIC");                  strcpy((unsigned char *) (*(*(*(*(*((struct_liste_chainee *)
                           (*((struct_objet *) (*l_element_courant).donnee))
                           .objet)).suivant).suivant).suivant).donnee).objet,
                           "SHADOW");
               }
               else
               {
                   strcpy((unsigned char *) (*(*(*(*(*((struct_liste_chainee *)
                           (*((struct_objet *) (*l_element_courant).donnee))
                           .objet)).suivant).suivant).suivant).donnee).objet,
                           "STATIC");
               }
         }          }
         else          else
         {          {

Removed from v.1.42  
changed lines
  Added in v.1.44


CVSweb interface <joel.bertrand@systella.fr>