Diff for /rpl/src/instructions_a4.c between versions 1.4 and 1.5

version 1.4, 2010/03/04 10:17:49 version 1.5, 2010/03/06 18:29:06
Line 556  instruction_asr(struct_processus *s_etat Line 556  instruction_asr(struct_processus *s_etat
 void  void
 instruction_append(struct_processus *s_etat_processus)  instruction_append(struct_processus *s_etat_processus)
 {  {
     file                            *descripteur;      struct_descripteur_fichier      *descripteur;
   
     struct_objet                    *s_objet_argument;      struct_objet                    *s_objet_argument;
   
Line 609  instruction_append(struct_processus *s_e Line 609  instruction_append(struct_processus *s_e
             return;              return;
         }          }
   
         if (fseek(descripteur, (long) 0, SEEK_END) != 0)          if ((*descripteur).type == 'C')
           {
               if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END) != 0)
               {
                   liberation(s_etat_processus, s_objet_argument);
   
                   (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                   return;
               }
           }
           else
         {          {
             liberation(s_etat_processus, s_objet_argument);              liberation(s_etat_processus, s_objet_argument);
   
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_execution = d_ex_erreur_type_fichier;
             return;              return;
         }          }
     }      }

Removed from v.1.4  
changed lines
  Added in v.1.5


CVSweb interface <joel.bertrand@systella.fr>