rpl/src/instructions_e2.c - diff

Return to instructions_e2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_e2.c between versions 1.20 and 1.21

version 1.20, 2011/04/21 16:00:56	version 1.21, 2011/06/09 14:48:36
Line 1302 instruction_exit(struct_processus *s_eta	Line 1302 instruction_exit(struct_processus *s_eta
{	{
instruction_majuscule = conversion_majuscule("");	instruction_majuscule = conversion_majuscule("");

if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]
.objet == NULL)	.objet == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)	if (pthread_mutex_lock(&(((s_etat_processus)
Line 1315 instruction_exit(struct_processus *s_eta	Line 1314 instruction_exit(struct_processus *s_eta
}	}

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).position_variable_courante]	.pointeur_variable_courante).nom,
.nom, (*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus).position_variable_courante]	.pointeur_variable_courante).variable_partagee,
.variable_partagee,	((s_etat_processus)
(*s_etat_processus).s_liste_variables	.pointeur_variable_courante).origine) == d_vrai)
[(*s_etat_processus).position_variable_courante]	{
.origine) == d_vrai)	if ((((*s_etat_processus)
{	.pointeur_variable_courante).objet).type
if ((((s_etat_processus).s_liste_variables
[(*s_etat_processus)
.position_variable_courante]).objet).type
== ADR)	== ADR)
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);
Line 1358 instruction_exit(struct_processus *s_eta	Line 1354 instruction_exit(struct_processus *s_eta

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

(*s_etat_processus)	(*s_etat_processus)
Line 1383 instruction_exit(struct_processus *s_eta	Line 1378 instruction_exit(struct_processus *s_eta
}	}
else	else
{	{
if ((((s_etat_processus).s_liste_variables	if ((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet).type == ADR)
.position_variable_courante]).objet).type
== ADR)
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);

Line 1406 instruction_exit(struct_processus *s_eta	Line 1399 instruction_exit(struct_processus *s_eta
(*s_etat_processus).niveau_courant;	(*s_etat_processus).niveau_courant;

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

(*s_etat_processus)	(*s_etat_processus)
Line 1530 instruction_exit(struct_processus *s_eta	Line 1523 instruction_exit(struct_processus *s_eta
{	{
instruction_majuscule = conversion_majuscule("");	instruction_majuscule = conversion_majuscule("");

if ((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante]
.objet == NULL)	.objet == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)	if (pthread_mutex_lock(&(((s_etat_processus)
Line 1543 instruction_exit(struct_processus *s_eta	Line 1535 instruction_exit(struct_processus *s_eta
}	}

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).position_variable_courante]	.pointeur_variable_courante).nom,
.nom, (*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus).position_variable_courante]	.pointeur_variable_courante).variable_partagee,
.variable_partagee,	((s_etat_processus)
(*s_etat_processus).s_liste_variables	.pointeur_variable_courante).origine) == d_vrai)
[(*s_etat_processus).position_variable_courante]	{
.origine) == d_vrai)	if ((((*s_etat_processus)
{	.pointeur_variable_courante).objet).type
if ((((s_etat_processus).s_liste_variables
[(*s_etat_processus)
.position_variable_courante]).objet).type
== ADR)	== ADR)
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);
Line 1586 instruction_exit(struct_processus *s_eta	Line 1575 instruction_exit(struct_processus *s_eta

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

(*s_etat_processus)	(*s_etat_processus)
Line 1611 instruction_exit(struct_processus *s_eta	Line 1599 instruction_exit(struct_processus *s_eta
}	}
else	else
{	{
if ((((s_etat_processus).s_liste_variables	if ((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet).type == ADR)
.position_variable_courante]).objet).type
== ADR)
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);

Line 1634 instruction_exit(struct_processus *s_eta	Line 1620 instruction_exit(struct_processus *s_eta
(*s_etat_processus).niveau_courant;	(*s_etat_processus).niveau_courant;

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

(*s_etat_processus)	(*s_etat_processus)

CVSweb interface <joel.bertrand@systella.fr>

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