rpl/src/gestion_pile_systeme.c - diff

Return to gestion_pile_systeme.c CVS log

Up to [local] / rpl / src

version 1.64, 2013/09/06 10:30:51	version 1.81, 2018/05/30 09:27:32
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.16	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 513 trace(struct_processus *s_etat_processus	Line 513 trace(struct_processus *s_etat_processus

for(j = 0; j < nb_variables; j++)	for(j = 0; j < nb_variables; j++)
{	{
if (((*(tableau[j].objet)).type == RPN) \|\|	if (tableau[j].objet != NULL)
((*(tableau[j].objet)).type == ALG))
{	{
l_element_expression = (*(tableau[j].objet)).objet;	// Variable ni partagée ni statique
	if (((*(tableau[j].objet)).type == RPN) \|\|
while(l_element_expression != NULL)	((*(tableau[j].objet)).type == ALG))
{	{
if (l_element_expression == (*l_element_courant)	l_element_expression =
.pointeur_objet_retour)	(*(tableau[j].objet)).objet;

	while(l_element_expression != NULL)
{	{
candidat = j;	if (l_element_expression ==
break;	(*l_element_courant)
}	.pointeur_objet_retour)
	{
	candidat = j;
	break;
	}

l_element_expression =	l_element_expression =
(*l_element_expression).suivant;	(*l_element_expression).suivant;
}	}

if (candidat != -1)	if (candidat != -1)
{	{
break;	break;
	}
}	}
}	}
}	}