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.78 and 1.80

version 1.78, 2011/08/30 14:19:28	version 1.80, 2011/09/03 10:31:50
Line 187 rplinit(int argc, char *argv[], unsigned	Line 187 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).exception = d_ep;	(*s_etat_processus).exception = d_ep;
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;
	(*s_etat_processus).compteur_violation_d_acces = 0;

(*s_etat_processus).rpl_home = rpl_home;	(*s_etat_processus).rpl_home = rpl_home;

Line 1858 rplinit(int argc, char *argv[], unsigned	Line 1859 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 2766 rplinit(int argc, char *argv[], unsigned	Line 2766 rplinit(int argc, char *argv[], unsigned
if (setjmp(contexte_initial) == 0)	if (setjmp(contexte_initial) == 0)
{	{
erreur = sequenceur(s_etat_processus);	erreur = sequenceur(s_etat_processus);

	if (erreur == d_absence_erreur)
	{
	if (((*s_etat_processus).var_volatile_alarme
	== 0) && ((*s_etat_processus)
	.arret_depuis_abort == 0) &&
	((*s_etat_processus).at_exit
	!= NULL))
	{
	erreur = evaluation(s_etat_processus,
	(*s_etat_processus).at_exit,
	'E');
	}
	}
}	}
}	}
else	else
Line 2773 rplinit(int argc, char *argv[], unsigned	Line 2787 rplinit(int argc, char *argv[], unsigned
if (setjmp(contexte_initial) == 0)	if (setjmp(contexte_initial) == 0)
{	{
erreur = sequenceur_optimise(s_etat_processus);	erreur = sequenceur_optimise(s_etat_processus);
}
}

if (erreur == d_absence_erreur)	if (erreur == d_absence_erreur)
{	{
if (((*s_etat_processus).var_volatile_alarme == 0)	if (((*s_etat_processus).var_volatile_alarme
&& ((*s_etat_processus).arret_depuis_abort	== 0) && ((*s_etat_processus)
== 0) && ((*s_etat_processus).at_exit	.arret_depuis_abort == 0) &&
!= NULL))	((*s_etat_processus).at_exit
{	!= NULL))
erreur = evaluation(s_etat_processus,	{
(*s_etat_processus).at_exit, 'E');	erreur = evaluation(s_etat_processus,
	(*s_etat_processus).at_exit,
	'E');
	}
	}
}	}
}	}
}	}
Line 3385 rplinit(int argc, char *argv[], unsigned	Line 3401 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.78
changed lines
	Added in v.1.80