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

Diff for /rpl/src/instructions_a4.c between versions 1.1 and 1.34

version 1.1, 2010/01/26 15:22:45 version 1.34, 2012/03/01 10:14:05
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    RPL/2 (R) version 4.1.7
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
   
 /*  /*
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;
         }          }
     }      }
Line 767  instruction_axes(struct_processus *s_eta Line 777  instruction_axes(struct_processus *s_eta
   
         if (presence_type == d_faux)          if (presence_type == d_faux)
         {          {
             if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL)  
             {  
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;  
                 return;  
             }  
   
             if ((*s_etat_processus).systeme_axes == 0)              if ((*s_etat_processus).systeme_axes == 0)
             {              {
                   if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL)
                   {
                       (*s_etat_processus).erreur_systeme =
                               d_es_allocation_memoire;
                       return;
                   }
   
                 strcpy(tampon, "MAIN");                  strcpy(tampon, "MAIN");
             }              }
             else              else
             {              {
                   if ((tampon = malloc(10 * sizeof(unsigned char))) == NULL)
                   {
                       (*s_etat_processus).erreur_systeme =
                               d_es_allocation_memoire;
                       return;
                   }
   
                 strcpy(tampon, "AUXILIARY");                  strcpy(tampon, "AUXILIARY");
             }              }
         }          }
Removed from v.1.1  
changed lines
  Added in v.1.34

CVSweb interface <joel.bertrand@systella.fr>