Diff for /rpl/src/evaluation.c between versions 1.34 and 1.35

version 1.34, 2011/04/14 09:57:15 version 1.35, 2011/04/20 08:26:04
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))
                     {                      {

Removed from v.1.34  
changed lines
  Added in v.1.35


CVSweb interface <joel.bertrand@systella.fr>