Diff for /rpl/src/instructions_v1.c between versions 1.57 and 1.63

version 1.57, 2013/12/03 09:36:15 version 1.63, 2015/01/27 14:18:08
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.17    RPL/2 (R) version 4.1.20
   Copyright (C) 1989-2013 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 132  instruction_var(struct_processus *s_etat Line 132  instruction_var(struct_processus *s_etat
             return;              return;
         }          }
   
         if (((*s_objet_resultat).objet = variance_statistique((struct_matrice *)          if (((*s_objet_resultat).objet = variance_statistique(s_etat_processus,
                 (*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;
             return;              return;
Line 500  instruction_version(struct_processus *s_ Line 500  instruction_version(struct_processus *s_
         return;          return;
     }      }
   
     if (((*(*l_element_courant).donnee).objet = date_compilation()) == NULL)      if (((*(*l_element_courant).donnee).objet =
               date_compilation(s_etat_processus)) == NULL)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;          (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
         return;          return;
Line 933  instruction_version(struct_processus *s_ Line 934  instruction_version(struct_processus *s_
         return;          return;
     }      }
   
     if (((*(*l_element_courant).donnee).objet = conversion_majuscule(HOST))      if (((*(*l_element_courant).donnee).objet = conversion_majuscule(
             == NULL)              s_etat_processus, HOST)) == NULL)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;          (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
         return;          return;

Removed from v.1.57  
changed lines
  Added in v.1.63


CVSweb interface <joel.bertrand@systella.fr>