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.68 and 1.75

version 1.68, 2015/02/01 09:47:18	version 1.75, 2016/09/27 15:29:35
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.20	RPL/2 (R) version 4.1.26
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2016 Dr. BERTRAND Joël

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

Line 110 instruction_fleche(struct_processus *s_e	Line 110 instruction_fleche(struct_processus *s_e

printf(" -> (variables) %s\n\n", d_RPN);	printf(" -> (variables) %s\n\n", d_RPN);

printf(" -> (variables) %s\n", d_ALG);	printf(" -> (variables) %s\n\n", d_ALG);

	printf(" -> (variables) %s\n", d_NOM);

return;	return;
}	}
Line 746 instruction_fleche(struct_processus *s_e	Line 748 instruction_fleche(struct_processus *s_e

if (presence_expression_algebrique == d_vrai)	if (presence_expression_algebrique == d_vrai)
{	{
	// Si l'expression algébrique est réduite à un simple nom, il
	// s'agit toujours d'un nom symbolique. Il faut alors lui retirer
	// son caractère de constante symbolique pour faire remonter les
	// erreurs de type 'variable indéfinie'.

	if ((*s_expression_algebrique).type == NOM)
	{
	(((struct_nom ) (*s_expression_algebrique).objet)).symbole =
	d_faux;
	}

evaluation(s_etat_processus, s_expression_algebrique, 'N');	evaluation(s_etat_processus, s_expression_algebrique, 'N');

	if ((*s_expression_algebrique).type == NOM)
	{
	(((struct_nom ) (*s_expression_algebrique).objet)).symbole =
	d_vrai;
	}

if ((*s_etat_processus).mode_execution_programme == 'Y')	if ((*s_etat_processus).mode_execution_programme == 'Y')
{	{
liberation(s_etat_processus, s_expression_algebrique);	liberation(s_etat_processus, s_expression_algebrique);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.68
changed lines
	Added in v.1.75