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

Diff for /rpl/src/instructions_s2.c between versions 1.35 and 1.75

version 1.35, 2011/11/17 22:21:16 version 1.75, 2022/09/07 13:40:39
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.4    RPL/2 (R) version 4.1.34
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2021 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;
Line 1256  instruction_str_fleche(struct_processus Line 1256  instruction_str_fleche(struct_processus
                     .definitions_chainees);                      .definitions_chainees);
             (*s_etat_processus).instruction_courante = commande;              (*s_etat_processus).instruction_courante = commande;
   
               (*s_etat_processus).type_en_cours = NON;
             recherche_type(s_etat_processus);              recherche_type(s_etat_processus);
   
             if (((*s_etat_processus).erreur_execution != d_ex) ||              if (((*s_etat_processus).erreur_execution != d_ex) ||
Removed from v.1.35  
changed lines
  Added in v.1.75

CVSweb interface <joel.bertrand@systella.fr>