[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.44 and 1.50

version 1.44, 2013/03/20 17:11:45 version 1.50, 2013/12/12 07:26:54
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.17
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 40  instruction_fleche_table(struct_processu Line 40  instruction_fleche_table(struct_processu
 {  {
     struct_objet                    *s_objet;      struct_objet                    *s_objet;
   
     signed long                     i;      integer8                        i;
     signed long                     nombre_elements;      integer8                        nombre_elements;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
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 557  instruction_forall(struct_processus *s_e Line 559  instruction_forall(struct_processus *s_e
   
         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 731  instruction_forall(struct_processus *s_e Line 735  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.44  
changed lines
  Added in v.1.50

CVSweb interface <joel.bertrand@systella.fr>