Diff for /rpl/src/rpl.c between versions 1.58.2.3 and 1.61

version 1.58.2.3, 2011/04/14 08:46:50 version 1.61, 2011/04/14 10:32:59
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.23    RPL/2 (R) version 4.1.0.prerelease.0
   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 107  rplinit(int argc, char *argv[], unsigned Line 107  rplinit(int argc, char *argv[], unsigned
   
     errno = 0;      errno = 0;
   
 #   ifdef DMALLOC  
     atexit(dmalloc_shutdown());  
 #   endif  
   
 #   ifdef DEBUG_MEMOIRE  #   ifdef DEBUG_MEMOIRE
     debug_memoire_initialisation();      debug_memoire_initialisation();
 #   endif  #   endif
Line 1837  rplinit(int argc, char *argv[], unsigned Line 1833  rplinit(int argc, char *argv[], unsigned
             (*s_etat_processus).affichage_arguments = 'N';              (*s_etat_processus).affichage_arguments = 'N';
             (*s_etat_processus).autorisation_conversion_chaine = 'Y';              (*s_etat_processus).autorisation_conversion_chaine = 'Y';
             (*s_etat_processus).autorisation_evaluation_nom = 'Y';              (*s_etat_processus).autorisation_evaluation_nom = 'Y';
               (*s_etat_processus).autorisation_nom_implicite = 'Y';
             if (mode_interactif == d_vrai)  
             {  
                 (*s_etat_processus).autorisation_nom_implicite = 'Y';  
             }  
             else  
             {  
                 (*s_etat_processus).autorisation_nom_implicite = 'N';  
             }  
   
             (*s_etat_processus).autorisation_empilement_programme = 'N';              (*s_etat_processus).autorisation_empilement_programme = 'N';
             (*s_etat_processus).requete_arret = 'N';              (*s_etat_processus).requete_arret = 'N';
             (*s_etat_processus).evaluation_forcee = 'N';              (*s_etat_processus).evaluation_forcee = 'N';
Line 2553  rplinit(int argc, char *argv[], unsigned Line 2540  rplinit(int argc, char *argv[], unsigned
                     fflush(stdout);                      fflush(stdout);
   
                     initialisation_instructions(s_etat_processus);                      initialisation_instructions(s_etat_processus);
                       initialisation_variables(s_etat_processus);
   
                     if (arguments != NULL)                      if (arguments != NULL)
                     {                      {

Removed from v.1.58.2.3  
changed lines
  Added in v.1.61


CVSweb interface <joel.bertrand@systella.fr>