version 1.297, 2016/07/21 15:22:53
|
version 1.307, 2017/06/30 13:11:26
|
Line 1
|
Line 1
|
|
#define DEBUG_ERREURS |
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.25 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 64
|
Line 65
|
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
#endif |
#endif |
|
|
|
#ifdef BROKEN_SIGSEGV |
|
# undef HAVE_STACK_OVERFLOW_RECOVERY |
|
# undef HAVE_SIGSEGV_RECOVERY |
|
#endif |
|
|
#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \ |
#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \ |
getpid(), pthread_self(), __FILE__, __LINE__); |
getpid(), pthread_self(), __FILE__, __LINE__); |
#define TEST_ABSENCE_FICHIER(nom) \ |
#define TEST_ABSENCE_FICHIER(nom) \ |
Line 215
|
Line 221
|
# endif |
# endif |
|
|
# include "sqlite3.h" |
# include "sqlite3.h" |
# include "sigsegv.h" |
|
|
# ifndef BROKEN_SIGSEGV |
|
# include "sigsegv.h" |
|
# endif |
|
|
# ifdef OS2 |
# ifdef OS2 |
// Bug de libsigsegv |
// Bug de libsigsegv |
# undef HAVE_STACK_OVERFLOW_RECOVERY |
# undef HAVE_STACK_OVERFLOW_RECOVERY |
Line 272
|
Line 282
|
# define __STATIC_MUTEX_INITIALIZATION__ |
# define __STATIC_MUTEX_INITIALIZATION__ |
#endif |
#endif |
|
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Bugs spécifiques |
Bugs spécifiques |
Line 1004 pid_t debug_fork();
|
Line 1015 pid_t debug_fork();
|
# define d_ex_chiffrement_indisponible __erreur(90) |
# define d_ex_chiffrement_indisponible __erreur(90) |
# define d_ex_longueur_clef_chiffrement __erreur(91) |
# define d_ex_longueur_clef_chiffrement __erreur(91) |
# define d_ex_taille_message __erreur(92) |
# define d_ex_taille_message __erreur(92) |
|
# define d_ex_type_externe_dup __erreur(93) |
|
# define d_ex_type_externe_drop __erreur(94) |
#endif |
#endif |
|
|
|
|
Line 1032 pid_t debug_fork();
|
Line 1045 pid_t debug_fork();
|
#define BIN __RPL_BIN |
#define BIN __RPL_BIN |
#define CHN __RPL_CHN |
#define CHN __RPL_CHN |
#define CPL __RPL_CPL |
#define CPL __RPL_CPL |
|
#define EXT __RPL_EXT |
#define FCH __RPL_FCH |
#define FCH __RPL_FCH |
#define FCT __RPL_FCT |
#define FCT __RPL_FCT |
#define INT __RPL_INT |
#define INT __RPL_INT |
Line 1057 pid_t debug_fork();
|
Line 1071 pid_t debug_fork();
|
|
|
enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE }; |
enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE }; |
|
|
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, |
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, EXT, FCH, FCT, INT, LST, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK, |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
|
|
Line 1081 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1095 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Sans objet. |
Sans objet. |
Type C/Fortran : complex16 |
Type C/Fortran : complex16 |
|
|
|
EXT : type géré dans une bibliothèque externe. |
|
|
FCH : descripteur de fichier (struct_fichier *). |
FCH : descripteur de fichier (struct_fichier *). |
|
|
FCT : déclaration d'une fonction et de son nombre d'arguments |
FCT : déclaration d'une fonction et de son nombre d'arguments |
Line 1146 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1162 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
typedef struct objet |
typedef struct objet |
{ |
{ |
enum t_type type; |
enum t_type type; |
|
integer8 extension_type; |
|
void *descripteur_bibliotheque; |
|
|
volatile long nombre_occurrences; |
volatile long nombre_occurrences; |
|
|
Line 3148 void interruption3(int signal);
|
Line 3166 void interruption3(int signal);
|
void interruption4(int signal); |
void interruption4(int signal); |
void interruption5(int signal); |
void interruption5(int signal); |
void interruption6(int signal); |
void interruption6(int signal); |
void interruption_depassement_pile(int urgence, stackoverflow_context_t scp); |
#ifdef HAVE_SIGSEGV_RECOVERY |
|
void interruption_depassement_pile(int urgence, |
|
stackoverflow_context_t scp); |
|
#endif |
void inversion_matrice(struct_processus *s_etat_processus, |
void inversion_matrice(struct_processus *s_etat_processus, |
struct_matrice *s_matrice); |
struct_matrice *s_matrice); |
void lancement_daemon(struct_processus *s_etat_processus); |
void lancement_daemon(struct_processus *s_etat_processus); |