version 1.9, 2010/05/05 08:36:25
|
version 1.32, 2011/09/26 15:57:11
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.15 |
RPL/2 (R) version 4.1.4 |
Copyright (C) 1989-2010 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 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 258 affichage_pile(struct_processus *s_etat_
|
Line 258 affichage_pile(struct_processus *s_etat_
|
registre = (*s_etat_processus).autorisation_conversion_chaine; |
registre = (*s_etat_processus).autorisation_conversion_chaine; |
(*s_etat_processus).autorisation_conversion_chaine = 'N'; |
(*s_etat_processus).autorisation_conversion_chaine = 'N'; |
|
|
|
routine_recursive = 1; |
ecriture_pile(s_etat_processus, stdout, l_element_courant, niveau_courant); |
ecriture_pile(s_etat_processus, stdout, l_element_courant, niveau_courant); |
|
routine_recursive = 0; |
|
|
(*s_etat_processus).autorisation_conversion_chaine = registre; |
(*s_etat_processus).autorisation_conversion_chaine = registre; |
return; |
return; |
Line 274 ecriture_pile(struct_processus *s_etat_p
|
Line 276 ecriture_pile(struct_processus *s_etat_p
|
|
|
if (l_element_courant != NULL) |
if (l_element_courant != NULL) |
{ |
{ |
if (setjmp(contexte) == 0) |
if (setjmp(contexte_ecriture) == 0) |
{ |
{ |
(*s_etat_processus).var_volatile_recursivite = -1; |
(*s_etat_processus).var_volatile_recursivite = -1; |
ecriture_pile(s_etat_processus, flux, |
ecriture_pile(s_etat_processus, flux, |
Line 375 impression_pile(struct_processus *s_etat
|
Line 377 impression_pile(struct_processus *s_etat
|
|
|
if (l_element_courant != NULL) |
if (l_element_courant != NULL) |
{ |
{ |
if (setjmp(contexte) == 0) |
if (setjmp(contexte_impression) == 0) |
{ |
{ |
(*s_etat_processus).var_volatile_recursivite = -1; |
(*s_etat_processus).var_volatile_recursivite = -1; |
impression_pile(s_etat_processus, (*l_element_courant).suivant, |
impression_pile(s_etat_processus, (*l_element_courant).suivant, |