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.61 and 1.77

version 1.61, 2012/10/07 08:18:35	version 1.77, 2013/04/17 13:53:17
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.11	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 84 evaluation(struct_processus *s_etat_proc	Line 91 evaluation(struct_processus *s_etat_proc
unsigned char registre_evaluation_forcee;	unsigned char registre_evaluation_forcee;
unsigned char registre_instruction_valide;	unsigned char registre_instruction_valide;
unsigned char registre_mode_execution_programme;	unsigned char registre_mode_execution_programme;
unsigned char registre_retour_definition;
unsigned char registre_test;	unsigned char registre_test;
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 178 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 185 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 200 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 219 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 232 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 285 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 323 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 377 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 410 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);

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)
Line 466 evaluation(struct_processus *s_etat_proc	Line 421 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 445 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 466 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 755 evaluation(struct_processus *s_etat_proc	Line 713 evaluation(struct_processus *s_etat_proc
* Exécution de la séquence d'instructions	* Exécution de la séquence d'instructions
*/	*/

registre_retour_definition = ((s_etat_processus).l_base_pile_systeme)
.retour_definition;
((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)
.autorisation_empilement_programme;	.autorisation_empilement_programme;
Line 802 evaluation(struct_processus *s_etat_proc	Line 754 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 2331 evaluation(struct_processus *s_etat_proc	Line 2303 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 2351 evaluation(struct_processus *s_etat_proc	Line 2316 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 2395 evaluation(struct_processus *s_etat_proc	Line 2351 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 2429 evaluation(struct_processus *s_etat_proc	Line 2385 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 2463 evaluation(struct_processus *s_etat_proc	Line 2419 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 2503 evaluation(struct_processus *s_etat_proc	Line 2459 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 2546 evaluation(struct_processus *s_etat_proc	Line 2502 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 2583 evaluation(struct_processus *s_etat_proc	Line 2539 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 2626 evaluation(struct_processus *s_etat_proc	Line 2582 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 2689 evaluation(struct_processus *s_etat_proc	Line 2645 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 2725 evaluation(struct_processus *s_etat_proc	Line 2681 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 2762 evaluation(struct_processus *s_etat_proc	Line 2718 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 2808 evaluation(struct_processus *s_etat_proc	Line 2764 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 2844 evaluation(struct_processus *s_etat_proc	Line 2800 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 2887 evaluation(struct_processus *s_etat_proc	Line 2843 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 2930 evaluation(struct_processus *s_etat_proc	Line 2886 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 2993 evaluation(struct_processus *s_etat_proc	Line 2949 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 3028 evaluation(struct_processus *s_etat_proc	Line 2984 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 3081 evaluation(struct_processus *s_etat_proc	Line 3037 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 3117 evaluation(struct_processus *s_etat_proc	Line 3073 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 3160 evaluation(struct_processus *s_etat_proc	Line 3116 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 3195 evaluation(struct_processus *s_etat_proc	Line 3151 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 3236 evaluation(struct_processus *s_etat_proc	Line 3192 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 3274 evaluation(struct_processus *s_etat_proc	Line 3230 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 3331 evaluation(struct_processus *s_etat_proc	Line 3287 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 3368 evaluation(struct_processus *s_etat_proc	Line 3324 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 3410 evaluation(struct_processus *s_etat_proc	Line 3366 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 3423 evaluation(struct_processus *s_etat_proc	Line 3379 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 3442 evaluation(struct_processus *s_etat_proc	Line 3400 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 3462 evaluation(struct_processus *s_etat_proc	Line 3419 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 3494 evaluation(struct_processus *s_etat_proc	Line 3451 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 3507 evaluation(struct_processus *s_etat_proc	Line 3464 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 3531 evaluation(struct_processus *s_etat_proc	Line 3490 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 3566 evaluation(struct_processus *s_etat_proc	Line 3525 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 3597 evaluation(struct_processus *s_etat_proc	Line 3556 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 3629 evaluation(struct_processus *s_etat_proc	Line 3589 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 3652 evaluation(struct_processus *s_etat_proc	Line 3613 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 6277 evaluation(struct_processus *s_etat_proc	Line 6239 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 6368 evaluation(struct_processus *s_etat_proc	Line 6329 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 6384 evaluation(struct_processus *s_etat_proc	Line 6336 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 6405 evaluation(struct_processus *s_etat_proc	Line 6354 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 6432 evaluation(struct_processus *s_etat_proc	Line 6378 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 6445 evaluation(struct_processus *s_etat_proc	Line 6391 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 6552 evaluation(struct_processus *s_etat_proc	Line 6488 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 6560 evaluation(struct_processus *s_etat_proc	Line 6496 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 6597 evaluation(struct_processus *s_etat_proc	Line 6533 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 6605 evaluation(struct_processus *s_etat_proc	Line 6543 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 6740 evaluation(struct_processus *s_etat_proc	Line 6678 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 6760 evaluation(struct_processus *s_etat_proc	Line 6698 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 6790 evaluation(struct_processus *s_etat_proc	Line 6721 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 6819 evaluation(struct_processus *s_etat_proc	Line 6743 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 6854 evaluation(struct_processus *s_etat_proc	Line 6776 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 6914 evaluation(struct_processus *s_etat_proc	Line 6835 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 6968 evaluation(struct_processus *s_etat_proc	Line 6876 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 7207 evaluation(struct_processus *s_etat_proc	Line 7115 evaluation(struct_processus *s_etat_proc
* 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;	if (presence_egalite == d_vrai)
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]
.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);
}	}

Line 7286 evaluation(struct_processus *s_etat_proc	Line 7161 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).autorisation_empilement_programme =	(*s_etat_processus).autorisation_empilement_programme =
autorisation_empilement_programme;	autorisation_empilement_programme;
(*s_etat_processus).instruction_courante = instruction_courante;	(*s_etat_processus).instruction_courante = instruction_courante;
((s_etat_processus).l_base_pile_systeme).retour_definition =
registre_retour_definition;

return(d_erreur);	return(d_erreur);
}	}

Line 7301 evaluation(struct_processus *s_etat_proc	Line 7173 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).autorisation_empilement_programme =	(*s_etat_processus).autorisation_empilement_programme =
autorisation_empilement_programme;	autorisation_empilement_programme;
(*s_etat_processus).instruction_courante = instruction_courante;	(*s_etat_processus).instruction_courante = instruction_courante;
((s_etat_processus).l_base_pile_systeme).retour_definition =
registre_retour_definition;

return(d_erreur);	return(d_erreur);
}	}
}	}
Line 7311 evaluation(struct_processus *s_etat_proc	Line 7180 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).autorisation_empilement_programme =	(*s_etat_processus).autorisation_empilement_programme =
autorisation_empilement_programme;	autorisation_empilement_programme;
(*s_etat_processus).instruction_courante = instruction_courante;	(*s_etat_processus).instruction_courante = instruction_courante;
((s_etat_processus).l_base_pile_systeme).retour_definition =
registre_retour_definition;
}	}
else if ((*s_objet).type == FCT)	else if ((*s_objet).type == FCT)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.61
changed lines
	Added in v.1.77