version 1.281, 2015/11/26 11:44:43
|
version 1.291, 2016/03/21 12:08:06
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.24 |
RPL/2 (R) version 4.1.25 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 64
|
Line 64
|
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
#endif |
#endif |
|
|
|
#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \ |
|
getpid(), pthread_self(), __FILE__, __LINE__); |
|
#define TEST_ABSENCE_FICHIER(nom) \ |
|
{ int ios; struct stat *buf; ios = stat(nom, buf); \ |
|
if (ios == 0) BUG(1, uprintf("File %s found!\n", nom)); } |
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 590 union semun
|
Line 595 union semun
|
# define fflush(flux) fflush((flux == stdout) ? stderr : flux) |
# define fflush(flux) fflush((flux == stdout) ? stderr : flux) |
#endif |
#endif |
|
|
// Ajout d'un timeout sur les fonctions pipe() pour éviter une erreur |
|
// système dans le cas où l'on a atteint le nombre maximale de fichiers |
|
// ouverts. |
|
|
|
#define pipe(descripteurs) \ |
|
({ \ |
|
struct timespec temporisation; \ |
|
int erreur, nombre_echecs; \ |
|
nombre_echecs = 0; \ |
|
do \ |
|
{ \ |
|
if ((erreur = pipe(descripteurs)) == 0) break; \ |
|
nombre_echecs++; \ |
|
temporisation.tv_sec = 0; \ |
|
temporisation.tv_nsec = ((long) 1000000000) * rand(); \ |
|
nanosleep(&temporisation, NULL); \ |
|
} while(nombre_echecs < 100); \ |
|
erreur; \ |
|
}) |
|
|
|
// Redéfinition de abs pour un fonctionnement en entier de type long long int |
// Redéfinition de abs pour un fonctionnement en entier de type long long int |
|
|
#ifdef __GNUC__ |
#ifdef __GNUC__ |
Line 813 pid_t debug_fork();
|
Line 798 pid_t debug_fork();
|
# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \ |
# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \ |
== NULL) ufprintf(stderr, \ |
== NULL) ufprintf(stderr, \ |
"ERROR %d AT %s() FROM %s LINE %d\n", \ |
"ERROR %d AT %s() FROM %s LINE %d\n", \ |
i, __FUNCTION__, __FILE__, __LINE__); i; }) |
i, __FUNCTION__, __FILE__, __LINE__); BACKTRACE(16); i; }) |
# endif |
# endif |
#else |
#else |
# define __erreur(i) i |
# define __erreur(i) i |
Line 1974 typedef struct processus
|
Line 1959 typedef struct processus
|
unsigned char evaluation_forcee; /*Y/N*/ |
unsigned char evaluation_forcee; /*Y/N*/ |
unsigned char instruction_valide; /*Y/N*/ |
unsigned char instruction_valide; /*Y/N*/ |
unsigned char instruction_intrinseque; /*Y/I/N*/ |
unsigned char instruction_intrinseque; /*Y/I/N*/ |
|
unsigned char instruction_sensible; /*Y/N*/ |
unsigned char test_instruction; /*Y/N*/ |
unsigned char test_instruction; /*Y/N*/ |
unsigned char affichage_arguments; /*Y/N*/ |
unsigned char affichage_arguments; /*Y/N*/ |
unsigned char constante_symbolique; /*Y/N*/ |
unsigned char constante_symbolique; /*Y/N*/ |
Line 2469 void *rpl_malloc(struct_processus *s_eta
|
Line 2455 void *rpl_malloc(struct_processus *s_eta
|
void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s); |
void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s); |
void rpl_free(struct_processus *s_etat_processus, void *ptr); |
void rpl_free(struct_processus *s_etat_processus, void *ptr); |
void *sys_malloc(size_t s); |
void *sys_malloc(size_t s); |
|
void *sys_realloc(void *ptr, size_t s); |
void sys_free(void *ptr); |
void sys_free(void *ptr); |
|
|
/* |
/* |
Line 3212 void liberation_queue_signaux(struct_pro
|
Line 3199 void liberation_queue_signaux(struct_pro
|
void destruction_queue_signaux(struct_processus *s_etat_processus); |
void destruction_queue_signaux(struct_processus *s_etat_processus); |
int envoi_signal_contexte(struct_processus *s_etat_processus, |
int envoi_signal_contexte(struct_processus *s_etat_processus, |
enum signaux_rpl signal); |
enum signaux_rpl signal); |
int envoi_signal_processus(pid_t pid, enum signaux_rpl signal); |
int envoi_signal_processus(pid_t pid, enum signaux_rpl signal, |
|
logical1 test_ouverture); |
int envoi_signal_thread(pthread_t tid, enum signaux_rpl signal); |
int envoi_signal_thread(pthread_t tid, enum signaux_rpl signal); |
#endif |
#endif |
|
|