version 1.31, 2013/02/26 19:56:16
|
version 1.42, 2014/06/09 08:26:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.18 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2014 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 19
|
Line 19
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
|
|
#ifdef RPLCAS |
#ifdef RPLCAS |
|
|
// Giac inclut <semaphore.h> et définit sem_t. Or l'émulation |
// Giac inclut <semaphore.h> et définit sem_t. Or l'émulation |
Line 28
|
Line 27
|
# ifdef IPCS_SYSV |
# ifdef IPCS_SYSV |
// NetBSD : _SEMAPHORE_H_ |
// NetBSD : _SEMAPHORE_H_ |
# define _SEMAPHORE_H_ |
# define _SEMAPHORE_H_ |
|
// Linux : _SEMAPHORE_H |
|
# define _SEMAPHORE_H |
# endif |
# endif |
|
|
|
# pragma GCC diagnostic push |
|
# pragma GCC diagnostic ignored "-Wstrict-aliasing" |
|
# pragma GCC diagnostic ignored "-Wunused-parameter" |
|
# pragma GCC diagnostic ignored "-Wempty-body" |
# include "giac.h" |
# include "giac.h" |
|
# pragma GCC diagnostic pop |
|
|
# undef PACKAGE |
# undef PACKAGE |
# undef PACKAGE_NAME |
# undef PACKAGE_NAME |
Line 412 conversion_cas_vers_rpl(struct_processus
|
Line 418 conversion_cas_vers_rpl(struct_processus
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
|
#pragma GCC diagnostic push |
|
#pragma GCC diagnostic ignored "-Wunused-parameter" |
void |
void |
interface_cas(struct_processus *s_etat_processus, |
interface_cas(struct_processus *s_etat_processus, |
enum t_rplcas_commandes commande) |
enum t_rplcas_commandes commande) |
{ |
{ |
# ifdef RPLCAS |
#ifdef RPLCAS |
struct_objet *s_objet_argument_1; |
struct_objet *s_objet_argument_1; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_temporaire; |
struct_objet *s_objet_temporaire; |
Line 696 interface_cas(struct_processus *s_etat_p
|
Line 704 interface_cas(struct_processus *s_etat_p
|
} |
} |
|
|
return; |
return; |
|
|
#else |
#else |
|
|
if (s_etat_processus->langue == 'F') |
if (s_etat_processus->langue == 'F') |
Line 714 interface_cas(struct_processus *s_etat_p
|
Line 721 interface_cas(struct_processus *s_etat_p
|
|
|
#endif |
#endif |
} |
} |
|
#pragma GCC diagnostic pop |
|
|
// vim: ts=4 |
// vim: ts=4 |