version 1.69, 2015/02/19 11:01:23
|
version 1.76, 2017/01/18 15:44:20
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.21 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 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); |