Diff for /rpl/src/instructions_s6.c between versions 1.50 and 1.69

version 1.50, 2014/07/17 08:07:24 version 1.69, 2019/10/31 15:40:20
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.19    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2014 Dr. BERTRAND Joël    Copyright (C) 1989-2019 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 132  instruction_sdev(struct_processus *s_eta Line 132  instruction_sdev(struct_processus *s_eta
         }          }
   
         if (((*s_objet_resultat).objet = ecart_type_statistique(          if (((*s_objet_resultat).objet = ecart_type_statistique(
                   s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet, 'E')) == NULL)                  (struct_matrice *) (*s_objet_statistique).objet, 'E')) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 508  instruction_sync(struct_processus *s_eta Line 509  instruction_sync(struct_processus *s_eta
                     d_ex_erreur_acces_fichier;                      d_ex_erreur_acces_fichier;
             return;              return;
         }          }
   
           if (fsync(fileno((*descripteur).descripteur_c)) != 0)
           {
               if ((errno != EROFS) && (errno != EINVAL))
               {
                   liberation(s_etat_processus, s_objet_argument);
   
                   (*s_etat_processus).erreur_execution =
                           d_ex_erreur_acces_fichier;
                   return;
               }
           }
     }      }
     else      else
     {      {
Line 1065  instruction_scale(struct_processus *s_et Line 1078  instruction_scale(struct_processus *s_et
             }              }
             else if ((*(*l_element_courant).donnee).type == CHN)              else if ((*(*l_element_courant).donnee).type == CHN)
             {              {
                 tampon = conversion_majuscule((unsigned char *)                  tampon = conversion_majuscule(s_etat_processus,
                         (*(*l_element_courant).donnee).objet);                          (unsigned char *) (*(*l_element_courant).donnee).objet);
   
                 if (tampon == NULL)                  if (tampon == NULL)
                 {                  {

Removed from v.1.50  
changed lines
  Added in v.1.69


CVSweb interface <joel.bertrand@systella.fr>