version 1.34, 2011/04/14 09:57:15
|
version 1.46, 2011/08/09 11:31:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.0 |
RPL/2 (R) version 4.1.3 |
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 1783 evaluation(struct_processus *s_etat_proc
|
Line 1783 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 2130 evaluation(struct_processus *s_etat_proc
|
Line 2130 evaluation(struct_processus *s_etat_proc
|
.pointeur_variable_courante).objet)).objet)) |
.pointeur_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 2477 evaluation(struct_processus *s_etat_proc
|
Line 2475 evaluation(struct_processus *s_etat_proc
|
*/ |
*/ |
|
|
else if (((*((*(*s_etat_processus) |
else if (((*((*(*s_etat_processus) |
.pointeur_variable_courante).objet)).type == TAB) && |
.pointeur_variable_courante).objet)).type == TBL) && |
((*((struct_fonction *) (*(*l_element_courant) |
((*((struct_fonction *) (*(*l_element_courant) |
.donnee).objet)).nombre_arguments == 1)) |
.donnee).objet)).nombre_arguments == 1)) |
{ |
{ |