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

Diff for /rpl/src/instructions_f4.c between versions 1.49 and 1.77

version 1.49, 2013/12/03 09:36:13 version 1.77, 2025/04/15 10:17:53
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.17    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 520  instruction_forall(struct_processus *s_e Line 520  instruction_forall(struct_processus *s_e
         return;          return;
     }      }
   
     tampon = (*s_etat_processus).instruction_courante;  
     test_instruction = (*s_etat_processus).test_instruction;  
     instruction_valide = (*s_etat_processus).instruction_valide;  
     (*s_etat_processus).test_instruction = 'Y';  
   
     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 534  instruction_forall(struct_processus *s_e Line 529  instruction_forall(struct_processus *s_e
   
     if ((*s_etat_processus).mode_execution_programme == 'Y')      if ((*s_etat_processus).mode_execution_programme == 'Y')
     {      {
           tampon = (*s_etat_processus).instruction_courante;
           test_instruction = (*s_etat_processus).test_instruction;
           instruction_valide = (*s_etat_processus).instruction_valide;
           (*s_etat_processus).test_instruction = 'Y';
   
         if (recherche_instruction_suivante(s_etat_processus) == d_erreur)          if (recherche_instruction_suivante(s_etat_processus) == d_erreur)
         {          {
             return;              return;
Line 546  instruction_forall(struct_processus *s_e Line 546  instruction_forall(struct_processus *s_e
             liberation(s_etat_processus, s_objet_1);              liberation(s_etat_processus, s_objet_1);
             free((*s_etat_processus).instruction_courante);              free((*s_etat_processus).instruction_courante);
             (*s_etat_processus).instruction_courante = tampon;              (*s_etat_processus).instruction_courante = tampon;
               (*s_etat_processus).instruction_valide = instruction_valide;
               (*s_etat_processus).test_instruction = test_instruction;
   
             depilement_pile_systeme(s_etat_processus);              depilement_pile_systeme(s_etat_processus);
   
Line 553  instruction_forall(struct_processus *s_e Line 555  instruction_forall(struct_processus *s_e
             return;              return;
         }          }
   
           (*s_etat_processus).type_en_cours = NON;
         recherche_type(s_etat_processus);          recherche_type(s_etat_processus);
   
         free((*s_etat_processus).instruction_courante);          free((*s_etat_processus).instruction_courante);
         (*s_etat_processus).instruction_courante = tampon;          (*s_etat_processus).instruction_courante = tampon;
           (*s_etat_processus).instruction_valide = instruction_valide;
           (*s_etat_processus).test_instruction = test_instruction;
   
         if ((*s_etat_processus).erreur_execution != d_ex)          if ((*s_etat_processus).erreur_execution != d_ex)
         {          {
Line 651  instruction_forall(struct_processus *s_e Line 656  instruction_forall(struct_processus *s_e
                 return;                  return;
             }              }
   
             (*s_etat_processus).test_instruction = test_instruction;  
             (*s_etat_processus).instruction_valide = instruction_valide;  
   
             instruction_cycle(s_etat_processus);              instruction_cycle(s_etat_processus);
             return;              return;
         }          }
Line 695  instruction_forall(struct_processus *s_e Line 697  instruction_forall(struct_processus *s_e
                 return;                  return;
             }              }
   
             (*s_etat_processus).test_instruction = test_instruction;  
             (*s_etat_processus).instruction_valide = instruction_valide;  
   
             instruction_cycle(s_etat_processus);              instruction_cycle(s_etat_processus);
             return;              return;
         }          }
Line 731  instruction_forall(struct_processus *s_e Line 730  instruction_forall(struct_processus *s_e
   
     liberation(s_etat_processus, s_objet_2);      liberation(s_etat_processus, s_objet_2);
   
     (*s_etat_processus).test_instruction = test_instruction;  
     (*s_etat_processus).instruction_valide = instruction_valide;  
   
     (*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle = s_objet_1;      (*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle = s_objet_1;
   
     if ((*s_etat_processus).mode_execution_programme == 'Y')      if ((*s_etat_processus).mode_execution_programme == 'Y')
Removed from v.1.49  
changed lines
  Added in v.1.77

CVSweb interface <joel.bertrand@systella.fr>