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

Diff for /rpl/src/types.c between versions 1.26 and 1.35

version 1.26, 2011/01/03 12:08:10 version 1.35, 2011/06/24 20:31:43
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.20    RPL/2 (R) version 4.1.0.prerelease.4
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 79  recherche_type(struct_processus *s_etat_ Line 79  recherche_type(struct_processus *s_etat_
     unsigned char               registre_test;      unsigned char               registre_test;
     unsigned char               registre_test_bis;      unsigned char               registre_test_bis;
     unsigned char               *tampon;      unsigned char               *tampon;
       unsigned char               variable_implicite;
   
     unsigned long               i;      unsigned long               i;
     unsigned long               j;      unsigned long               j;
Line 2318  recherche_type(struct_processus *s_etat_ Line 2319  recherche_type(struct_processus *s_etat_
                 }                  }
             }              }
   
               variable_implicite = (*s_etat_processus).autorisation_nom_implicite;
             registre_recherche_type = (*s_etat_processus).recherche_type;              registre_recherche_type = (*s_etat_processus).recherche_type;
             (*s_etat_processus).recherche_type = 'Y';              (*s_etat_processus).recherche_type = 'Y';
               (*s_etat_processus).autorisation_nom_implicite = 'Y';
   
             if (sequenceur(s_etat_processus) == d_erreur)              if (sequenceur(s_etat_processus) == d_erreur)
             {              {
                   (*s_etat_processus).autorisation_nom_implicite =
                           variable_implicite;
                 (*s_etat_processus).recherche_type = registre_recherche_type;                  (*s_etat_processus).recherche_type = registre_recherche_type;
                 (*s_etat_processus).mode_execution_programme =                  (*s_etat_processus).mode_execution_programme =
                         registre_mode_execution_programme;                          registre_mode_execution_programme;
                 (*s_etat_processus).erreur_execution = d_ex_syntaxe;  
                   if ((*s_etat_processus).erreur_execution !=
                           d_ex_nom_implicite)
                   {
                       (*s_etat_processus).erreur_execution = d_ex_syntaxe;
                   }
   
                 nombre_lignes_a_supprimer =                  nombre_lignes_a_supprimer =
                         (*s_etat_processus).hauteur_pile_operationnelle                          (*s_etat_processus).hauteur_pile_operationnelle
Line 2372  recherche_type(struct_processus *s_etat_ Line 2382  recherche_type(struct_processus *s_etat_
                 return;                  return;
             }              }
   
               (*s_etat_processus).autorisation_nom_implicite = variable_implicite;
             (*s_etat_processus).recherche_type = registre_recherche_type;              (*s_etat_processus).recherche_type = registre_recherche_type;
             (*s_etat_processus).mode_execution_programme =              (*s_etat_processus).mode_execution_programme =
                     registre_mode_execution_programme;                      registre_mode_execution_programme;
Line 2956  recherche_type(struct_processus *s_etat_ Line 2967  recherche_type(struct_processus *s_etat_
                 registre_recherche_type = (*s_etat_processus).recherche_type;                  registre_recherche_type = (*s_etat_processus).recherche_type;
                 (*s_etat_processus).recherche_type = 'Y';                  (*s_etat_processus).recherche_type = 'Y';
   
                   variable_implicite =
                           (*s_etat_processus).autorisation_nom_implicite;
                   (*s_etat_processus).autorisation_nom_implicite = 'Y';
   
                 if (sequenceur(s_etat_processus) == d_erreur)                  if (sequenceur(s_etat_processus) == d_erreur)
                 {                  {
                       (*s_etat_processus).autorisation_nom_implicite =
                               variable_implicite;
                     (*s_etat_processus).erreur_execution = d_ex_syntaxe;                      (*s_etat_processus).erreur_execution = d_ex_syntaxe;
                     (*s_etat_processus).recherche_type =                      (*s_etat_processus).recherche_type =
                             registre_recherche_type;                              registre_recherche_type;
Line 3008  recherche_type(struct_processus *s_etat_ Line 3025  recherche_type(struct_processus *s_etat_
                     return;                      return;
                 }                  }
   
                   (*s_etat_processus).autorisation_nom_implicite =
                           variable_implicite;
                 (*s_etat_processus).recherche_type = registre_recherche_type;                  (*s_etat_processus).recherche_type = registre_recherche_type;
                 (*s_etat_processus).mode_execution_programme =                  (*s_etat_processus).mode_execution_programme =
                         registre_mode_execution_programme;                          registre_mode_execution_programme;
Removed from v.1.26  
changed lines
  Added in v.1.35

CVSweb interface <joel.bertrand@systella.fr>