version 1.15, 2011/08/09 11:31:36
|
version 1.18, 2011/09/21 10:35:51
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
RPL/2 (R) version 4.1.4 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 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 |
|
|
|
// Giac inclut <semaphore.h> et définit sem_t. Or l'émulation |
|
// des IPCS POSIX requiert une redéfinition de sem_t. |
|
|
|
# ifdef IPCS_SYSV |
|
// NetBSD : _SEMAPHORE_H_ |
|
# define _SEMAPHORE_H_ |
|
# endif |
|
|
# include "giac.h" |
# include "giac.h" |
|
|
# undef PACKAGE |
# undef PACKAGE |
Line 57 liberation_contexte_cas(struct_processus
|
Line 66 liberation_contexte_cas(struct_processus
|
{ |
{ |
if (s_etat_processus->contexte_cas != NULL) |
if (s_etat_processus->contexte_cas != NULL) |
{ |
{ |
|
# ifdef RPLCAS |
delete reinterpret_cast<giac::context *>( |
delete reinterpret_cast<giac::context *>( |
s_etat_processus->contexte_cas); |
s_etat_processus->contexte_cas); |
|
# endif |
s_etat_processus->contexte_cas = NULL; |
s_etat_processus->contexte_cas = NULL; |
} |
} |
|
|