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

Diff for /rpl/src/instructions_p2.c between versions 1.17.2.2 and 1.35

version 1.17.2.2, 2011/04/14 08:46:45 version 1.35, 2012/04/13 14:12:57
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.23    RPL/2 (R) version 4.1.8
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 1438  instruction_put(struct_processus *s_etat Line 1438  instruction_put(struct_processus *s_etat
             return;              return;
         }          }
   
         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 1450  instruction_put(struct_processus *s_etat Line 1450  instruction_put(struct_processus *s_etat
             return;              return;
         }          }
   
         s_objet_4 = (*s_etat_processus).s_liste_variables          s_objet_4 = (*(*s_etat_processus).pointeur_variable_courante).objet;
                 [(*s_etat_processus).position_variable_courante].objet;  
   
         if (s_objet_4 == NULL)          if (s_objet_4 == NULL)
         {          {
Line 1463  instruction_put(struct_processus *s_etat Line 1462  instruction_put(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)                      (*(*s_etat_processus).pointeur_variable_courante).nom,
                     .position_variable_courante].nom,                      (*(*s_etat_processus).pointeur_variable_courante)
                     (*s_etat_processus).s_liste_variables[(*s_etat_processus)                      .variable_partagee, (*(*s_etat_processus)
                     .position_variable_courante].variable_partagee,                      .pointeur_variable_courante).origine) == d_faux)
                     (*s_etat_processus).s_liste_variables[(*s_etat_processus)  
                     .position_variable_courante].origine) == d_faux)  
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .s_liste_variables_partagees).mutex)) != 0)
Line 1951  instruction_put(struct_processus *s_etat Line 1948  instruction_put(struct_processus *s_etat
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Line 2548  instruction_put(struct_processus *s_etat Line 2544  instruction_put(struct_processus *s_etat
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Line 2663  instruction_put(struct_processus *s_etat Line 2658  instruction_put(struct_processus *s_etat
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Line 2827  instruction_put(struct_processus *s_etat Line 2821  instruction_put(struct_processus *s_etat
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Line 3909  instruction_puti(struct_processus *s_eta Line 3902  instruction_puti(struct_processus *s_eta
             return;              return;
         }          }
   
         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 3921  instruction_puti(struct_processus *s_eta Line 3914  instruction_puti(struct_processus *s_eta
             return;              return;
         }          }
   
         s_objet_4 = (*s_etat_processus).s_liste_variables[(*s_etat_processus)          s_objet_4 = (*(*s_etat_processus).pointeur_variable_courante).objet;
                 .position_variable_courante].objet;  
   
         if (s_objet_4 == NULL)          if (s_objet_4 == NULL)
         {          {
Line 3934  instruction_puti(struct_processus *s_eta Line 3926  instruction_puti(struct_processus *s_eta
             }              }
   
             if (recherche_variable_partagee(s_etat_processus,              if (recherche_variable_partagee(s_etat_processus,
                     (*s_etat_processus).s_liste_variables[(*s_etat_processus)                      (*(*s_etat_processus).pointeur_variable_courante).nom,
                     .position_variable_courante].nom,                      (*(*s_etat_processus).pointeur_variable_courante)
                     (*s_etat_processus).s_liste_variables[(*s_etat_processus)                      .variable_partagee, (*(*s_etat_processus)
                     .position_variable_courante].variable_partagee,                      .pointeur_variable_courante).origine) == d_faux)
                     (*s_etat_processus).s_liste_variables[(*s_etat_processus)  
                     .position_variable_courante].origine) == d_faux)  
             {              {
                 if (pthread_mutex_unlock(&((*(*s_etat_processus)                  if (pthread_mutex_unlock(&((*(*s_etat_processus)
                         .s_liste_variables_partagees).mutex)) != 0)                          .s_liste_variables_partagees).mutex)) != 0)
Line 4426  instruction_puti(struct_processus *s_eta Line 4416  instruction_puti(struct_processus *s_eta
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees)                  (*(*s_etat_processus).s_liste_variables_partagees)
                         .table[(*(*s_etat_processus)                          .table[(*(*s_etat_processus)
                         .s_liste_variables_partagees).position_variable].objet                          .s_liste_variables_partagees).position_variable].objet
Line 5043  instruction_puti(struct_processus *s_eta Line 5032  instruction_puti(struct_processus *s_eta
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Line 5168  instruction_puti(struct_processus *s_eta Line 5156  instruction_puti(struct_processus *s_eta
   
             if (variable_partagee == d_faux)              if (variable_partagee == d_faux)
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet =
                         .position_variable_courante].objet = s_objet_4;                          s_objet_4;
             }              }
             else              else
             {              {
                 (*s_etat_processus).s_liste_variables[(*s_etat_processus)                  (*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
                         .position_variable_courante].objet = NULL;  
                 (*(*s_etat_processus).s_liste_variables_partagees).table                  (*(*s_etat_processus).s_liste_variables_partagees).table
                         [(*(*s_etat_processus).s_liste_variables_partagees)                          [(*(*s_etat_processus).s_liste_variables_partagees)
                         .position_variable].objet = s_objet_4;                          .position_variable].objet = s_objet_4;
Removed from v.1.17.2.2  
changed lines
  Added in v.1.35

CVSweb interface <joel.bertrand@systella.fr>