version 1.69, 2015/02/19 11:01:23
|
version 1.70, 2015/03/25 09:46:03
|
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); |