rpl/src/evaluation.c - diff

Return to evaluation.c CVS log

Up to [local] / rpl / src

version 1.96, 2015/11/26 11:44:30	version 1.98, 2016/03/01 22:12:27
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 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);