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

Diff for /rpl/src/sequenceur.c between versions 1.89 and 1.92

version 1.89, 2015/06/08 14:11:45 version 1.92, 2015/11/26 11:44:43
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.22    RPL/2 (R) version 4.1.24
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2015 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 585  sequenceur(struct_processus *s_etat_proc Line 585  sequenceur(struct_processus *s_etat_proc
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
                         if ((*s_etat_processus).debug == d_vrai)                          if (recherche_variable_partagee(s_etat_processus,
                             if (((*s_etat_processus).type_debug &                                  (*(*s_etat_processus)
                                     d_debug_variables) != 0)                                  .pointeur_variable_courante).nom,
                                   (*(*s_etat_processus)
                                   .pointeur_variable_courante).variable_partagee,
                                   'P') != NULL)
                         {                          {
                             if ((*s_etat_processus).langue == 'F')                              // La variable existe.
   
                               if ((*s_etat_processus).debug == d_vrai)
                                   if (((*s_etat_processus).type_debug &
                                           d_debug_variables) != 0)
                             {                              {
                                 printf("[%d] Évaluation de la variable "                                  if ((*s_etat_processus).langue == 'F')
                                   {
                                       printf("[%d] Évaluation de la variable "
                                         "partagée %s de type %d\n",                                          "partagée %s de type %d\n",
                                         (int) getpid(), (*s_etat_processus)                                          (int) getpid(), (*s_etat_processus)
                                         .instruction_courante,                                          .instruction_courante,
                                         (*(*(*s_etat_processus)                                          (*(*(*s_etat_processus)
                                         .pointeur_variable_courante).objet)                                          .pointeur_variable_partagee_courante)
                                         .type);                                          .objet).type);
                             }                                  }
                             else                                  else
                             {                                  {
                                 printf("[%d] Pushing %s as %d type shared "                                      printf("[%d] Pushing %s as %d type shared "
                                         "variable\n", (int) getpid(),                                          "variable\n", (int) getpid(),
                                         (*s_etat_processus)                                          (*s_etat_processus)
                                         .instruction_courante,                                          .instruction_courante,
                                         (*(*(*s_etat_processus)                                          (*(*(*s_etat_processus)
                                         .pointeur_variable_courante).objet)                                          .pointeur_variable_partagee_courante)
                                         .type);                                          .objet).type);
                             }                                  }
   
                             fflush(stdout);  
                         }  
   
                         if (recherche_variable_partagee(s_etat_processus,                                  fflush(stdout);
                                 (*(*s_etat_processus)                              }
                                 .pointeur_variable_courante).nom,  
                                 (*(*s_etat_processus)  
                                 .pointeur_variable_courante).variable_partagee,  
                                 'P') != NULL)  
                         {  
                             // La variable existe.  
   
                             if ((s_objet = copie_objet(s_etat_processus,                              if ((s_objet = copie_objet(s_etat_processus,
                                     (*(*s_etat_processus)                                      (*(*s_etat_processus)
Line 653  sequenceur(struct_processus *s_etat_proc Line 653  sequenceur(struct_processus *s_etat_proc
                         else                          else
                         {                          {
                             // La variable n'existe plus.                              // La variable n'existe plus.
                               if ((*s_etat_processus).debug == d_vrai)
                                   if (((*s_etat_processus).type_debug &
                                           d_debug_variables) != 0)
                               {
                                   if ((*s_etat_processus).langue == 'F')
                                   {
                                       printf("[%d] Tentative d'accès à la "
                                           "variable partagée non définie %s\n",
                                           (int) getpid(), (*s_etat_processus)
                                           .instruction_courante);
                                   }
                                   else
                                   {
                                       printf("[%d] Trying to access to undefined "
                                           "shared variable %s\n",
                                           (int) getpid(),
                                           (*s_etat_processus)
                                           .instruction_courante);
                                   }
   
                                   fflush(stdout);
                               }
                         }                          }
                     }                      }
   
Removed from v.1.89  
changed lines
  Added in v.1.92

CVSweb interface <joel.bertrand@systella.fr>