[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.55 and 1.82

version 1.55, 2014/04/25 07:37:30 version 1.82, 2025/04/15 10:17:52
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.18    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2014 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 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.55  
changed lines
  Added in v.1.82

CVSweb interface <joel.bertrand@systella.fr>