version 1.14, 2011/08/09 10:30:37
|
version 1.16, 2011/09/16 16:37:08
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.2 |
RPL/2 (R) version 4.1.3 |
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 55 initialisation_contexte_cas(struct_proce
|
Line 55 initialisation_contexte_cas(struct_proce
|
void |
void |
liberation_contexte_cas(struct_processus *s_etat_processus) |
liberation_contexte_cas(struct_processus *s_etat_processus) |
{ |
{ |
delete reinterpret_cast<giac::context *>(s_etat_processus->contexte_cas); |
if (s_etat_processus->contexte_cas != NULL) |
s_etat_processus->contexte_cas = NULL; |
{ |
|
# ifdef RPLCAS |
|
delete reinterpret_cast<giac::context *>( |
|
s_etat_processus->contexte_cas); |
|
# endif |
|
s_etat_processus->contexte_cas = NULL; |
|
} |
|
|
return; |
return; |
} |
} |