rpl/src/instructions_f1.c - diff

Return to instructions_f1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_f1.c between versions 1.8 and 1.9

version 1.8, 2010/04/17 18:57:35	version 1.9, 2010/04/21 12:30:26
Line 271 instruction_fleche(struct_processus *s_e	Line 271 instruction_fleche(struct_processus *s_e
}	}
else	else
{	{
	(*s_etat_processus).expression_courante = l_element_courant;
(*s_etat_processus).erreur_execution = d_ex_nom_invalide;	(*s_etat_processus).erreur_execution = d_ex_nom_invalide;
return;	return;
}	}
Line 285 instruction_fleche(struct_processus *s_e	Line 286 instruction_fleche(struct_processus *s_e
}	}
else if (((l_element_courant).donnee).type != NOM)	else if (((l_element_courant).donnee).type != NOM)
{	{
	(*s_etat_processus).expression_courante = l_element_courant;
(*s_etat_processus).erreur_execution = d_ex_nom_invalide;	(*s_etat_processus).erreur_execution = d_ex_nom_invalide;
return;	return;
}	}
Line 293 instruction_fleche(struct_processus *s_e	Line 295 instruction_fleche(struct_processus *s_e
if ((s_objet_elementaire = copie_objet(s_etat_processus,	if ((s_objet_elementaire = copie_objet(s_etat_processus,
(*l_element_courant).donnee, 'P')) == NULL)	(*l_element_courant).donnee, 'P')) == NULL)
{	{
	(*s_etat_processus).expression_courante = l_element_courant;
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
return;	return;
Line 301 instruction_fleche(struct_processus *s_e	Line 304 instruction_fleche(struct_processus *s_e
if (empilement(s_etat_processus, &((*s_etat_processus)	if (empilement(s_etat_processus, &((*s_etat_processus)
.l_base_pile), s_objet_elementaire) == d_erreur)	.l_base_pile), s_objet_elementaire) == d_erreur)
{	{
	(*s_etat_processus).expression_courante = l_element_courant;
return;	return;
}	}

Line 312 instruction_fleche(struct_processus *s_e	Line 316 instruction_fleche(struct_processus *s_e
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
} while((fin_scrutation == d_faux) && (l_element_courant != NULL));	} while((fin_scrutation == d_faux) && (l_element_courant != NULL));

	(*s_etat_processus).objet_courant =
	((s_etat_processus).expression_courante).donnee;
(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

if (fin_scrutation == d_faux)	if (fin_scrutation == d_faux)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.8
changed lines
	Added in v.1.9