[BACK]Return to sequenceur.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.26 and 1.27

version 1.26, 2010/11/26 11:46:38 version 1.27, 2010/12/08 20:58:16
Line 199  sequenceur(struct_processus *s_etat_proc Line 199  sequenceur(struct_processus *s_etat_proc
                             (*s_etat_processus).localisation, d_locale))                              (*s_etat_processus).localisation, d_locale))
                             == NULL)                              == NULL)
                     {                      {
                           free((*s_etat_processus).instruction_courante);
                         return(d_erreur);                          return(d_erreur);
                     }                      }
   
Line 305  sequenceur(struct_processus *s_etat_proc Line 306  sequenceur(struct_processus *s_etat_proc
   
                         if ((message = messages(s_etat_processus)) == NULL)                          if ((message = messages(s_etat_processus)) == NULL)
                         {                          {
                               free((*s_etat_processus).instruction_courante);
                             return(d_erreur);                              return(d_erreur);
                         }                          }
   
Line 364  sequenceur(struct_processus *s_etat_proc Line 366  sequenceur(struct_processus *s_etat_proc
                                 if ((message = messages(s_etat_processus))                                  if ((message = messages(s_etat_processus))
                                         == NULL)                                          == NULL)
                                 {                                  {
                                       free((*s_etat_processus)
                                               .instruction_courante);
                                     return(d_erreur);                                      return(d_erreur);
                                 }                                  }
   
                                 printf("%s [%d]\n", message, (int) getpid());                                  printf("%s [%d]\n", message, (int) getpid());
                                 free(message);  
   
                                   free(message);
                                   free((*s_etat_processus).instruction_courante);
                                 return(d_erreur);                                  return(d_erreur);
                             }                              }
                             else if ((*s_etat_processus)                              else if ((*s_etat_processus)
Line 387  sequenceur(struct_processus *s_etat_proc Line 392  sequenceur(struct_processus *s_etat_proc
                                 if ((message = messages(s_etat_processus))                                  if ((message = messages(s_etat_processus))
                                         == NULL)                                          == NULL)
                                 {                                  {
                                       free((*s_etat_processus)
                                               .instruction_courante);
                                     return(d_erreur);                                      return(d_erreur);
                                 }                                  }
   
Line 452  sequenceur(struct_processus *s_etat_proc Line 459  sequenceur(struct_processus *s_etat_proc
   
                     if ((message = messages(s_etat_processus)) == NULL)                      if ((message = messages(s_etat_processus)) == NULL)
                     {                      {
                           free((*s_etat_processus).instruction_courante);
                         free(ligne);                          free(ligne);
                         return(d_erreur);                          return(d_erreur);
                     }                      }
Line 848  sequenceur(struct_processus *s_etat_proc Line 856  sequenceur(struct_processus *s_etat_proc
                                 &((*s_etat_processus).l_base_pile),                                  &((*s_etat_processus).l_base_pile),
                                 &s_objet_evaluation) == d_erreur)                                  &s_objet_evaluation) == d_erreur)
                         {                          {
                               free((*s_etat_processus).instruction_courante);
                             (*s_etat_processus).erreur_execution =                              (*s_etat_processus).erreur_execution =
                                     d_ex_manque_argument;                                      d_ex_manque_argument;
                             return(d_erreur);                              return(d_erreur);
Line 856  sequenceur(struct_processus *s_etat_proc Line 865  sequenceur(struct_processus *s_etat_proc
                         if (evaluation(s_etat_processus, s_objet_evaluation,                          if (evaluation(s_etat_processus, s_objet_evaluation,
                                 'N') == d_erreur)                                  'N') == d_erreur)
                         {                          {
                               free((*s_etat_processus).instruction_courante);
                             liberation(s_etat_processus, s_objet_evaluation);                              liberation(s_etat_processus, s_objet_evaluation);
                             return(d_erreur);                              return(d_erreur);
                         }                          }
   
                         liberation(s_etat_processus, s_objet_evaluation);                          liberation(s_etat_processus, s_objet_evaluation);
                     }                      }
   
                       // Le séquenceur est appelé depuis la routine de
                       // recherche de type
   
                       else if ((*s_etat_processus).recherche_type == 'Y')
                       {
                           if ((*s_etat_processus).erreur_execution != d_ex)
                           {
                               free((*s_etat_processus).instruction_courante);
                               return(d_erreur);
                           }
                       }
                 }                  }
             }              }
             else if (((*s_etat_processus).test_instruction == 'Y') &&              else if (((*s_etat_processus).test_instruction == 'Y') &&
Line 969  sequenceur(struct_processus *s_etat_proc Line 991  sequenceur(struct_processus *s_etat_proc
   
             fflush(stdout);              fflush(stdout);
   
               free((*s_etat_processus).instruction_courante);
             return(d_erreur);              return(d_erreur);
         }          }
   
Line 1050  sequenceur(struct_processus *s_etat_proc Line 1073  sequenceur(struct_processus *s_etat_proc
   
             if ((message = messages(s_etat_processus)) == NULL)              if ((message = messages(s_etat_processus)) == NULL)
             {              {
                   free((*s_etat_processus).instruction_courante);
                 return(d_erreur);                  return(d_erreur);
             }              }
   
Line 1090  sequenceur(struct_processus *s_etat_proc Line 1114  sequenceur(struct_processus *s_etat_proc
                 erreur = d_absence_erreur;                  erreur = d_absence_erreur;
             }              }
         }          }
         else if ((*s_etat_processus).recherche_type == 'Y')  
         {  
             erreur = d_erreur;  
         }  
         else if ((*s_etat_processus).arret_si_exception == d_vrai)          else if ((*s_etat_processus).arret_si_exception == d_vrai)
         {          {
             drapeau_fin = d_faux;              drapeau_fin = d_faux;
Line 1140  sequenceur(struct_processus *s_etat_proc Line 1160  sequenceur(struct_processus *s_etat_proc
   
                     if (erreur == d_erreur)                      if (erreur == d_erreur)
                     {                      {
                           free((*s_etat_processus).instruction_courante);
                         return(d_erreur);                          return(d_erreur);
                     }                      }
   
Line 1161  sequenceur(struct_processus *s_etat_proc Line 1182  sequenceur(struct_processus *s_etat_proc
   
                             if ((*s_etat_processus).erreur_systeme != d_es)                              if ((*s_etat_processus).erreur_systeme != d_es)
                             {                              {
                                   free((*s_etat_processus).instruction_courante);
                                 return(d_erreur);                                  return(d_erreur);
                             }                              }
   
Line 1194  sequenceur(struct_processus *s_etat_proc Line 1216  sequenceur(struct_processus *s_etat_proc
   
                         if (instruction_majuscule == NULL)                          if (instruction_majuscule == NULL)
                         {                          {
                               free((*s_etat_processus).instruction_courante);
                             return(d_erreur);                              return(d_erreur);
                         }                          }
   
Removed from v.1.26  
changed lines
  Added in v.1.27

CVSweb interface <joel.bertrand@systella.fr>