Diff for /rpl/src/instructions_o1.c between versions 1.6 and 1.7

version 1.6, 2010/03/06 18:29:07 version 1.7, 2010/03/08 14:28:20
Line 2649  instruction_open(struct_processus *s_eta Line 2649  instruction_open(struct_processus *s_eta
             }              }
   
             if (((type_acces != 'I') && (position_clef != 0)) ||              if (((type_acces != 'I') && (position_clef != 0)) ||
                     ((type_acces == 'I') && (position_clef == 0)))                      ((type_acces == 'I') && (position_clef == 0) &&
                       ((type_ouverture == 'N') || (type_ouverture == 'R') ||
                       (type_ouverture == 'S'))))
             {              {
                 liberation(s_etat_processus, s_objet_argument);                  liberation(s_etat_processus, s_objet_argument);
   
Line 2820  instruction_open(struct_processus *s_eta Line 2822  instruction_open(struct_processus *s_eta
                         }                          }
                         else                          else
                         {                          {
                               if (position_clef == 0)
                               {
                                   free(nom);
   
                                   liberation(s_etat_processus, s_objet_argument);
                                   liberation(s_etat_processus, s_objet_resultat);
   
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_erreur_parametre_fichier;
                                   return;
                               }
   
                             if (initialisation_fichier_acces_indexe(                              if (initialisation_fichier_acces_indexe(
                                     s_etat_processus, sqlite,                                      s_etat_processus, sqlite, position_clef,
                                     (format == 'N') ? d_faux : d_vrai)                                      (format == 'N') ? d_faux : d_vrai)
                                     != d_absence_erreur)                                      != d_absence_erreur)
                             {                              {
Line 3056  instruction_open(struct_processus *s_eta Line 3070  instruction_open(struct_processus *s_eta
                         }                          }
                         else                          else
                         {                          {
                               if (position_clef == 0)
                               {
                                   free(nom);
   
                                   liberation(s_etat_processus, s_objet_argument);
                                   liberation(s_etat_processus, s_objet_resultat);
   
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_erreur_parametre_fichier;
                                   return;
                               }
   
                             if (initialisation_fichier_acces_indexe(                              if (initialisation_fichier_acces_indexe(
                                     s_etat_processus, sqlite,                                      s_etat_processus, sqlite, position_clef,
                                     (format == 'N') ? d_faux : d_vrai)                                      (format == 'N') ? d_faux : d_vrai)
                                     != d_absence_erreur)                                      != d_absence_erreur)
                             {                              {
Line 3154  instruction_open(struct_processus *s_eta Line 3180  instruction_open(struct_processus *s_eta
                             }                              }
                             else                              else
                             {                              {
                                   if (position_clef == 0)
                                   {
                                       free(nom);
   
                                       liberation(s_etat_processus,
                                               s_objet_argument);
                                       liberation(s_etat_processus,
                                               s_objet_resultat);
   
                                       (*s_etat_processus).erreur_execution =
                                               d_ex_erreur_parametre_fichier;
                                       return;
                                   }
   
                                 if (initialisation_fichier_acces_indexe(                                  if (initialisation_fichier_acces_indexe(
                                         s_etat_processus, sqlite,                                          s_etat_processus, sqlite, position_clef,
                                         (format == 'N') ? d_faux : d_vrai)                                          (format == 'N') ? d_faux : d_vrai)
                                         != d_absence_erreur)                                          != d_absence_erreur)
                                 {                                  {
Line 3309  instruction_open(struct_processus *s_eta Line 3349  instruction_open(struct_processus *s_eta
                             }                              }
                         }                          }
                         else                          else
                         {                          { 
                               if (position_clef == 0)
                               {
                                   free(nom);
   
                                   liberation(s_etat_processus, s_objet_argument);
                                   liberation(s_etat_processus, s_objet_resultat);
   
                                   (*s_etat_processus).erreur_execution =
                                           d_ex_erreur_parametre_fichier;
                                   return;
                               }
   
                             if (initialisation_fichier_acces_indexe(                              if (initialisation_fichier_acces_indexe(
                                     s_etat_processus, sqlite,                                      s_etat_processus, sqlite, position_clef,
                                     (format == 'N') ? d_faux : d_vrai)                                      (format == 'N') ? d_faux : d_vrai)
                                     != d_absence_erreur)                                      != d_absence_erreur)
                             {                              {

Removed from v.1.6  
changed lines
  Added in v.1.7


CVSweb interface <joel.bertrand@systella.fr>