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

Diff for /rpl/src/sequenceur.c between versions 1.74 and 1.83

version 1.74, 2013/04/18 21:38:04 version 1.83, 2015/01/05 13:12:42
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.14    RPL/2 (R) version 4.1.19
   Copyright (C) 1989-2013 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 295  sequenceur(struct_processus *s_etat_proc Line 295  sequenceur(struct_processus *s_etat_proc
                     tampon = (*s_etat_processus).instruction_courante;                      tampon = (*s_etat_processus).instruction_courante;
                     (*s_etat_processus).instruction_courante = ligne;                      (*s_etat_processus).instruction_courante = ligne;
   
                       (*s_etat_processus).type_en_cours = NON;
                     recherche_type(s_etat_processus);                      recherche_type(s_etat_processus);
   
                     (*s_etat_processus).instruction_courante = tampon;                      (*s_etat_processus).instruction_courante = tampon;
Line 333  sequenceur(struct_processus *s_etat_proc Line 334  sequenceur(struct_processus *s_etat_proc
                     }                      }
                     else                      else
                     {                      {
                           position_courante =
                                   (*s_etat_processus).position_courante;
                         empilement_pile_systeme(s_etat_processus);                          empilement_pile_systeme(s_etat_processus);
   
                         if ((*s_etat_processus).erreur_systeme != d_es)                          if ((*s_etat_processus).erreur_systeme != d_es)
Line 456  sequenceur(struct_processus *s_etat_proc Line 459  sequenceur(struct_processus *s_etat_proc
                         {                             {   
                             liberation(s_etat_processus, s_objet);                              liberation(s_etat_processus, s_objet);
                         }                          }
   
                           (*s_etat_processus).position_courante =
                                   position_courante;
                     }                      }
                 }                  }
                 else if ((*s_etat_processus).invalidation_message_erreur                  else if ((*s_etat_processus).invalidation_message_erreur
Line 792  sequenceur(struct_processus *s_etat_proc Line 798  sequenceur(struct_processus *s_etat_proc
 */  */
   
                     (*s_etat_processus).erreur_systeme = d_es;                      (*s_etat_processus).erreur_systeme = d_es;
                       (*s_etat_processus).type_en_cours = NON;
                     recherche_type(s_etat_processus);                      recherche_type(s_etat_processus);
   
                     if ((*s_etat_processus).autorisation_nom_implicite == 'N')                      if ((*s_etat_processus).autorisation_nom_implicite == 'N')
Removed from v.1.74  
changed lines
  Added in v.1.83

CVSweb interface <joel.bertrand@systella.fr>