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

Diff for /rpl/src/instructions_s6.c between versions 1.25 and 1.53

version 1.25, 2011/06/24 20:31:40 version 1.53, 2015/01/27 14:18:08
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0.prerelease.4    RPL/2 (R) version 4.1.20
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2015 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 42  instruction_sdev(struct_processus *s_eta Line 42  instruction_sdev(struct_processus *s_eta
     struct_objet                        *s_objet_resultat;      struct_objet                        *s_objet_resultat;
     struct_objet                        *s_objet_temporaire;      struct_objet                        *s_objet_temporaire;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
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 1065  instruction_scale(struct_processus *s_et Line 1066  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)
                 {                  {
Line 1205  instruction_scls(struct_processus *s_eta Line 1206  instruction_scls(struct_processus *s_eta
   
     struct_objet                *s_objet_statistique;      struct_objet                *s_objet_statistique;
   
     unsigned long               j;      integer8                    j;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Removed from v.1.25  
changed lines
  Added in v.1.53

CVSweb interface <joel.bertrand@systella.fr>