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

version 1.92, 2015/11/26 11:44:43 version 1.98, 2017/06/28 09:20:39
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.24    RPL/2 (R) version 4.1.27
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 541  sequenceur(struct_processus *s_etat_proc Line 541  sequenceur(struct_processus *s_etat_proc
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
               (*s_etat_processus).instruction_sensible = 'N';
             analyse(s_etat_processus, NULL);              analyse(s_etat_processus, NULL);
   
             if ((*s_etat_processus).traitement_cycle_exit != 'N')              if ((*s_etat_processus).traitement_cycle_exit != 'N')
Line 933  sequenceur(struct_processus *s_etat_proc Line 934  sequenceur(struct_processus *s_etat_proc
                     (*((struct_fonction *) (*s_objet).objet))                      (*((struct_fonction *) (*s_objet).objet))
                             .nombre_arguments = 0;                              .nombre_arguments = 0;
   
                     if ((*s_etat_processus).instruction_intrinseque == 'Y')                      if (((*s_etat_processus).instruction_intrinseque == 'Y') &&
                               ((*s_etat_processus).instruction_sensible == 'N'))
                     {                      {
                         if (((*((struct_fonction *) (*s_objet).objet))                          if (((*((struct_fonction *) (*s_objet).objet))
                                 .nom_fonction = conversion_majuscule(                                  .nom_fonction = conversion_majuscule(
Line 1524  sequenceur(struct_processus *s_etat_proc Line 1526  sequenceur(struct_processus *s_etat_proc
         if ((*s_etat_processus).var_volatile_processus_pere == 0)          if ((*s_etat_processus).var_volatile_processus_pere == 0)
         {          {
             envoi_signal_processus((*s_etat_processus).pid_processus_pere,              envoi_signal_processus((*s_etat_processus).pid_processus_pere,
                     rpl_sigalrm);                      rpl_sigalrm, d_faux);
         }          }
         else          else
         {          {

Removed from v.1.92  
changed lines
  Added in v.1.98


CVSweb interface <joel.bertrand@systella.fr>