rpl/src/evaluation.c - diff

Return to evaluation.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/evaluation.c between versions 1.96 and 1.100

version 1.96, 2015/11/26 11:44:30	version 1.100, 2016/03/09 10:57:41
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.24	RPL/2 (R) version 4.1.25
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2016 Dr. BERTRAND Joël

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

Line 4358 evaluation(struct_processus *s_etat_proc	Line 4358 evaluation(struct_processus *s_etat_proc

do	do
{	{
	l_element_courant = (*l_element_courant)
	.suivant;
l_registre_atome = l_element_courant;	l_registre_atome = l_element_courant;

if (l_element_courant == NULL)	if (l_element_courant == NULL)
Line 4397 evaluation(struct_processus *s_etat_proc	Line 4399 evaluation(struct_processus *s_etat_proc
drapeau_then = TEST(instruction_then)	drapeau_then = TEST(instruction_then)
? d_vrai : d_faux;	? d_vrai : d_faux;
}	}

l_element_courant = (*l_element_courant)
.suivant;
} while(drapeau_then == d_faux);	} while(drapeau_then == d_faux);

(*s_etat_processus).expression_courante =	(*s_etat_processus).expression_courante =
Line 5212 evaluation(struct_processus *s_etat_proc	Line 5211 evaluation(struct_processus *s_etat_proc

free(message);	free(message);

	l_registre_atome = l_element_courant;

while(((s_etat_processus).l_base_pile_systeme)	while(((s_etat_processus).l_base_pile_systeme)
.clause != 'R')	.clause != 'R')
{	{
Line 5608 evaluation(struct_processus *s_etat_proc	Line 5609 evaluation(struct_processus *s_etat_proc

do	do
{	{
	(*s_etat_processus).expression_courante =
	l_registre_atome;
l_registre_atome = l_element_courant;	l_registre_atome = l_element_courant;

if (l_element_courant == NULL)	if (l_element_courant == NULL)
Line 5652 evaluation(struct_processus *s_etat_proc	Line 5655 evaluation(struct_processus *s_etat_proc
.suivant;	.suivant;
} while(drapeau_then == d_faux);	} while(drapeau_then == d_faux);

(*s_etat_processus).expression_courante =
l_registre_atome;

((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.clause = 'X';	.clause = 'X';
instruction_then(s_etat_processus);	instruction_then(s_etat_processus);
Line 7691 evaluation(struct_processus *s_etat_proc	Line 7691 evaluation(struct_processus *s_etat_proc

registre_type_evaluation = (test_cfsf(s_etat_processus, 35) == d_vrai)	registre_type_evaluation = (test_cfsf(s_etat_processus, 35) == d_vrai)
? 'E' : 'N';	? 'E' : 'N';
cf(s_etat_processus, 35);
	if (type_evaluation == 'N')
	{
	cf(s_etat_processus, 35);
	}
	else
	{
	sf(s_etat_processus, 35);
	}

analyse(s_etat_processus, (((struct_fonction )	analyse(s_etat_processus, (((struct_fonction )
(*s_objet).objet)).fonction);	(*s_objet).objet)).fonction);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.96
changed lines
	Added in v.1.100