rpl/src/rpl.c - diff

Return to rpl.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.c between versions 1.76 and 1.78

version 1.76, 2011/08/09 10:30:37	version 1.78, 2011/08/30 14:19:28
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.2	RPL/2 (R) version 4.1.3
Copyright (C) 1989-2011 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 1858 rplinit(int argc, char *argv[], unsigned	Line 1858 rplinit(int argc, char *argv[], unsigned

(*s_etat_processus).l_base_pile = NULL;	(*s_etat_processus).l_base_pile = NULL;
(*s_etat_processus).l_base_pile_last = NULL;	(*s_etat_processus).l_base_pile_last = NULL;
	(*s_etat_processus).l_base_pile_undo = NULL;

(*s_etat_processus).s_arbre_variables = NULL;	(*s_etat_processus).s_arbre_variables = NULL;
(*s_etat_processus).l_liste_variables_par_niveau = NULL;	(*s_etat_processus).l_liste_variables_par_niveau = NULL;
Line 3384 rplinit(int argc, char *argv[], unsigned	Line 3385 rplinit(int argc, char *argv[], unsigned
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
l_element_suivant = (((struct_liste_chainee )	l_element_suivant = (((struct_liste_chainee )
	l_element_courant)).suivant;

	liberation(s_etat_processus,
	(((struct_liste_chainee )
	l_element_courant)).donnee);
	free((struct_liste_chainee *) l_element_courant);

	l_element_courant = l_element_suivant;
	}

	l_element_courant = (void ) (s_etat_processus)
	.l_base_pile_undo;
	while(l_element_courant != NULL)
	{
	l_element_suivant = (((struct_liste_chainee )
l_element_courant)).suivant;	l_element_courant)).suivant;

liberation(s_etat_processus,	liberation(s_etat_processus,

CVSweb interface <joel.bertrand@systella.fr>

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