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.21 and 1.28

version 1.21, 2010/07/12 15:55:00	version 1.28, 2010/09/23 15:27:35
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.17	RPL/2 (R) version 4.0.20
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"

#define TEST(instruction) (fonction == instruction)	#define TEST(instruction) (fonction == instruction)
#define vers_niveau_inferieur instruction_vers_niveau_inferieur	#define vers_niveau_inferieur instruction_vers_niveau_inferieur
Line 771 evaluation(struct_processus *s_etat_proc	Line 771 evaluation(struct_processus *s_etat_proc
registre_retour_definition = ((s_etat_processus).l_base_pile_systeme)	registre_retour_definition = ((s_etat_processus).l_base_pile_systeme)
.retour_definition;	.retour_definition;
((s_etat_processus).l_base_pile_systeme).retour_definition = 'N';	((s_etat_processus).l_base_pile_systeme).retour_definition = 'N';
	((s_etat_processus).l_base_pile_systeme).pointeur_adresse_retour =
	s_objet;

l_element_courant = (struct_liste_chainee ) (s_objet).objet;	l_element_courant = (struct_liste_chainee ) (s_objet).objet;
autorisation_empilement_programme = (*s_etat_processus)	autorisation_empilement_programme = (*s_etat_processus)
Line 5470 evaluation(struct_processus *s_etat_proc	Line 5472 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).instruction_courante =	(*s_etat_processus).instruction_courante =
(((struct_fonction ) (*s_objet).objet)).nom_fonction;	(((struct_fonction ) (*s_objet).objet)).nom_fonction;

	registre_type_evaluation = (test_cfsf(s_etat_processus, 35) == d_vrai)
	? 'E' : 'N';
	cf(s_etat_processus, 35);

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

(*s_etat_processus).instruction_courante = instruction_courante;	(*s_etat_processus).instruction_courante = instruction_courante;

	if (registre_type_evaluation == 'E')
	{
	sf(s_etat_processus, 35);
	}
	else
	{
	cf(s_etat_processus, 35);
	}

if (((*s_etat_processus).erreur_systeme != d_es) \|\|	if (((*s_etat_processus).erreur_systeme != d_es) \|\|
((*s_etat_processus).erreur_execution != d_ex) \|\|	((*s_etat_processus).erreur_execution != d_ex) \|\|
((*s_etat_processus).exception != d_ep))	((*s_etat_processus).exception != d_ep))

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.21
changed lines
	Added in v.1.28