rpl/src/gestion_variables.c - diff

Return to gestion_variables.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_variables.c between versions 1.73 and 1.76

version 1.73, 2013/03/24 13:42:44	version 1.76, 2013/04/02 11:56:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.14
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 1531 retrait_variables_par_niveau(struct_proc	Line 1531 retrait_variables_par_niveau(struct_proc
break;	break;
}	}

	if (((*s_etat_processus).at_exit != NULL) &&
	((*s_etat_processus).niveau_courant == 0))
	{
	// Il y a une routine ATEXIT enregistrée. On ne détruit pas
	// les variables globales qui pourraient y être utilisées.

	break;
	}

while(((s_etat_processus).l_liste_variables_par_niveau).liste	while(((s_etat_processus).l_liste_variables_par_niveau).liste
!= NULL)	!= NULL)
{	{
Line 1697 liberation_arbre_variables(struct_proces	Line 1706 liberation_arbre_variables(struct_proces
do	do
{	{
l_element_suivant = (*l_element_courant).suivant;	l_element_suivant = (*l_element_courant).suivant;
	free(((l_element_courant).variable).nom);
	liberation(s_etat_processus, ((l_element_courant)
	.variable).objet);
liberation_feuille(s_etat_processus, l_element_courant);	liberation_feuille(s_etat_processus, l_element_courant);
l_element_courant = l_element_suivant;	l_element_courant = l_element_suivant;
} while(l_element_courant != (*arbre).feuille);	} while(l_element_courant != (*arbre).feuille);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.73
changed lines
	Added in v.1.76