version 1.61, 2019/02/03 14:41:24
|
version 1.65, 2020/06/04 09:35:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.31 |
RPL/2 (R) version 4.1.32 |
Copyright (C) 1989-2019 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 132 conversion_rpl_vers_cas(struct_processus
|
Line 133 conversion_rpl_vers_cas(struct_processus
|
|
|
liberation(s_etat_processus, *s_objet); |
liberation(s_etat_processus, *s_objet); |
|
|
if (depilement(s_etat_processus, &(s_etat_processus |
if (depilement(s_etat_processus, &(s_etat_processus->l_base_pile), |
->l_base_pile), s_objet) == d_erreur) |
s_objet) == d_erreur) |
{ |
{ |
return(NULL); |
return(NULL); |
} |
} |
Line 463 interface_cas(struct_processus *s_etat_p
|
Line 464 interface_cas(struct_processus *s_etat_p
|
contexte = reinterpret_cast<giac::context *>( |
contexte = reinterpret_cast<giac::context *>( |
s_etat_processus->contexte_cas); |
s_etat_processus->contexte_cas); |
|
|
|
giac::angle_radian((test_cfsf(s_etat_processus, 60) == d_vrai) ? 1 : 0, |
|
contexte); |
|
|
if ((s_etat_processus->erreur_execution != d_ex) || |
if ((s_etat_processus->erreur_execution != d_ex) || |
(s_etat_processus->erreur_systeme != d_es)) |
(s_etat_processus->erreur_systeme != d_es)) |
{ |
{ |