version 1.45, 2013/03/26 11:05:28
|
version 1.51, 2013/12/03 09:36:11
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.17 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 218 instruction_vers_niveau_inferieur(struct
|
Line 218 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; |
|
} |
|
} |
} |
} |
} |
|
|