Diff for /rpl/src/types.c between versions 1.33 and 1.34

version 1.33, 2011/06/22 13:27:05 version 1.34, 2011/06/23 12:41:15
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.33  
changed lines
  Added in v.1.34


CVSweb interface <joel.bertrand@systella.fr>