Diff for /rpl/src/instructions_s2.c between versions 1.40 and 1.54

version 1.40, 2012/04/13 14:12:59 version 1.54, 2014/04/25 07:37:33
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.8    RPL/2 (R) version 4.1.18
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2014 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 1035  instruction_str_fleche(struct_processus Line 1035  instruction_str_fleche(struct_processus
     unsigned char                   registre_interruption;      unsigned char                   registre_interruption;
     unsigned char                   *tampon;      unsigned char                   *tampon;
   
     unsigned long                   nombre_caracteres_supplementaires;      integer8                        nombre_caracteres_supplementaires;
     unsigned long                   position_courante;      integer8                        position_courante;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1155  instruction_str_fleche(struct_processus Line 1155  instruction_str_fleche(struct_processus
         // de caractères incluses. Le seul caractère protégé est le '\'          // de caractères incluses. Le seul caractère protégé est le '\'
         // qui est doublé.          // qui est doublé.
   
         if ((chaine_convertie = malloc((strlen(tampon) +          if ((chaine_convertie = malloc((strlen(tampon) + ((size_t)
                 nombre_caracteres_supplementaires + 1) * sizeof(unsigned char)))                  nombre_caracteres_supplementaires) + 1) *
                 == NULL)                  sizeof(unsigned char))) == 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.40  
changed lines
  Added in v.1.54


CVSweb interface <joel.bertrand@systella.fr>