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

Diff for /rpl/src/gestion_niveaux.c between versions 1.45 and 1.80

version 1.45, 2013/03/26 11:05:28 version 1.80, 2025/04/15 10:17:51
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 190  instruction_vers_niveau_inferieur(struct Line 190  instruction_vers_niveau_inferieur(struct
                 (*s_etat_processus).position_courante =                  (*s_etat_processus).position_courante =
                         (*(*s_etat_processus).l_base_pile_systeme)                          (*(*s_etat_processus).l_base_pile_systeme)
                         .adresse_retour;                          .adresse_retour;
                   (*s_etat_processus).debug_programme =
                           (*(*s_etat_processus).l_base_pile_systeme)
                           .debug_programme;
   
                 if ((*s_etat_processus).profilage == d_vrai)                  if ((*s_etat_processus).profilage == d_vrai)
                 {                  {
Line 218  instruction_vers_niveau_inferieur(struct Line 221  instruction_vers_niveau_inferieur(struct
     if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)      if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)
             .gel_liste_variables == d_faux))              .gel_liste_variables == d_faux))
     {      {
         // Si une routine ATEXIT est enregistrée, on ne détruit pas les          if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
         // variables globales pour qu'elles puissent être utilisées depuis  
         // la routine ATEXIT.  
   
         if (!(((*s_etat_processus).at_exit != NULL) &&  
                 ((*s_etat_processus).niveau_courant == 0)))  
         {          {
             if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)              return;
             {  
                 return;  
             }  
         }          }
     }      }
   
Removed from v.1.45  
changed lines
  Added in v.1.80

CVSweb interface <joel.bertrand@systella.fr>