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

Diff for /rpl/src/instructions_d6.c between versions 1.51 and 1.62

version 1.51, 2013/09/06 10:30:53 version 1.62, 2015/11/26 11:44:35
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.16    RPL/2 (R) version 4.1.24
   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 794  instruction_digest(struct_processus *s_e Line 794  instruction_digest(struct_processus *s_e
         // - EVP_sha512          // - EVP_sha512
         // - EVP_whirlpool          // - EVP_whirlpool
   
         if ((fonction = conversion_majuscule((unsigned char *)          if ((fonction = conversion_majuscule(s_etat_processus,
                 (*s_objet_argument_1).objet)) == NULL)                  (unsigned char *) (*s_objet_argument_1).objet)) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 1446  instruction_digest(struct_processus *s_e Line 1446  instruction_digest(struct_processus *s_e
   
         l_element_courant = (*s_objet_argument_1).objet;          l_element_courant = (*s_objet_argument_1).objet;
   
         if ((fonction = conversion_majuscule((unsigned char *)          if ((fonction = conversion_majuscule(s_etat_processus,
                 (*(*l_element_courant).donnee).objet)) == NULL)                  (unsigned char *) (*(*l_element_courant).donnee).objet))
                   == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 2277  instruction_digest(struct_processus *s_e Line 2278  instruction_digest(struct_processus *s_e
   
             memset(vecteur_initialisation, 0, (size_t) longueur_clef);              memset(vecteur_initialisation, 0, (size_t) longueur_clef);
   
             if ((tampon = chiffrement(EVP_chiffrement, d_vrai,              if ((tampon = chiffrement(s_etat_processus, EVP_chiffrement, d_vrai,
                     chaine, longueur_chaine, clef, longueur_clef,                      chaine, longueur_chaine, clef, longueur_clef,
                     vecteur_initialisation, &longueur_tampon)) == NULL)                      vecteur_initialisation, &longueur_tampon)) == NULL)
             {              {
Removed from v.1.51  
changed lines
  Added in v.1.62

CVSweb interface <joel.bertrand@systella.fr>