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.58 and 1.76

version 1.58, 2012/09/30 20:46:46	version 1.76, 2013/04/01 15:29:34
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.10	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 48 evaluation(struct_processus *s_etat_proc	Line 48 evaluation(struct_processus *s_etat_proc
{	{
integer8 i;	integer8 i;
integer8 j;	integer8 j;
	integer8 k;
	integer8 l;
	integer8 niveau_initial;
	integer8 nombre_termes;
	integer8 registre_hauteur_pile_operationnelle;
	integer8 registre_position_courante;


logical1 drapeau_then;	logical1 drapeau_then;
logical1 erreur_evaluation;	logical1 erreur_evaluation;
Line 89 evaluation(struct_processus *s_etat_proc	Line 96 evaluation(struct_processus *s_etat_proc
unsigned char registre_test_2;	unsigned char registre_test_2;
unsigned char registre_type_evaluation;	unsigned char registre_type_evaluation;

unsigned int registre_erreur_execution;	int registre_erreur_execution;
unsigned int registre_erreur_systeme;	int registre_erreur_systeme;
unsigned int registre_exception;	int registre_exception;

unsigned long k;
unsigned long l;
unsigned long n;
unsigned long niveau_initial;
unsigned long nombre_termes;
unsigned long registre_hauteur_pile_operationnelle;
unsigned long registre_niveau_courant;
unsigned long registre_position_courante;

void (*fonction)();	void (*fonction)();

Line 181 evaluation(struct_processus *s_etat_proc	Line 179 evaluation(struct_processus *s_etat_proc
{	{
// Variable partagée	// Variable partagée

if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}

presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
Line 196 evaluation(struct_processus *s_etat_proc	Line 186 evaluation(struct_processus *s_etat_proc
.pointeur_variable_courante).nom,	.pointeur_variable_courante).nom,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') != NULL)
{	{
presence_variable = d_vrai;	presence_variable = d_vrai;
presence_variable_partagee = d_vrai;	presence_variable_partagee = d_vrai;

if (((((*s_etat_processus)	if ((((*s_etat_processus)
.s_liste_variables_partagees).table	.pointeur_variable_partagee_courante).objet)
[((s_etat_processus)	.type == ADR)
.s_liste_variables_partagees)
.position_variable].objet)).type
== ADR)
{	{
presence_fonction = d_vrai;	presence_fonction = d_vrai;
}	}
Line 214 evaluation(struct_processus *s_etat_proc	Line 201 evaluation(struct_processus *s_etat_proc
if ((s_copie_variable_partagee =	if ((s_copie_variable_partagee =
copie_objet(s_etat_processus,	copie_objet(s_etat_processus,
((s_etat_processus)	((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet,
.table[((s_etat_processus)	'P')) == NULL)
.s_liste_variables_partagees)
.position_variable].objet, 'P')) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 235 evaluation(struct_processus *s_etat_proc	Line 220 evaluation(struct_processus *s_etat_proc
}	}

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 248 evaluation(struct_processus *s_etat_proc	Line 233 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
presence_variable = d_faux;	presence_variable = d_faux;
presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}
}	}
}	}
else	else
Line 309 evaluation(struct_processus *s_etat_proc	Line 286 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).autorisation_empilement_programme = 'N';	(*s_etat_processus).autorisation_empilement_programme = 'N';

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

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

if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}
}	}

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
Line 357 evaluation(struct_processus *s_etat_proc	Line 324 evaluation(struct_processus *s_etat_proc

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	depilement_pile_systeme(s_etat_processus);

(*s_etat_processus).evaluation_forcee =	(*s_etat_processus).evaluation_forcee =
registre_evaluation_forcee;	registre_evaluation_forcee;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
Line 409 evaluation(struct_processus *s_etat_proc	Line 378 evaluation(struct_processus *s_etat_proc

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
if (presence_variable_partagee == d_vrai)
{
if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}
}

return(d_erreur);	return(d_erreur);
}	}
}	}
Line 453 evaluation(struct_processus *s_etat_proc	Line 411 evaluation(struct_processus *s_etat_proc
.niveau_courant = (*s_etat_processus)	.niveau_courant = (*s_etat_processus)
.niveau_courant;	.niveau_courant;

empilement_pile_systeme(s_etat_processus);	// ICI
	//empilement_pile_systeme(s_etat_processus);

if (presence_variable_partagee == d_faux)	if (presence_variable_partagee == d_faux)
{	{
Line 466 evaluation(struct_processus *s_etat_proc	Line 425 evaluation(struct_processus *s_etat_proc
profilage(s_etat_processus, NULL);	profilage(s_etat_processus, NULL);
}	}

	depilement_pile_systeme(s_etat_processus);

(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
registre_evaluation_expression_compilee;	registre_evaluation_expression_compilee;

Line 488 evaluation(struct_processus *s_etat_proc	Line 449 evaluation(struct_processus *s_etat_proc
profilage(s_etat_processus, NULL);	profilage(s_etat_processus, NULL);
}	}

	depilement_pile_systeme(s_etat_processus);

(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
registre_evaluation_expression_compilee;	registre_evaluation_expression_compilee;

Line 507 evaluation(struct_processus *s_etat_proc	Line 470 evaluation(struct_processus *s_etat_proc
}	}

depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);
depilement_pile_systeme(s_etat_processus);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
Line 758 evaluation(struct_processus *s_etat_proc	Line 720 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 802 evaluation(struct_processus *s_etat_proc	Line 762 evaluation(struct_processus *s_etat_proc
((*s_etat_processus).erreur_systeme == d_es) &&	((*s_etat_processus).erreur_systeme == d_es) &&
((*s_etat_processus).exception == d_ep))	((*s_etat_processus).exception == d_ep))
{	{
	registre_evaluation_expression_compilee =
	(*s_etat_processus)
	.evaluation_expression_compilee;

	if ((((s_etat_processus).pointeur_variable_courante)
	.origine == 'E') && (((s_etat_processus)
	.pointeur_variable_courante).niveau == 0))
	{
	(*s_etat_processus).evaluation_expression_compilee
	= 'Y';
	}
	else
	{
	(*s_etat_processus).evaluation_expression_compilee
	= 'N';
	}

analyse(s_etat_processus, (((struct_fonction )	analyse(s_etat_processus, (((struct_fonction )
((l_element_courant).donnee).objet))	((l_element_courant).donnee).objet))
.fonction);	.fonction);

	(*s_etat_processus).evaluation_expression_compilee =
	registre_evaluation_expression_compilee;

if (type_evaluation == 'I')	if (type_evaluation == 'I')
{	{
(*s_etat_processus).derniere_erreur_evaluation =	(*s_etat_processus).derniere_erreur_evaluation =
Line 1147 evaluation(struct_processus *s_etat_proc	Line 1127 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 1514 evaluation(struct_processus *s_etat_proc	Line 1493 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 1900 evaluation(struct_processus *s_etat_proc	Line 1878 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 2334 evaluation(struct_processus *s_etat_proc	Line 2311 evaluation(struct_processus *s_etat_proc
if (((s_etat_processus).pointeur_variable_courante).objet	if (((s_etat_processus).pointeur_variable_courante).objet
== NULL)	== NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante).nom,	.pointeur_variable_courante).nom,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante).variable_partagee,	.pointeur_variable_courante).variable_partagee,
'E') == d_vrai)	'E') != NULL)
{	{
// Une variable partagée existe.	// Une variable partagée existe.

Line 2354 evaluation(struct_processus *s_etat_proc	Line 2324 evaluation(struct_processus *s_etat_proc

((s_etat_processus).pointeur_variable_courante)	((s_etat_processus).pointeur_variable_courante)
.objet = ((s_etat_processus)	.objet = ((s_etat_processus)
.s_liste_variables_partagees).table	.pointeur_variable_partagee_courante)
[((s_etat_processus)	.objet;
.s_liste_variables_partagees)
.position_variable].objet;
}	}
else	else
{	{
presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
}
}	}
}	}
else	else
Line 2398 evaluation(struct_processus *s_etat_proc	Line 2359 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2432 evaluation(struct_processus *s_etat_proc	Line 2393 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2466 evaluation(struct_processus *s_etat_proc	Line 2427 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2506 evaluation(struct_processus *s_etat_proc	Line 2467 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2549 evaluation(struct_processus *s_etat_proc	Line 2510 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2586 evaluation(struct_processus *s_etat_proc	Line 2547 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2629 evaluation(struct_processus *s_etat_proc	Line 2590 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2692 evaluation(struct_processus *s_etat_proc	Line 2653 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2728 evaluation(struct_processus *s_etat_proc	Line 2689 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2765 evaluation(struct_processus *s_etat_proc	Line 2726 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2811 evaluation(struct_processus *s_etat_proc	Line 2772 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2847 evaluation(struct_processus *s_etat_proc	Line 2808 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2890 evaluation(struct_processus *s_etat_proc	Line 2851 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2933 evaluation(struct_processus *s_etat_proc	Line 2894 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2996 evaluation(struct_processus *s_etat_proc	Line 2957 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3031 evaluation(struct_processus *s_etat_proc	Line 2992 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3084 evaluation(struct_processus *s_etat_proc	Line 3045 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3120 evaluation(struct_processus *s_etat_proc	Line 3081 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3163 evaluation(struct_processus *s_etat_proc	Line 3124 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3198 evaluation(struct_processus *s_etat_proc	Line 3159 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3239 evaluation(struct_processus *s_etat_proc	Line 3200 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3277 evaluation(struct_processus *s_etat_proc	Line 3238 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3334 evaluation(struct_processus *s_etat_proc	Line 3295 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3371 evaluation(struct_processus *s_etat_proc	Line 3332 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3413 evaluation(struct_processus *s_etat_proc	Line 3374 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3426 evaluation(struct_processus *s_etat_proc	Line 3387 evaluation(struct_processus *s_etat_proc
liberation(s_etat_processus, s_objet_evalue);	liberation(s_etat_processus, s_objet_evalue);
}	}

	depilement_pile_systeme(s_etat_processus);

(*s_etat_processus).instruction_courante =	(*s_etat_processus).instruction_courante =
instruction_courante;	instruction_courante;
return(d_erreur);	return(d_erreur);
Line 3445 evaluation(struct_processus *s_etat_proc	Line 3408 evaluation(struct_processus *s_etat_proc
.niveau_courant;	.niveau_courant;

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 ) ((((*s_etat_processus)
((((*s_etat_processus)
.pointeur_variable_courante).objet).objet)));	.pointeur_variable_courante).objet).objet)));

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
Line 3465 evaluation(struct_processus *s_etat_proc	Line 3427 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 3497 evaluation(struct_processus *s_etat_proc	Line 3459 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3510 evaluation(struct_processus *s_etat_proc	Line 3472 evaluation(struct_processus *s_etat_proc
liberation(s_etat_processus, s_objet_evalue);	liberation(s_etat_processus, s_objet_evalue);
}	}

	depilement_pile_systeme(s_etat_processus);

(*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 =
Line 3534 evaluation(struct_processus *s_etat_proc	Line 3498 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante)
.mutex)) != 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3569 evaluation(struct_processus *s_etat_proc	Line 3533 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 3600 evaluation(struct_processus *s_etat_proc	Line 3564 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees) .mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 3632 evaluation(struct_processus *s_etat_proc	Line 3597 evaluation(struct_processus *s_etat_proc
NULL;	NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 3655 evaluation(struct_processus *s_etat_proc	Line 3621 evaluation(struct_processus *s_etat_proc
.pointeur_variable_courante).objet = NULL;	.pointeur_variable_courante).objet = NULL;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4140 evaluation(struct_processus *s_etat_proc	Line 4107 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 4548 evaluation(struct_processus *s_etat_proc	Line 4514 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 4922 evaluation(struct_processus *s_etat_proc	Line 4887 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 5393 evaluation(struct_processus *s_etat_proc	Line 5357 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 5801 evaluation(struct_processus *s_etat_proc	Line 5764 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 6175 evaluation(struct_processus *s_etat_proc	Line 6137 evaluation(struct_processus *s_etat_proc
.niveau_courant--;	.niveau_courant--;

if (	if (
retrait_variable_par_niveau(	retrait_variables_par_niveau(
s_etat_processus) ==	s_etat_processus) == d_erreur)
d_erreur)
{	{
if (presence_egalite ==	if (presence_egalite ==
d_vrai)	d_vrai)
Line 6286 evaluation(struct_processus *s_etat_proc	Line 6247 evaluation(struct_processus *s_etat_proc
registre_mode_execution_programme;	registre_mode_execution_programme;
(*s_etat_processus).instruction_courante =	(*s_etat_processus).instruction_courante =
instruction_courante;	instruction_courante;

if (presence_egalite == d_vrai)	if (presence_egalite == d_vrai)
{	{
liberation(s_etat_processus, s_objet_evalue);	liberation(s_etat_processus, s_objet_evalue);
Line 6377 evaluation(struct_processus *s_etat_proc	Line 6337 evaluation(struct_processus *s_etat_proc
{	{
// Variable partagée	// Variable partagée

if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))
!= 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}

presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (recherche_variable_partagee(	if (recherche_variable_partagee(
Line 6393 evaluation(struct_processus *s_etat_proc	Line 6344 evaluation(struct_processus *s_etat_proc
.pointeur_variable_courante).nom,	.pointeur_variable_courante).nom,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') != NULL)
{	{
presence_variable = d_vrai;	presence_variable = d_vrai;
presence_variable_partagee = d_vrai;	presence_variable_partagee = d_vrai;

if (((((*s_etat_processus)	if ((((*s_etat_processus)
.s_liste_variables_partagees).table	.pointeur_variable_partagee_courante
[((s_etat_processus)	).objet).type == ADR)
.s_liste_variables_partagees)
.position_variable].objet)).type
== ADR)
{	{
presence_fonction = d_vrai;	presence_fonction = d_vrai;
}	}
Line 6414 evaluation(struct_processus *s_etat_proc	Line 6362 evaluation(struct_processus *s_etat_proc
.objet)).symbole == d_faux))	.objet)).symbole == d_faux))
{	{
if ((s_copie_variable_partagee =	if ((s_copie_variable_partagee =
copie_objet(s_etat_processus,	copie_objet(s_etat_processus,
((s_etat_processus)	((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.table[((s_etat_processus)	).objet, 'P')) == NULL)
.s_liste_variables_partagees)
.position_variable].objet, 'P'))
== NULL)
{	{
if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees	.pointeur_variable_partagee_courante
).mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus)	(*s_etat_processus)
.erreur_systeme =	.erreur_systeme =
Line 6441 evaluation(struct_processus *s_etat_proc	Line 6386 evaluation(struct_processus *s_etat_proc

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 6454 evaluation(struct_processus *s_etat_proc	Line 6399 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
presence_variable = d_faux;	presence_variable = d_faux;
presence_variable_partagee = d_faux;	presence_variable_partagee = d_faux;

if (pthread_mutex_unlock(
&(((s_etat_processus)
.s_liste_variables_partagees)
.mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}
}	}
}	}
else	else
Line 6561 evaluation(struct_processus *s_etat_proc	Line 6496 evaluation(struct_processus *s_etat_proc
if (presence_variable_partagee == d_faux)	if (presence_variable_partagee == d_faux)
{	{
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
((((*s_etat_processus)	((((*s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.objet).objet)));	.objet).objet)));
Line 6569 evaluation(struct_processus *s_etat_proc	Line 6504 evaluation(struct_processus *s_etat_proc
else	else
{	{
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
(*s_copie_variable_partagee).objet));	(*s_copie_variable_partagee).objet));
liberation(s_etat_processus,	liberation(s_etat_processus,
s_copie_variable_partagee);	s_copie_variable_partagee);
Line 6606 evaluation(struct_processus *s_etat_proc	Line 6541 evaluation(struct_processus *s_etat_proc
s_objet_evalue);	s_objet_evalue);
}	}

	depilement_pile_systeme(s_etat_processus);

(*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 =
Line 6614 evaluation(struct_processus *s_etat_proc	Line 6551 evaluation(struct_processus *s_etat_proc
}	}

(*s_etat_processus).evaluation_forcee =	(*s_etat_processus).evaluation_forcee =
registre_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 = 'N';	(*s_etat_processus).mode_execution_programme = 'N';
Line 6749 evaluation(struct_processus *s_etat_proc	Line 6686 evaluation(struct_processus *s_etat_proc
}	}
}	}

registre_niveau_courant = ((s_etat_processus)	empilement_pile_systeme(s_etat_processus);
.l_base_pile_systeme).niveau_courant;
registre_retour_definition =
((s_etat_processus)
.l_base_pile_systeme).retour_definition;

((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.retour_definition = 'Y';	.retour_definition = 'Y';
((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.niveau_courant = (*s_etat_processus)	.niveau_courant = (*s_etat_processus)
.niveau_courant;	.niveau_courant;
empilement_pile_systeme(s_etat_processus);	((s_etat_processus).l_base_pile_systeme)
	.pointeur_objet_retour =
	l_element_courant;
	((s_etat_processus).l_base_pile_systeme)
	.origine_routine_evaluation = 'Y';

if (evaluation(s_etat_processus,	if (evaluation(s_etat_processus,
((s_etat_processus)	((s_etat_processus)
Line 6769 evaluation(struct_processus *s_etat_proc	Line 6706 evaluation(struct_processus *s_etat_proc
{	{
depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);

((s_etat_processus).l_base_pile_systeme)
.niveau_courant =
registre_niveau_courant;
((s_etat_processus).l_base_pile_systeme)
.retour_definition =
registre_retour_definition;

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
profilage(s_etat_processus, NULL);	profilage(s_etat_processus, NULL);
Line 6799 evaluation(struct_processus *s_etat_proc	Line 6729 evaluation(struct_processus *s_etat_proc
}	}

depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);

((s_etat_processus).l_base_pile_systeme)
.niveau_courant =
registre_niveau_courant;
((s_etat_processus).l_base_pile_systeme)
.retour_definition =
registre_retour_definition;
}	}
else	else
{	{
Line 6828 evaluation(struct_processus *s_etat_proc	Line 6751 evaluation(struct_processus *s_etat_proc
((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.niveau_courant = (*s_etat_processus)	.niveau_courant = (*s_etat_processus)
.niveau_courant;	.niveau_courant;
empilement_pile_systeme(s_etat_processus);

if (evaluation(s_etat_processus,	if (evaluation(s_etat_processus,
s_copie_variable_partagee,	s_copie_variable_partagee,
type_evaluation) == d_erreur)	type_evaluation) == d_erreur)
{	{
depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);
depilement_pile_systeme(s_etat_processus);

liberation(s_etat_processus,	liberation(s_etat_processus,
s_copie_variable_partagee);	s_copie_variable_partagee);
Line 6863 evaluation(struct_processus *s_etat_proc	Line 6784 evaluation(struct_processus *s_etat_proc
}	}

depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);
depilement_pile_systeme(s_etat_processus);

liberation(s_etat_processus,	liberation(s_etat_processus,
s_copie_variable_partagee);	s_copie_variable_partagee);
Line 6923 evaluation(struct_processus *s_etat_proc	Line 6843 evaluation(struct_processus *s_etat_proc
{	{
// Variable partagée	// Variable partagée

if (pthread_mutex_lock(
&(((s_etat_processus)
.s_liste_variables_partagees)
.mutex)) != 0)
{
(*s_etat_processus).erreur_systeme =
d_es_processus;
return(d_erreur);
}

if (recherche_variable_partagee(	if (recherche_variable_partagee(
s_etat_processus,	s_etat_processus,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante).nom,	.pointeur_variable_courante).nom,
((s_etat_processus)	((s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.variable_partagee, 'E') == d_vrai)	.variable_partagee, 'E') != NULL)
{	{
liberation(s_etat_processus,	liberation(s_etat_processus,
s_objet_elementaire);	s_objet_elementaire);

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_partagees)	.pointeur_variable_partagee_courante
.table[((s_etat_processus)	).objet, 'P')) == NULL)
.s_liste_variables_partagees)
.position_variable].objet,
'P')) == NULL)
{	{
if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees	.pointeur_variable_partagee_courante
).mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus)	(*s_etat_processus)
.erreur_systeme =	.erreur_systeme =
Line 6977 evaluation(struct_processus *s_etat_proc	Line 6884 evaluation(struct_processus *s_etat_proc
instruction_courante;	instruction_courante;
return(d_erreur);	return(d_erreur);
}	}
}

if (pthread_mutex_unlock(	if (pthread_mutex_unlock(
&(((s_etat_processus)	&(((s_etat_processus)
.s_liste_variables_partagees)	.pointeur_variable_partagee_courante
.mutex)) != 0)	).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
return(d_erreur);	return(d_erreur);
	}
}	}
}	}
else	else
Line 7179 evaluation(struct_processus *s_etat_proc	Line 7086 evaluation(struct_processus *s_etat_proc

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

if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)	if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
{	{
	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);	return(d_erreur);
}	}
}	}
Line 7189 evaluation(struct_processus *s_etat_proc	Line 7105 evaluation(struct_processus *s_etat_proc
* Retrait des variables statiques créées dans l'expression	* Retrait des variables statiques créées dans l'expression
*/	*/

for(n = 0; n < (*s_etat_processus).nombre_variables_statiques; n++)	if (retrait_variables_statiques_locales(s_etat_processus) == d_erreur)
{	{
if ((*s_etat_processus).s_liste_variables_statiques[n]	if (presence_egalite == d_vrai)
.niveau > (*s_etat_processus).niveau_courant)
{	{
if (retrait_variable_statique(s_etat_processus,	liberation(s_etat_processus, s_objet_evalue);
(*s_etat_processus).s_liste_variables_statiques[n].nom,
(*s_etat_processus).s_liste_variables_statiques[n]
.variable_statique) == d_erreur)
{
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).instruction_courante =
	instruction_courante;
	(*s_etat_processus).mode_execution_programme =
	registre_mode_execution_programme;
	return(d_erreur);
}	}

/*	/*
* Retrait des variables partagées créées dans l'expression	* Retrait des variables partagées créées dans l'expression
*/	*/

if (pthread_mutex_lock(&(((s_etat_processus)	if (retrait_variables_partagees_locales(s_etat_processus) == d_erreur)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_erreur);
}

for(n = 0; n < ((s_etat_processus).s_liste_variables_partagees)
.nombre_variables; n++)
{	{
if (((s_etat_processus).s_liste_variables_partagees).table[n]	if (presence_egalite == d_vrai)
.niveau > (*s_etat_processus).niveau_courant)
{	{
if (retrait_variable_partagee(s_etat_processus,	liberation(s_etat_processus, s_objet_evalue);
((s_etat_processus).s_liste_variables_partagees)
.table[n].nom, ((s_etat_processus)
.s_liste_variables_partagees).table[n]
.variable_partagee) == d_erreur)
{
if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_erreur);
}

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);
}
}	}
}

if (pthread_mutex_unlock(&(((s_etat_processus)	(*s_etat_processus).instruction_courante =
.s_liste_variables_partagees).mutex)) != 0)	instruction_courante;
{	(*s_etat_processus).mode_execution_programme =
(*s_etat_processus).erreur_systeme = d_es_processus;	registre_mode_execution_programme;
return(d_erreur);	return(d_erreur);
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.58
changed lines
	Added in v.1.76