Diff for /rpl/src/rpl.c between versions 1.58.2.1 and 1.63

version 1.58.2.1, 2011/04/11 13:02:28 version 1.63, 2011/04/21 16:01:00
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.22    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 2544  rplinit(int argc, char *argv[], unsigned Line 2549  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.1  
changed lines
  Added in v.1.63


CVSweb interface <joel.bertrand@systella.fr>