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.16 and 1.56

version 1.16, 2010/05/19 09:22:33	version 1.56, 2012/09/15 12:57:09
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.15	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2012 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 76 evaluation(struct_processus *s_etat_proc	Line 76 evaluation(struct_processus *s_etat_proc
struct_objet *s_sous_objet;	struct_objet *s_sous_objet;
struct_objet *s_copie_variable_partagee;	struct_objet *s_copie_variable_partagee;

struct_variable *registre_variables;

unsigned char autorisation_empilement_programme;	unsigned char autorisation_empilement_programme;
unsigned char *instruction_courante;	unsigned char *instruction_courante;
unsigned char *message;	unsigned char *message;
Line 97 evaluation(struct_processus *s_etat_proc	Line 95 evaluation(struct_processus *s_etat_proc
unsigned long k;	unsigned long k;
unsigned long l;	unsigned long l;
unsigned long n;	unsigned long n;
unsigned long m;
unsigned long niveau_initial;	unsigned long niveau_initial;
unsigned long nombre_termes;	unsigned long nombre_termes;
unsigned long registre_hauteur_pile_operationnelle;	unsigned long registre_hauteur_pile_operationnelle;
Line 178 evaluation(struct_processus *s_etat_proc	Line 175 evaluation(struct_processus *s_etat_proc
{	{
if ((*s_etat_processus).traitement_symbolique == 'N')	if ((*s_etat_processus).traitement_symbolique == 'N')
{	{
if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]
.objet == NULL)	.objet == NULL)
{	{
// Variable partagée	// Variable partagée
Line 195 evaluation(struct_processus *s_etat_proc	Line 191 evaluation(struct_processus *s_etat_proc
presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
((*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).nom,
.position_variable_courante]).nom,	((s_etat_processus)
((*s_etat_processus).s_liste_variables	.pointeur_variable_courante)
[(*s_etat_processus)
.position_variable_courante])
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') == d_vrai)
{	{
presence_variable = d_vrai;	presence_variable = d_vrai;
Line 269 evaluation(struct_processus *s_etat_proc	Line 263 evaluation(struct_processus *s_etat_proc

presence_variable = d_vrai;	presence_variable = d_vrai;

if ((((s_etat_processus).s_liste_variables	if ((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]	.objet).type == ADR)
.objet)).type == ADR)
{	{
presence_fonction = d_vrai;	presence_fonction = d_vrai;
}	}
Line 322 evaluation(struct_processus *s_etat_proc	Line 315 evaluation(struct_processus *s_etat_proc
{	{
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((unsigned long )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet).objet)));
.position_variable_courante]
.objet)).objet)));
}	}
else	else
{	{
Line 346 evaluation(struct_processus *s_etat_proc	Line 337 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus,	profilage(s_etat_processus,
(*s_etat_processus).s_liste_variables	((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]
.nom);	.nom);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
Line 399 evaluation(struct_processus *s_etat_proc	Line 389 evaluation(struct_processus *s_etat_proc
registre_evaluation_expression_compilee =	registre_evaluation_expression_compilee =
(*s_etat_processus).evaluation_expression_compilee;	(*s_etat_processus).evaluation_expression_compilee;

if (((s_etat_processus).s_liste_variables[(s_etat_processus)	if ((((s_etat_processus).pointeur_variable_courante).origine
.position_variable_courante].origine == 'E') &&	== 'E') && (((s_etat_processus)
((*s_etat_processus).s_liste_variables	.pointeur_variable_courante).niveau == 0))
[(*s_etat_processus).position_variable_courante].niveau
== 0))
{	{
(*s_etat_processus).evaluation_expression_compilee = 'Y';	(*s_etat_processus).evaluation_expression_compilee = 'Y';
}	}
Line 415 evaluation(struct_processus *s_etat_proc	Line 403 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus,	profilage(s_etat_processus,
(*s_etat_processus).s_liste_variables	((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]
.nom);	.nom);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
Line 436 evaluation(struct_processus *s_etat_proc	Line 423 evaluation(struct_processus *s_etat_proc
}	}
}	}

	autorisation_empilement_programme = (*s_etat_processus)
	.autorisation_empilement_programme;

	empilement_pile_systeme(s_etat_processus);

	if ((*s_etat_processus).erreur_systeme != d_es)
	{
	if (presence_variable_partagee == d_vrai)
	{
	liberation(s_etat_processus, s_copie_variable_partagee);
	}

	(*s_etat_processus).instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	((s_etat_processus).l_base_pile_systeme)
	.retour_definition = 'Y';
	((s_etat_processus).l_base_pile_systeme)
	.origine_routine_evaluation = 'Y';

	(*s_etat_processus).mode_execution_programme = 'Y';
	(*s_etat_processus).autorisation_empilement_programme = 'N';

	((s_etat_processus).l_base_pile_systeme)
	.niveau_courant = (*s_etat_processus)
	.niveau_courant;

	empilement_pile_systeme(s_etat_processus);

if (presence_variable_partagee == d_faux)	if (presence_variable_partagee == d_faux)
{	{
if (evaluation(s_etat_processus, (*s_etat_processus)	if (evaluation(s_etat_processus, ((s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet,
.position_variable_courante].objet,
type_evaluation) == d_erreur)	type_evaluation) == d_erreur)
{	{
if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
Line 488 evaluation(struct_processus *s_etat_proc	Line 505 evaluation(struct_processus *s_etat_proc
profilage(s_etat_processus, NULL);	profilage(s_etat_processus, NULL);
}	}

	depilement_pile_systeme(s_etat_processus);
	depilement_pile_systeme(s_etat_processus);

	if ((*s_etat_processus).erreur_systeme != d_es)
	{
	return(d_erreur);
	}

(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
registre_evaluation_expression_compilee;	registre_evaluation_expression_compilee;
	(*s_etat_processus).autorisation_empilement_programme =
	autorisation_empilement_programme;
}	}
else if ((*s_etat_processus).erreur_execution != d_ex_nom_implicite)	else if ((*s_etat_processus).erreur_execution != d_ex_nom_implicite)
{	{
Line 730 evaluation(struct_processus *s_etat_proc	Line 757 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 793 evaluation(struct_processus *s_etat_proc	Line 822 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).var_volatile_processus_pere	if ((*s_etat_processus).var_volatile_processus_pere
== 0)	== 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 886 evaluation(struct_processus *s_etat_proc	Line 915 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 903 evaluation(struct_processus *s_etat_proc	Line 933 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 958 evaluation(struct_processus *s_etat_proc	Line 996 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 972 evaluation(struct_processus *s_etat_proc	Line 1018 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour
	// la fin d'une section
	// critique

	if ((*s_etat_processus)
	.l_base_pile_systeme
	== NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	liberation(
	s_etat_processus,
	s_objet_evalue);

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 1058 evaluation(struct_processus *s_etat_proc	Line 1153 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 1068 evaluation(struct_processus *s_etat_proc	Line 1164 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 1110 evaluation(struct_processus *s_etat_proc	Line 1214 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 1118 evaluation(struct_processus *s_etat_proc	Line 1230 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
depilement_pile_systeme(	// Traitement spécifique pour
s_etat_processus);	// la fin d'une section
	// critique

if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.l_base_pile_systeme
	== NULL)
{	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
{	{
Line 1137 evaluation(struct_processus *s_etat_proc	Line 1255 evaluation(struct_processus *s_etat_proc
instruction_courante;	instruction_courante;
return(d_erreur);	return(d_erreur);
}	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	(*s_etat_processus)
	.sections_critiques--;
	}

	depilement_pile_systeme(
	s_etat_processus);
	}

	if ((*s_etat_processus)
	.erreur_systeme != d_es)
	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
}	}
}	}
}	}
Line 1211 evaluation(struct_processus *s_etat_proc	Line 1379 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 1221 evaluation(struct_processus *s_etat_proc	Line 1390 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 1263 evaluation(struct_processus *s_etat_proc	Line 1440 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 1279 evaluation(struct_processus *s_etat_proc	Line 1464 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour
	// la fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme
	== NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;
	return(d_erreur);
	}

	(*s_etat_processus)
	.sections_critiques--;
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 1320 evaluation(struct_processus *s_etat_proc	Line 1560 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.var_volatile_processus_pere == 0)	.var_volatile_processus_pere == 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 1631 evaluation(struct_processus *s_etat_proc	Line 1871 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}

if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante).objet
[(*s_etat_processus).position_variable_courante]	== NULL)
.objet == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)	if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.s_liste_variables_partagees).mutex)) != 0)
Line 1643 evaluation(struct_processus *s_etat_proc	Line 1882 evaluation(struct_processus *s_etat_proc
}	}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
((*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).nom,
.position_variable_courante]).nom,	((s_etat_processus)
((*s_etat_processus).s_liste_variables	.pointeur_variable_courante).variable_partagee,
[(*s_etat_processus)	'E') == d_vrai)
.position_variable_courante])
.variable_partagee, 'E') == d_vrai)
{	{
// Une variable partagée existe.	// Une variable partagée existe.

presence_variable_partagee = d_vrai;	presence_variable_partagee = d_vrai;

(*s_etat_processus).s_liste_variables	((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet = ((s_etat_processus)
.position_variable_courante].objet =
((s_etat_processus)
.s_liste_variables_partagees).table	.s_liste_variables_partagees).table
[((s_etat_processus)	[((s_etat_processus)
.s_liste_variables_partagees)	.s_liste_variables_partagees)
Line 1685 evaluation(struct_processus *s_etat_proc	Line 1920 evaluation(struct_processus *s_etat_proc
* Recherche d'un élément dans un vecteur	* Recherche d'un élément dans un vecteur
*/	*/

if (((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante])
.objet == NULL)	.objet == NULL)
{	{
// La variable partagée n'existe plus.	// La variable partagée n'existe plus.
Line 1699 evaluation(struct_processus *s_etat_proc	Line 1933 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet =
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
Line 1718 evaluation(struct_processus *s_etat_proc	Line 1951 evaluation(struct_processus *s_etat_proc
return(d_erreur);;	return(d_erreur);;
}	}
}	}
else if (((((((s_etat_processus).s_liste_variables	else if (((((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == VIN) \|\|
.objet)).type == VIN) \|\|	(((((*s_etat_processus)
(((((s_etat_processus).s_liste_variables	.pointeur_variable_courante).objet)).type == VRL) \|\|
[(*s_etat_processus).position_variable_courante])	(((((*s_etat_processus)
.objet)).type == VRL) \|\|	.pointeur_variable_courante).objet)).type == VCX))
(((((s_etat_processus).s_liste_variables
[(*s_etat_processus).position_variable_courante])
.objet)).type == VCX))
&& ((((struct_fonction ) ((l_element_courant)	&& ((((struct_fonction ) ((l_element_courant)
.donnee).objet)).nombre_arguments == 1))	.donnee).objet)).nombre_arguments == 1))
{	{
Line 1737 evaluation(struct_processus *s_etat_proc	Line 1967 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet =
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
Line 1765 evaluation(struct_processus *s_etat_proc	Line 1994 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}

if ((*s_objet_indice_i).type == INT)	if ((*s_objet_indice_i).type != INT)
{	{
liberation(s_etat_processus, s_objet_indice_i);	liberation(s_etat_processus, s_objet_indice_i);
free(s_objet_elementaire);	free(s_objet_elementaire);

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet =
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
Line 1805 evaluation(struct_processus *s_etat_proc	Line 2033 evaluation(struct_processus *s_etat_proc
liberation(s_etat_processus, s_objet_indice_i);	liberation(s_etat_processus, s_objet_indice_i);

if ((i < 1) \|\| (i > (integer8) (((struct_vecteur )	if ((i < 1) \|\| (i > (integer8) (((struct_vecteur )
((((s_etat_processus)	((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).objet))
.position_variable_courante]).objet)).objet))
.taille))	.taille))
{	{
free(s_objet_elementaire);	free(s_objet_elementaire);

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet =
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
Line 1842 evaluation(struct_processus *s_etat_proc	Line 2068 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}

if (((((s_etat_processus).s_liste_variables	if (((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)).type
.position_variable_courante]).objet)).type
== VIN)	== VIN)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
Line 1858 evaluation(struct_processus *s_etat_proc	Line 2083 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 1883 evaluation(struct_processus *s_etat_proc	Line 2107 evaluation(struct_processus *s_etat_proc
(*s_objet_elementaire).type = INT;	(*s_objet_elementaire).type = INT;
(((integer8 ) (*s_objet_elementaire).objet)) =	(((integer8 ) (*s_objet_elementaire).objet)) =
((integer8 ) (((struct_vecteur *)	((integer8 ) (((struct_vecteur *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1];	.objet)).tableau)[i - 1];
}	}
else if (((((s_etat_processus)	else if (((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).type
.position_variable_courante]).objet)).type
== VRL)	== VRL)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
Line 1898 evaluation(struct_processus *s_etat_proc	Line 2120 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 1929 evaluation(struct_processus *s_etat_proc	Line 2150 evaluation(struct_processus *s_etat_proc
(*s_objet_elementaire).type = REL;	(*s_objet_elementaire).type = REL;
(((real8 ) (*s_objet_elementaire).objet)) =	(((real8 ) (*s_objet_elementaire).objet)) =
((real8 ) (((struct_vecteur *)	((real8 ) (((struct_vecteur *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1];	.objet)).tableau)[i - 1];
}	}
else if (((((s_etat_processus)	else if (((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).type
.position_variable_courante]).objet)).type
== VCX)	== VCX)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
Line 1944 evaluation(struct_processus *s_etat_proc	Line 2163 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 1976 evaluation(struct_processus *s_etat_proc	Line 2194 evaluation(struct_processus *s_etat_proc
(((struct_complexe16 ) (*s_objet_elementaire)	(((struct_complexe16 ) (*s_objet_elementaire)
.objet)).partie_reelle =	.objet)).partie_reelle =
((struct_complexe16 ) (((struct_vecteur *)	((struct_complexe16 ) (((struct_vecteur *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))	.objet)).tableau)[i - 1].partie_reelle;
.objet)).tableau)[i - 1]
.partie_reelle;
(((struct_complexe16 ) (*s_objet_elementaire)	(((struct_complexe16 ) (*s_objet_elementaire)
.objet)).partie_imaginaire =	.objet)).partie_imaginaire =
((struct_complexe16 ) (((struct_vecteur *)	((struct_complexe16 ) (((struct_vecteur *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))	.objet)).tableau)[i - 1].partie_imaginaire;
.objet)).tableau)[i - 1]
.partie_imaginaire;
}	}
}	}

Line 1996 evaluation(struct_processus *s_etat_proc	Line 2210 evaluation(struct_processus *s_etat_proc
* Recherche d'un élément dans une matrice	* Recherche d'un élément dans une matrice
*/	*/

else if (((((((s_etat_processus).s_liste_variables	else if (((((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == MIN) \|\|
.objet)).type == MIN) \|\|	(((((*s_etat_processus)
(((((s_etat_processus).s_liste_variables	.pointeur_variable_courante).objet)).type == MRL) \|\|
[(*s_etat_processus).position_variable_courante])	(((((*s_etat_processus)
.objet)).type == MRL) \|\|	.pointeur_variable_courante).objet)).type == MCX))
(((((s_etat_processus).s_liste_variables
[(*s_etat_processus).position_variable_courante])
.objet)).type == MCX))
&& ((((struct_fonction ) ((l_element_courant)	&& ((((struct_fonction ) ((l_element_courant)
.donnee).objet)).nombre_arguments == 2))	.donnee).objet)).nombre_arguments == 2))
{	{
Line 2015 evaluation(struct_processus *s_etat_proc	Line 2226 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2052 evaluation(struct_processus *s_etat_proc	Line 2262 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2090 evaluation(struct_processus *s_etat_proc	Line 2299 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2126 evaluation(struct_processus *s_etat_proc	Line 2334 evaluation(struct_processus *s_etat_proc
liberation(s_etat_processus, s_objet_indice_j);	liberation(s_etat_processus, s_objet_indice_j);

if ((i < 1) \|\| (i > (integer8) (((struct_matrice )	if ((i < 1) \|\| (i > (integer8) (((struct_matrice )
((((s_etat_processus)	((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).objet))
.position_variable_courante]).objet)).objet))
.nombre_lignes) \|\| (j < 1) \|\| (j > (integer8)	.nombre_lignes) \|\| (j < 1) \|\| (j > (integer8)
(((struct_matrice ) ((((s_etat_processus)	(((struct_matrice ) ((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).objet))
.position_variable_courante]).objet)).objet))
.nombre_colonnes))	.nombre_colonnes))
{	{
liberation(s_etat_processus, s_objet_indice_i);
liberation(s_etat_processus, s_objet_indice_j);
free(s_objet_elementaire);	free(s_objet_elementaire);

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2170 evaluation(struct_processus *s_etat_proc	Line 2373 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}

if (((((s_etat_processus).s_liste_variables	if (((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet)).type == MIN)
.position_variable_courante]).objet)).type
== MIN)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
integer8))) == NULL)	integer8))) == NULL)
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2211 evaluation(struct_processus *s_etat_proc	Line 2411 evaluation(struct_processus *s_etat_proc
(*s_objet_elementaire).type = INT;	(*s_objet_elementaire).type = INT;
(((integer8 ) (*s_objet_elementaire).objet)) =	(((integer8 ) (*s_objet_elementaire).objet)) =
((integer8 *) (((struct_matrice *)	((integer8 *) (((struct_matrice *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1][j - 1];	.objet)).tableau)[i - 1][j - 1];
}	}
else if (((((s_etat_processus)	else if (((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).type
.position_variable_courante]).objet)).type
== MRL)	== MRL)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
Line 2226 evaluation(struct_processus *s_etat_proc	Line 2424 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2257 evaluation(struct_processus *s_etat_proc	Line 2454 evaluation(struct_processus *s_etat_proc
(*s_objet_elementaire).type = REL;	(*s_objet_elementaire).type = REL;
(((real8 ) (*s_objet_elementaire).objet)) =	(((real8 ) (*s_objet_elementaire).objet)) =
((real8 *) (((struct_matrice *)	((real8 *) (((struct_matrice *)
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1][j - 1];	.objet)).tableau)[i - 1][j - 1];
}	}
else if (((((s_etat_processus)	else if (((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).type
.position_variable_courante]).objet)).type
== MCX)	== MCX)
{	{
if (((*s_objet_elementaire).objet = malloc(sizeof(	if (((*s_objet_elementaire).objet = malloc(sizeof(
Line 2272 evaluation(struct_processus *s_etat_proc	Line 2467 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2305 evaluation(struct_processus *s_etat_proc	Line 2499 evaluation(struct_processus *s_etat_proc
.objet)).partie_reelle =	.objet)).partie_reelle =
((struct_complexe16 **)	((struct_complexe16 **)
(((struct_matrice )	(((struct_matrice )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1][j - 1]	.objet)).tableau)[i - 1][j - 1]
.partie_reelle;	.partie_reelle;
(((struct_complexe16 ) (*s_objet_elementaire)	(((struct_complexe16 ) (*s_objet_elementaire)
.objet)).partie_imaginaire =	.objet)).partie_imaginaire =
((struct_complexe16 **)	((struct_complexe16 **)
(((struct_matrice )	(((struct_matrice )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet))
.position_variable_courante]).objet))
.objet)).tableau)[i - 1][j - 1]	.objet)).tableau)[i - 1][j - 1]
.partie_imaginaire;	.partie_imaginaire;
}	}
Line 2326 evaluation(struct_processus *s_etat_proc	Line 2518 evaluation(struct_processus *s_etat_proc
* Recherche de l'élément idoine dans la liste	* Recherche de l'élément idoine dans la liste
*/	*/

else if ((((((s_etat_processus).s_liste_variables	else if ((((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == LST) &&
.objet)).type == LST) &&
((((struct_fonction ) ((l_element_courant)	((((struct_fonction ) ((l_element_courant)
.donnee).objet)).nombre_arguments == 1))	.donnee).objet)).nombre_arguments == 1))
{	{
Line 2339 evaluation(struct_processus *s_etat_proc	Line 2530 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2375 evaluation(struct_processus *s_etat_proc	Line 2565 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2408 evaluation(struct_processus *s_etat_proc	Line 2597 evaluation(struct_processus *s_etat_proc

liberation(s_etat_processus, s_objet_indice_i);	liberation(s_etat_processus, s_objet_indice_i);

l_sous_element_courant = ((((s_etat_processus)	l_sous_element_courant = ((((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)).objet;
.position_variable_courante]).objet)).objet;
j = 0;	j = 0;

while(l_sous_element_courant != NULL)	while(l_sous_element_courant != NULL)
Line 2430 evaluation(struct_processus *s_etat_proc	Line 2618 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2467 evaluation(struct_processus *s_etat_proc	Line 2654 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2499 evaluation(struct_processus *s_etat_proc	Line 2685 evaluation(struct_processus *s_etat_proc
* Recherche de l'élément idoine dans la table	* Recherche de l'élément idoine dans la table
*/	*/

else if ((((((s_etat_processus).s_liste_variables	else if ((((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == TBL) &&
.objet)).type == TAB) &&
((((struct_fonction ) ((l_element_courant)	((((struct_fonction ) ((l_element_courant)
.donnee).objet)).nombre_arguments == 1))	.donnee).objet)).nombre_arguments == 1))
{	{
Line 2512 evaluation(struct_processus *s_etat_proc	Line 2697 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2548 evaluation(struct_processus *s_etat_proc	Line 2732 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2582 evaluation(struct_processus *s_etat_proc	Line 2765 evaluation(struct_processus *s_etat_proc
liberation(s_etat_processus, s_objet_indice_i);	liberation(s_etat_processus, s_objet_indice_i);

if ((i < 1) \|\| (i > (integer8) (((struct_tableau )	if ((i < 1) \|\| (i > (integer8) (((struct_tableau )
(((s_etat_processus).s_liste_variables	(((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.objet)).nombre_elements))	.objet)).nombre_elements))
{	{
free(s_objet_elementaire);	free(s_objet_elementaire);

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2624 evaluation(struct_processus *s_etat_proc	Line 2805 evaluation(struct_processus *s_etat_proc

if ((s_objet_elementaire =	if ((s_objet_elementaire =
copie_objet(s_etat_processus,	copie_objet(s_etat_processus,
(((struct_tableau ) (((s_etat_processus)	(((struct_tableau ) (((*s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.objet)).elements[i - 1], 'P')) == NULL)	.objet)).elements[i - 1], 'P')) == NULL)
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2658 evaluation(struct_processus *s_etat_proc	Line 2837 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}
}	}
else if ((((((s_etat_processus).s_liste_variables	else if ((((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == ALG) \|\|
.objet)).type == ALG) \|\|	(((((*s_etat_processus)
(((((s_etat_processus).s_liste_variables	.pointeur_variable_courante).objet)).type == RPN))
[(*s_etat_processus).position_variable_courante])
.objet)).type == RPN))
{	{
registre_evaluation_expression_compilee =	registre_evaluation_expression_compilee =
(*s_etat_processus)	(*s_etat_processus)
.evaluation_expression_compilee;	.evaluation_expression_compilee;

if (((*s_etat_processus).s_liste_variables	if ((((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.origine == 'E') && (((s_etat_processus)
.position_variable_courante].origine == 'E') &&	.pointeur_variable_courante).niveau == 0))
((*s_etat_processus).s_liste_variables
[(*s_etat_processus).position_variable_courante]
.niveau == 0))
{	{
(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
'Y';	'Y';
Line 2685 evaluation(struct_processus *s_etat_proc	Line 2859 evaluation(struct_processus *s_etat_proc
'N';	'N';
}	}

if (evaluation(s_etat_processus, (*s_etat_processus)	if (evaluation(s_etat_processus, ((s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet,
.position_variable_courante].objet,
type_evaluation) == d_erreur)	type_evaluation) == d_erreur)
{	{
(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
Line 2695 evaluation(struct_processus *s_etat_proc	Line 2868 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2733 evaluation(struct_processus *s_etat_proc	Line 2905 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2762 evaluation(struct_processus *s_etat_proc	Line 2933 evaluation(struct_processus *s_etat_proc
return(d_erreur);	return(d_erreur);
}	}
}	}
else if (((((s_etat_processus).s_liste_variables	else if (((((*s_etat_processus)
[(*s_etat_processus).position_variable_courante])	.pointeur_variable_courante).objet)).type == ADR)
.objet)).type == ADR)
{	{
autorisation_empilement_programme = (*s_etat_processus)	autorisation_empilement_programme = (*s_etat_processus)
.autorisation_empilement_programme;	.autorisation_empilement_programme;
Line 2777 evaluation(struct_processus *s_etat_proc	Line 2947 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2817 evaluation(struct_processus *s_etat_proc	Line 2986 evaluation(struct_processus *s_etat_proc

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((unsigned long )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet).objet)));
.position_variable_courante]
.objet)).objet)));

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus,	profilage(s_etat_processus,
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).nom);
.position_variable_courante].nom);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
Line 2867 evaluation(struct_processus *s_etat_proc	Line 3032 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees)	.s_liste_variables_partagees)
Line 2905 evaluation(struct_processus *s_etat_proc	Line 3069 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees)	.s_liste_variables_partagees)
Line 2941 evaluation(struct_processus *s_etat_proc	Line 3104 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.s_liste_variables_partagees).mutex))
Line 2973 evaluation(struct_processus *s_etat_proc	Line 3135 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees) .mutex)) != 0)	.s_liste_variables_partagees) .mutex)) != 0)
Line 3006 evaluation(struct_processus *s_etat_proc	Line 3167 evaluation(struct_processus *s_etat_proc
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet =
.position_variable_courante].objet	NULL;
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.s_liste_variables_partagees).mutex)) != 0)
Line 3031 evaluation(struct_processus *s_etat_proc	Line 3191 evaluation(struct_processus *s_etat_proc

if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
{	{
(*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet
= NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.s_liste_variables_partagees).mutex)) != 0)
Line 3199 evaluation(struct_processus *s_etat_proc	Line 3357 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).var_volatile_processus_pere	if ((*s_etat_processus).var_volatile_processus_pere
== 0)	== 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 3291 evaluation(struct_processus *s_etat_proc	Line 3449 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 3308 evaluation(struct_processus *s_etat_proc	Line 3467 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3363 evaluation(struct_processus *s_etat_proc	Line 3530 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3377 evaluation(struct_processus *s_etat_proc	Line 3552 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 3501 evaluation(struct_processus *s_etat_proc	Line 3728 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 3511 evaluation(struct_processus *s_etat_proc	Line 3739 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3553 evaluation(struct_processus *s_etat_proc	Line 3789 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3561 evaluation(struct_processus *s_etat_proc	Line 3805 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 3651 evaluation(struct_processus *s_etat_proc	Line 3947 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 3661 evaluation(struct_processus *s_etat_proc	Line 3958 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3703 evaluation(struct_processus *s_etat_proc	Line 4008 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3711 evaluation(struct_processus *s_etat_proc	Line 4024 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 3752 evaluation(struct_processus *s_etat_proc	Line 4117 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.var_volatile_processus_pere == 0)	.var_volatile_processus_pere == 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 3780 evaluation(struct_processus *s_etat_proc	Line 4145 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).var_volatile_processus_pere	if ((*s_etat_processus).var_volatile_processus_pere
== 0)	== 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 3872 evaluation(struct_processus *s_etat_proc	Line 4237 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 3889 evaluation(struct_processus *s_etat_proc	Line 4255 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3944 evaluation(struct_processus *s_etat_proc	Line 4318 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 3958 evaluation(struct_processus *s_etat_proc	Line 4340 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 4082 evaluation(struct_processus *s_etat_proc	Line 4516 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 4092 evaluation(struct_processus *s_etat_proc	Line 4527 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 4134 evaluation(struct_processus *s_etat_proc	Line 4577 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 4142 evaluation(struct_processus *s_etat_proc	Line 4593 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 4232 evaluation(struct_processus *s_etat_proc	Line 4735 evaluation(struct_processus *s_etat_proc
TEST(instruction_start) \|\|	TEST(instruction_start) \|\|
TEST(instruction_select) \|\|	TEST(instruction_select) \|\|
TEST(instruction_case) \|\|	TEST(instruction_case) \|\|
	TEST(instruction_critical) \|\|
TEST(vers_niveau_superieur))	TEST(vers_niveau_superieur))
{	{
if (TEST(vers_niveau_superieur))	if (TEST(vers_niveau_superieur))
Line 4242 evaluation(struct_processus *s_etat_proc	Line 4746 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 4284 evaluation(struct_processus *s_etat_proc	Line 4796 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.erreur_systeme != d_es)	.erreur_systeme != d_es)
{	{
	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

(*s_etat_processus)	(*s_etat_processus)
.instruction_courante =	.instruction_courante =
instruction_courante;	instruction_courante;
Line 4292 evaluation(struct_processus *s_etat_proc	Line 4812 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	// Traitement spécifique pour la
	// fin d'une section critique

	if ((*s_etat_processus)
	.l_base_pile_systeme ==
	NULL)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_end_incoherent;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.type_cloture == 'Q')
	{
	if (pthread_mutex_unlock(
	&mutex_sections_critiques)
	!= 0)
	{
	(*s_etat_processus)
	.erreur_systeme =
	d_es_processus;

	if (presence_egalite ==
	d_vrai)
	{
	liberation(
	s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus)
	.instruction_courante =
	instruction_courante;
	return(d_erreur);
	}
	}

depilement_pile_systeme(	depilement_pile_systeme(
s_etat_processus);	s_etat_processus);

Line 4333 evaluation(struct_processus *s_etat_proc	Line 4905 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus)	if ((*s_etat_processus)
.var_volatile_processus_pere == 0)	.var_volatile_processus_pere == 0)
{	{
kill((*s_etat_processus)	envoi_signal_processus((*s_etat_processus)
.pid_processus_pere, SIGALRM);	.pid_processus_pere, rpl_sigalrm);
}	}
else	else
{	{
Line 4410 evaluation(struct_processus *s_etat_proc	Line 4982 evaluation(struct_processus *s_etat_proc
{	{
if ((*s_etat_processus).traitement_symbolique == 'N')	if ((*s_etat_processus).traitement_symbolique == 'N')
{	{
if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet == NULL)
.position_variable_courante].objet == NULL)
{	{
// Variable partagée	// Variable partagée

Line 4428 evaluation(struct_processus *s_etat_proc	Line 4999 evaluation(struct_processus *s_etat_proc
presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (recherche_variable_partagee(	if (recherche_variable_partagee(
s_etat_processus,	s_etat_processus, ((s_etat_processus)
((*s_etat_processus).s_liste_variables	.pointeur_variable_courante).nom,
[(*s_etat_processus)	((s_etat_processus)
.position_variable_courante]).nom,	.pointeur_variable_courante)
((*s_etat_processus).s_liste_variables
[(*s_etat_processus)
.position_variable_courante])
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') == d_vrai)
{	{
presence_variable = d_vrai;	presence_variable = d_vrai;
Line 4512 evaluation(struct_processus *s_etat_proc	Line 5080 evaluation(struct_processus *s_etat_proc
{	{
presence_variable = d_vrai;	presence_variable = d_vrai;

if ((((s_etat_processus)	if ((((*s_etat_processus)
.s_liste_variables	.pointeur_variable_courante).objet)
[(*s_etat_processus)	.type == ADR)
.position_variable_courante]
.objet)).type == ADR)
{	{
presence_fonction = d_vrai;	presence_fonction = d_vrai;
}	}
Line 4532 evaluation(struct_processus *s_etat_proc	Line 5098 evaluation(struct_processus *s_etat_proc

if (presence_fonction == d_vrai)	if (presence_fonction == d_vrai)
{	{
autorisation_empilement_programme = (*s_etat_processus)	if ((((struct_nom ) ((l_element_courant).donnee)
.autorisation_empilement_programme;	.objet)).symbole == d_vrai)
registre_position_courante = (*s_etat_processus)
.position_courante;

empilement_pile_systeme(s_etat_processus);

if ((*s_etat_processus).erreur_systeme != d_es)
{	{
if (presence_variable_partagee == d_vrai)	// L'objet apparaît comme un symbole dans
	// l'expression en cours d'évaluation. On se
	// contente de l'empiler.

	if ((s_sous_objet = copie_objet(s_etat_processus,
	(*l_element_courant).donnee, 'P')) == NULL)
{	{
liberation(s_etat_processus,	(*s_etat_processus).instruction_courante =
s_copie_variable_partagee);	instruction_courante;

	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return(d_erreur);
}	}

if (presence_egalite == d_vrai)	if (empilement(s_etat_processus,
	&((*s_etat_processus).l_base_pile),
	s_sous_objet) == d_erreur)
{	{
liberation(s_etat_processus, s_objet_evalue);	(*s_etat_processus).instruction_courante =
	instruction_courante;
	liberation(s_etat_processus, s_sous_objet);
	return(d_erreur);
}	}

(*s_etat_processus).instruction_courante =
instruction_courante;
return(d_erreur);
}

((s_etat_processus).l_base_pile_systeme)
.retour_definition = 'Y';
((s_etat_processus).l_base_pile_systeme)
.origine_routine_evaluation = 'Y';

(*s_etat_processus).mode_execution_programme = 'Y';
(*s_etat_processus).autorisation_empilement_programme
= 'N';

((s_etat_processus).l_base_pile_systeme)
.niveau_courant = (*s_etat_processus)
.niveau_courant;

if (presence_variable_partagee == d_faux)
{
(*s_etat_processus).position_courante =
(((unsigned long )
((((s_etat_processus).s_liste_variables
[(*s_etat_processus)
.position_variable_courante]
.objet)).objet)));
}	}
else	else
{	{
(*s_etat_processus).position_courante =	autorisation_empilement_programme =
(((unsigned long )	(*s_etat_processus)
(*s_copie_variable_partagee).objet));	.autorisation_empilement_programme;
liberation(s_etat_processus,	registre_position_courante = (*s_etat_processus)
s_copie_variable_partagee);	.position_courante;
}

if ((*s_etat_processus).profilage == d_vrai)	empilement_pile_systeme(s_etat_processus);
{
profilage(s_etat_processus,
(*s_etat_processus).s_liste_variables
[(*s_etat_processus)
.position_variable_courante].nom);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
	if (presence_variable_partagee == d_vrai)
	{
	liberation(s_etat_processus,
	s_copie_variable_partagee);
	}

	if (presence_egalite == d_vrai)
	{
	liberation(s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus).instruction_courante =
	instruction_courante;
return(d_erreur);	return(d_erreur);
}	}
}

registre_evaluation_forcee =	((s_etat_processus).l_base_pile_systeme)
(*s_etat_processus).evaluation_forcee;	.retour_definition = 'Y';
	((s_etat_processus).l_base_pile_systeme)
	.origine_routine_evaluation = 'Y';

if (type_evaluation == 'N')	(*s_etat_processus).mode_execution_programme = 'Y';
{	(*s_etat_processus)
(*s_etat_processus).evaluation_forcee = 'Y';	.autorisation_empilement_programme = 'N';
}

if (sequenceur(s_etat_processus) == d_erreur)	((s_etat_processus).l_base_pile_systeme)
{	.niveau_courant = (*s_etat_processus)
(*s_etat_processus).evaluation_forcee =	.niveau_courant;
registre_evaluation_forcee;

if (presence_egalite == d_vrai)	if (presence_variable_partagee == d_faux)
{	{
liberation(s_etat_processus, s_objet_evalue);	(*s_etat_processus).position_courante =
	(((unsigned long )
	((((*s_etat_processus)
	.pointeur_variable_courante)
	.objet).objet)));
	}
	else
	{
	(*s_etat_processus).position_courante =
	(((unsigned long )
	(*s_copie_variable_partagee).objet));
	liberation(s_etat_processus,
	s_copie_variable_partagee);
	}

	if ((*s_etat_processus).profilage == d_vrai)
	{
	profilage(s_etat_processus,
	((s_etat_processus)
	.pointeur_variable_courante).nom);

	if ((*s_etat_processus).erreur_systeme != d_es)
	{
	return(d_erreur);
	}
	}

	registre_evaluation_forcee =
	(*s_etat_processus).evaluation_forcee;

	if (type_evaluation == 'N')
	{
	(*s_etat_processus).evaluation_forcee = 'Y';
}	}

	if (sequenceur(s_etat_processus) == d_erreur)
	{
	(*s_etat_processus).evaluation_forcee =
	registre_evaluation_forcee;

	if (presence_egalite == d_vrai)
	{
	liberation(s_etat_processus,
	s_objet_evalue);
	}

	(*s_etat_processus).instruction_courante =
	instruction_courante;
	(*s_etat_processus).mode_execution_programme =
	registre_mode_execution_programme;
	return(d_erreur);
	}

	(*s_etat_processus).evaluation_forcee =
	registre_evaluation_forcee;
(*s_etat_processus).instruction_courante =	(*s_etat_processus).instruction_courante =
instruction_courante;	instruction_courante;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme = 'N';
registre_mode_execution_programme;
return(d_erreur);
}

(*s_etat_processus).evaluation_forcee =	depilement_pile_systeme(s_etat_processus);
registre_evaluation_forcee;
(*s_etat_processus).instruction_courante =
instruction_courante;
(*s_etat_processus).mode_execution_programme = 'N';

depilement_pile_systeme(s_etat_processus);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{
if (presence_egalite == d_vrai)
{	{
liberation(s_etat_processus, s_objet_evalue);	if (presence_egalite == d_vrai)
	{
	liberation(s_etat_processus,
	s_objet_evalue);
	}

	return(d_erreur);
}	}

return(d_erreur);	(*s_etat_processus).retour_routine_evaluation = 'N';
	(*s_etat_processus).position_courante =
	registre_position_courante;
	(*s_etat_processus)
	.autorisation_empilement_programme =
	autorisation_empilement_programme;
}	}

(*s_etat_processus).retour_routine_evaluation = 'N';
(*s_etat_processus).position_courante =
registre_position_courante;
(*s_etat_processus).autorisation_empilement_programme =
autorisation_empilement_programme;
}	}
else if (((type_evaluation == 'N') \|\| ((((struct_nom )	else if (((type_evaluation == 'N') \|\| ((((struct_nom )
((l_element_courant).donnee).objet)).symbole ==	((l_element_courant).donnee).objet)).symbole ==
Line 4660 evaluation(struct_processus *s_etat_proc	Line 5260 evaluation(struct_processus *s_etat_proc
{	{
if ((s_sous_objet =	if ((s_sous_objet =
copie_objet(s_etat_processus,	copie_objet(s_etat_processus,
(*s_etat_processus)	((s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet,
.position_variable_courante].objet,
'P')) == NULL)	'P')) == NULL)
{	{
if (presence_variable_partagee == d_vrai)	if (presence_variable_partagee == d_vrai)
Line 4731 evaluation(struct_processus *s_etat_proc	Line 5330 evaluation(struct_processus *s_etat_proc
(*s_etat_processus)	(*s_etat_processus)
.evaluation_expression_compilee;	.evaluation_expression_compilee;

if (((*s_etat_processus).s_liste_variables	if ((((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante)
.position_variable_courante].origine == 'E')	.origine == 'E') && (((s_etat_processus)
&& ((*s_etat_processus).s_liste_variables	.pointeur_variable_courante).niveau == 0))
[(*s_etat_processus)
.position_variable_courante].niveau == 0))
{	{
(*s_etat_processus)	(*s_etat_processus)
.evaluation_expression_compilee = 'Y';	.evaluation_expression_compilee = 'Y';
Line 4752 evaluation(struct_processus *s_etat_proc	Line 5349 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus,	profilage(s_etat_processus,
(*s_etat_processus)	((s_etat_processus)
.s_liste_variables	.pointeur_variable_courante).nom);
[(*s_etat_processus)
.position_variable_courante].nom);

if ((*s_etat_processus).erreur_systeme	if ((*s_etat_processus).erreur_systeme
!= d_es)	!= d_es)
Line 4778 evaluation(struct_processus *s_etat_proc	Line 5373 evaluation(struct_processus *s_etat_proc
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);

if (evaluation(s_etat_processus,	if (evaluation(s_etat_processus,
(*s_etat_processus)	((s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet,
.position_variable_courante].objet,
type_evaluation) == d_erreur)	type_evaluation) == d_erreur)
{	{
depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);
Line 4828 evaluation(struct_processus *s_etat_proc	Line 5422 evaluation(struct_processus *s_etat_proc
if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus,	profilage(s_etat_processus,
(*s_etat_processus)	((s_etat_processus)
.s_liste_variables	.pointeur_variable_courante).nom);
[(*s_etat_processus)
.position_variable_courante].nom);

if ((*s_etat_processus).erreur_systeme	if ((*s_etat_processus).erreur_systeme
!= d_es)	!= d_es)
Line 4935 evaluation(struct_processus *s_etat_proc	Line 5527 evaluation(struct_processus *s_etat_proc
(((struct_nom ) (*s_objet_elementaire)	(((struct_nom ) (*s_objet_elementaire)
.objet)).nom) == d_vrai)	.objet)).nom) == d_vrai)
{	{
if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet
.position_variable_courante].objet
== NULL)	== NULL)
{	{
// Variable partagée	// Variable partagée
Line 4954 evaluation(struct_processus *s_etat_proc	Line 5545 evaluation(struct_processus *s_etat_proc

if (recherche_variable_partagee(	if (recherche_variable_partagee(
s_etat_processus,	s_etat_processus,
((*s_etat_processus)	((s_etat_processus)
.s_liste_variables	.pointeur_variable_courante).nom,
[(*s_etat_processus)	((s_etat_processus)
.position_variable_courante]).nom,	.pointeur_variable_courante)
((*s_etat_processus)
.s_liste_variables
[(*s_etat_processus)
.position_variable_courante])
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') == d_vrai)
{	{
liberation(s_etat_processus,	liberation(s_etat_processus,
Line 5021 evaluation(struct_processus *s_etat_proc	Line 5608 evaluation(struct_processus *s_etat_proc

if ((s_objet_elementaire =	if ((s_objet_elementaire =
copie_objet(s_etat_processus,	copie_objet(s_etat_processus,
(*s_etat_processus)	((s_etat_processus)
.s_liste_variables	.pointeur_variable_courante).objet,
[(*s_etat_processus)
.position_variable_courante].objet,
'P')) == NULL)	'P')) == NULL)
{	{
if (presence_egalite == d_vrai)	if (presence_egalite == d_vrai)
Line 5203 evaluation(struct_processus *s_etat_proc	Line 5788 evaluation(struct_processus *s_etat_proc

(*s_etat_processus).niveau_courant = niveau_initial;	(*s_etat_processus).niveau_courant = niveau_initial;

for(m = 0, n = 0; n < (*s_etat_processus).nombre_variables; n++)	if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
{	{
if ((*s_etat_processus).s_liste_variables[n].niveau
> niveau_initial)
{
m++;
}
}

registre_variables = (*s_etat_processus).s_liste_variables;
(*s_etat_processus).nombre_variables -= m;

if (((*s_etat_processus).s_liste_variables = malloc(
(s_etat_processus).nombre_variables
sizeof(struct_variable))) == NULL)
{
if (presence_egalite == d_vrai)
{
liberation(s_etat_processus, s_objet_evalue);
}

(*s_etat_processus).instruction_courante = instruction_courante;
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(d_erreur);	return(d_erreur);
}	}

for(m = 0, n = 0; n < (*s_etat_processus).nombre_variables; n++)
{
if (registre_variables[n + m].niveau > niveau_initial)
{
free(registre_variables[n + m].nom);
liberation(s_etat_processus,
registre_variables[n + m].objet);
m++;
n--;
}
else
{
(*s_etat_processus).s_liste_variables[n] =
registre_variables[n + m];
}
}

free(registre_variables);
}	}

/*	/*
Line 5393 evaluation(struct_processus *s_etat_proc	Line 5938 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))
{	{
(*s_etat_processus).instruction_courante = instruction_courante;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
return(d_erreur);	return(d_erreur);
Line 5410 evaluation(struct_processus *s_etat_proc	Line 5966 evaluation(struct_processus *s_etat_proc
}	}
else	else
{	{
	(*s_etat_processus).instruction_courante = instruction_courante;

if ((s_objet_tampon = copie_objet(s_etat_processus, s_objet, 'P'))	if ((s_objet_tampon = copie_objet(s_etat_processus, s_objet, 'P'))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
(*s_etat_processus).instruction_courante = instruction_courante;
return(d_erreur);	return(d_erreur);
}	}

if (empilement(s_etat_processus, &((*s_etat_processus)	if (empilement(s_etat_processus, &((*s_etat_processus)
.l_base_pile), s_objet_tampon) == d_erreur)	.l_base_pile), s_objet_tampon) == d_erreur)
{	{
(*s_etat_processus).instruction_courante = instruction_courante;
return(d_erreur);	return(d_erreur);
}	}
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.16
changed lines
	Added in v.1.56