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

Diff for /rpl/src/instructions_c2.c between versions 1.59 and 1.76

version 1.59, 2015/01/05 15:32:16 version 1.76, 2020/01/10 11:15:44
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.20    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 125  instruction_cycle(struct_processus *s_et Line 125  instruction_cycle(struct_processus *s_et
         tampon = (*s_etat_processus).instruction_courante;          tampon = (*s_etat_processus).instruction_courante;
         niveau = 1;          niveau = 1;
   
         instruction_majuscule = conversion_majuscule("");          instruction_majuscule = conversion_majuscule(s_etat_processus, "");
   
         while(!(((strcmp(instruction_majuscule, "NEXT") == 0) ||          while(!(((strcmp(instruction_majuscule, "NEXT") == 0) ||
                 (strcmp(instruction_majuscule, "STEP") == 0)) && (niveau == 0)))                  (strcmp(instruction_majuscule, "STEP") == 0)) && (niveau == 0)))
Line 139  instruction_cycle(struct_processus *s_et Line 139  instruction_cycle(struct_processus *s_et
                 return;                  return;
             }              }
   
             instruction_majuscule = conversion_majuscule(              instruction_majuscule = conversion_majuscule(s_etat_processus,
                     (*s_etat_processus).instruction_courante);                      (*s_etat_processus).instruction_courante);
   
             if (instruction_majuscule == NULL)              if (instruction_majuscule == NULL)
Line 315  instruction_cycle(struct_processus *s_et Line 315  instruction_cycle(struct_processus *s_et
                 else                  else
                 {                  {
                     if ((fonction == instruction_for) ||                      if ((fonction == instruction_for) ||
                               (fonction == instruction_forall) ||
                             (fonction == instruction_start))                              (fonction == instruction_start))
                     {                      {
                         niveau++;                          niveau++;
Removed from v.1.59  
changed lines
  Added in v.1.76

CVSweb interface <joel.bertrand@systella.fr>