Diff for /rpl/src/calcul_integral.c between versions 1.17 and 1.18

version 1.17, 2011/04/11 12:10:04 version 1.18, 2011/04/14 09:57:15
Line 355  evaluation_romberg(struct_processus *s_e Line 355  evaluation_romberg(struct_processus *s_e
   
     if (recherche_variable(s_etat_processus, variable) == d_vrai)      if (recherche_variable(s_etat_processus, variable) == d_vrai)
     {      {
         if (((*s_etat_processus).s_liste_variables[(*s_etat_processus)          if ((*(*s_etat_processus).pointeur_variable_courante)
                 .position_variable_courante]).variable_verrouillee == d_vrai)                  .variable_verrouillee == d_vrai)
         {          {
             (*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;              (*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;
             return;              return;
         }          }
   
         if ((*((*s_etat_processus).s_liste_variables          if ((*(*(*s_etat_processus).pointeur_variable_courante)
                 [(*s_etat_processus).position_variable_courante])  
                 .objet).type != REL)                  .objet).type != REL)
         {          {
             liberation(s_etat_processus, ((*s_etat_processus).s_liste_variables              liberation(s_etat_processus, (*(*s_etat_processus)
                     [(*s_etat_processus).position_variable_courante]).objet);                      .pointeur_variable_courante).objet);
   
             if ((((*s_etat_processus).s_liste_variables              if (((*(*s_etat_processus).pointeur_variable_courante).objet =
                     [(*s_etat_processus).position_variable_courante]).objet =  
                     allocation(s_etat_processus, REL)) == NULL)                      allocation(s_etat_processus, REL)) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 378  evaluation_romberg(struct_processus *s_e Line 376  evaluation_romberg(struct_processus *s_e
             }              }
         }          }
   
         (*((real8 *) (*((*s_etat_processus).s_liste_variables          (*((real8 *) (*(*(*s_etat_processus).pointeur_variable_courante)
                 [(*s_etat_processus).position_variable_courante])  
                 .objet).objet)) = (*point);                  .objet).objet)) = (*point);
     }      }
     else      else

Removed from v.1.17  
changed lines
  Added in v.1.18


CVSweb interface <joel.bertrand@systella.fr>