version 1.32, 2011/03/06 16:44:08
|
version 1.32.2.3, 2011/04/14 08:46:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.21 |
RPL/2 (R) version 4.0.23 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1808 evaluation(struct_processus *s_etat_proc
|
Line 1808 evaluation(struct_processus *s_etat_proc
|
return(d_erreur); |
return(d_erreur); |
} |
} |
|
|
if ((*s_objet_indice_i).type == INT) |
if ((*s_objet_indice_i).type != INT) |
{ |
{ |
liberation(s_etat_processus, s_objet_indice_i); |
liberation(s_etat_processus, s_objet_indice_i); |
free(s_objet_elementaire); |
free(s_objet_elementaire); |
Line 2178 evaluation(struct_processus *s_etat_proc
|
Line 2178 evaluation(struct_processus *s_etat_proc
|
.position_variable_courante]).objet)).objet)) |
.position_variable_courante]).objet)).objet)) |
.nombre_colonnes)) |
.nombre_colonnes)) |
{ |
{ |
liberation(s_etat_processus, s_objet_indice_i); |
|
liberation(s_etat_processus, s_objet_indice_j); |
|
free(s_objet_elementaire); |
free(s_objet_elementaire); |
|
|
if (presence_variable_partagee == d_vrai) |
if (presence_variable_partagee == d_vrai) |
Line 2544 evaluation(struct_processus *s_etat_proc
|
Line 2542 evaluation(struct_processus *s_etat_proc
|
|
|
else if (((*(((*s_etat_processus).s_liste_variables |
else if (((*(((*s_etat_processus).s_liste_variables |
[(*s_etat_processus).position_variable_courante]) |
[(*s_etat_processus).position_variable_courante]) |
.objet)).type == TAB) && |
.objet)).type == TBL) && |
((*((struct_fonction *) (*(*l_element_courant) |
((*((struct_fonction *) (*(*l_element_courant) |
.donnee).objet)).nombre_arguments == 1)) |
.donnee).objet)).nombre_arguments == 1)) |
{ |
{ |