--- rpl/src/gestion_pile_systeme.c 2016/03/01 22:12:28 1.76 +++ rpl/src/gestion_pile_systeme.c 2024/01/09 07:33:48 1.92 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.25 - Copyright (C) 1989-2016 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.35 + Copyright (C) 1989-2024 Dr. BERTRAND Joël This file is part of RPL/2. @@ -149,10 +149,13 @@ empilement_pile_systeme(struct_processus = (*s_etat_processus).creation_variables_partagees; (*(*s_etat_processus).l_base_pile_systeme).evaluation_expression = d_faux; + (*(*s_etat_processus).l_base_pile_systeme).debug_programme = + (*s_etat_processus).debug_programme; (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).creation_variables_statiques = d_faux; (*s_etat_processus).creation_variables_partagees = d_faux; + (*s_etat_processus).debug_programme = d_faux; return; } @@ -223,6 +226,8 @@ depilement_pile_systeme(struct_processus (*s_etat_processus).l_base_pile_systeme = l_nouvelle_base_liste; (*s_etat_processus).erreur_systeme = d_es; + (*s_etat_processus).debug_programme = (*l_ancienne_base_liste) + .debug_programme; // On positionne le drapeau de création des variables statiques.