Diff for /rpl/src/evaluation.c between versions 1.32 and 1.32.2.4

version 1.32, 2011/03/06 16:44:08 version 1.32.2.4, 2011/05/09 13:52:10
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.21    RPL/2 (R) version 4.0.24
   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))
                     {                      {

Removed from v.1.32  
changed lines
  Added in v.1.32.2.4


CVSweb interface <joel.bertrand@systella.fr>