Diff for /rpl/src/interface_cas.cpp between versions 1.45 and 1.60

version 1.45, 2015/01/05 15:32:23 version 1.60, 2019/01/01 09:03:13
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.20    RPL/2 (R) version 4.1.30
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2019 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 36 Line 36
 #   pragma GCC diagnostic ignored "-Wstrict-aliasing"  #   pragma GCC diagnostic ignored "-Wstrict-aliasing"
 #   pragma GCC diagnostic ignored "-Wunused-parameter"  #   pragma GCC diagnostic ignored "-Wunused-parameter"
 #   pragma GCC diagnostic ignored "-Wempty-body"  #   pragma GCC diagnostic ignored "-Wempty-body"
 #   include "giac.h"  #   pragma GCC diagnostic ignored "-Wunknown-pragmas"
   #   include "giacPCH.h"
 #   pragma GCC diagnostic pop  #   pragma GCC diagnostic pop
   
 #   undef PACKAGE  #   undef PACKAGE
Line 234  conversion_rpl_vers_cas(struct_processus Line 235  conversion_rpl_vers_cas(struct_processus
             strstr(reinterpret_cast<char *>(index),              strstr(reinterpret_cast<char *>(index),
             (const char *) "relax"))) != NULL)              (const char *) "relax"))) != NULL)
     {      {
         strncpy(reinterpret_cast<char *>(index), "    +", 5);          memcpy(reinterpret_cast<char *>(index), "    +", 5);
     }      }
   
     // Si le résultat vaut infinity, on rajoute le signe +.      // Si le résultat vaut infinity, on rajoute le signe +.
Line 447  interface_cas(struct_processus *s_etat_p Line 448  interface_cas(struct_processus *s_etat_p
         {          {
             s_etat_processus->contexte_cas = new giac::context;              s_etat_processus->contexte_cas = new giac::context;
         }          }
         catch(bad_alloc exception)          catch(bad_alloc &exception)
         {          {
             s_etat_processus->erreur_systeme = d_es_allocation_memoire;              s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 521  interface_cas(struct_processus *s_etat_p Line 522  interface_cas(struct_processus *s_etat_p
                         reinterpret_cast<unsigned char *>(const_cast<char *>(                          reinterpret_cast<unsigned char *>(const_cast<char *>(
                         chaine.c_str())));                          chaine.c_str())));
             }              }
             catch(bad_alloc exception)              catch(bad_alloc &exception)
             {              {
                 s_etat_processus->erreur_systeme = d_es_allocation_memoire;                  s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             }              }
Line 682  interface_cas(struct_processus *s_etat_p Line 683  interface_cas(struct_processus *s_etat_p
                         reinterpret_cast<unsigned char *>(const_cast<char *>(                          reinterpret_cast<unsigned char *>(const_cast<char *>(
                         chaine.c_str())));                          chaine.c_str())));
             }              }
             catch(bad_alloc exception)              catch(bad_alloc &exception)
             {              {
                 s_etat_processus->erreur_systeme = d_es_allocation_memoire;                  s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             }              }

Removed from v.1.45  
changed lines
  Added in v.1.60


CVSweb interface <joel.bertrand@systella.fr>