version 1.56, 2018/05/30 06:00:41
|
version 1.64, 2020/01/16 08:57:42
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.28 |
RPL/2 (R) version 4.1.32 |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
Copyright (C) 1989-2020 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 21
|
Line 21
|
|
|
|
|
#ifdef RPLCAS |
#ifdef RPLCAS |
|
# define RPLCXX |
|
|
// Giac inclut <semaphore.h> et définit sem_t. Or l'émulation |
// Giac inclut <semaphore.h> et définit sem_t. Or l'émulation |
// des IPCS POSIX requiert une redéfinition de sem_t. |
// des IPCS POSIX requiert une redéfinition de sem_t. |
Line 235 conversion_rpl_vers_cas(struct_processus
|
Line 236 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 448 interface_cas(struct_processus *s_etat_p
|
Line 449 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 522 interface_cas(struct_processus *s_etat_p
|
Line 523 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 683 interface_cas(struct_processus *s_etat_p
|
Line 684 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; |
} |
} |