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

Diff for /rpl/src/instructions_e2.c between versions 1.46 and 1.60

version 1.46, 2013/02/28 12:41:27 version 1.60, 2015/02/19 11:01:23
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.21
   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 623  instruction_errm(struct_processus *s_eta Line 623  instruction_errm(struct_processus *s_eta
 {  {
     struct_objet            *s_objet_resultat;      struct_objet            *s_objet_resultat;
   
     unsigned int            registre_erreur_execution;      int                     registre_erreur_execution;
     unsigned int            registre_erreur_systeme;      int                     registre_erreur_systeme;
     unsigned int            registre_exception;      int                     registre_exception;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1018  instruction_externals(struct_processus * Line 1018  instruction_externals(struct_processus *
 {  {
     logical1                ambiguite;      logical1                ambiguite;
   
     unsigned long           i;      integer8                i;
   
     struct_liste_chainee    *l_element_courant;      struct_liste_chainee    *l_element_courant;
   
Line 1187  instruction_exit(struct_processus *s_eta Line 1187  instruction_exit(struct_processus *s_eta
     unsigned char                   *instruction_majuscule;      unsigned char                   *instruction_majuscule;
     unsigned char                   *tampon;      unsigned char                   *tampon;
   
     unsigned long                   niveau;      integer8                        niveau;
   
     void                            (*fonction)();      void                            (*fonction)();
   
Line 1287  instruction_exit(struct_processus *s_eta Line 1287  instruction_exit(struct_processus *s_eta
         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, "");
   
         if (drapeau_boucle_definie == d_vrai)          if (drapeau_boucle_definie == d_vrai)
         {          {
Line 1305  instruction_exit(struct_processus *s_eta Line 1305  instruction_exit(struct_processus *s_eta
                 }                  }
   
                 (*s_etat_processus).erreur_systeme = d_es;                  (*s_etat_processus).erreur_systeme = d_es;
                 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 1338  instruction_exit(struct_processus *s_eta Line 1338  instruction_exit(struct_processus *s_eta
                     {                      {
                         if ((strcmp(instruction_majuscule, "FOR") == 0) ||                          if ((strcmp(instruction_majuscule, "FOR") == 0) ||
                                 (strcmp(instruction_majuscule, "FORALL") == 0)                                  (strcmp(instruction_majuscule, "FORALL") == 0)
                                 || (strcmp(instruction_majuscule, "START")                                  || (strcmp(instruction_majuscule, "START")
                                 == 0))                                  == 0))
                         {                          {
                             niveau++;                              niveau++;
Line 1433  instruction_exit(struct_processus *s_eta Line 1433  instruction_exit(struct_processus *s_eta
                     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 1829  instruction_exit(struct_processus *s_eta Line 1829  instruction_exit(struct_processus *s_eta
     if ((drapeau_boucle_definie == d_vrai) &&      if ((drapeau_boucle_definie == d_vrai) &&
             (drapeau_presence_fin_boucle == d_vrai))              (drapeau_presence_fin_boucle == d_vrai))
     {      {
         presence_compteur = ((*(*s_etat_processus).l_base_pile_systeme)          presence_compteur = (((*(*s_etat_processus).l_base_pile_systeme)
                 .type_cloture == 'F') ? d_vrai : d_faux;                  .type_cloture == 'F') || ((*(*s_etat_processus)
                   .l_base_pile_systeme).type_cloture == 'A')) ? d_vrai : d_faux;
   
         if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture != 'S')          if (((*(*s_etat_processus).l_base_pile_systeme).type_cloture != 'S')
                 && (presence_compteur == d_faux))                  && (presence_compteur == d_faux))
Removed from v.1.46  
changed lines
  Added in v.1.60

CVSweb interface <joel.bertrand@systella.fr>