--- rpl/src/rpl.h	2015/09/18 13:41:21	1.276
+++ rpl/src/rpl.h	2016/03/15 16:31:15	1.286
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.23
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.25
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -64,6 +64,8 @@
 #	define SA_ONSTACK	0
 #endif
 
+#define DEBUG_TRACE		uprintf("[%d/%X] %s(%d)\n", \
+		getpid(), pthread_self(), __FILE__, __LINE__);
 
 /*
 ================================================================================
@@ -515,8 +517,7 @@ union semun
 
 	__EXTERN__ pid_t				pid_processus_pere;
 
-	__EXTERN__ pthread_mutex_t		mutex_liste_threads
-											__STATIC_MUTEX_INITIALIZATION__;
+	__EXTERN__ pthread_mutex_t		mutex_liste_threads;
 	__EXTERN__ pthread_mutex_t		mutex_creation_variable_partagee
 											__STATIC_MUTEX_INITIALIZATION__;
 	__EXTERN__ pthread_mutex_t		mutex_sections_critiques;
@@ -773,6 +774,7 @@ pid_t debug_fork();
 #define d_SPH					"Semaphore $n 'name'"
 #define d_TAB					"<[ table ]>"
 #define d_MTX					"Mutex $n"
+#define d_REC					"Record /'name_1', ..., 'name_n'/"
 
 /*
 --------------------------------------------------------------------------------
@@ -1025,6 +1027,7 @@ pid_t debug_fork();
 #define NOM	__RPL_NOM
 #define NON	__RPL_NON
 #define PRC	__RPL_PRC
+#define REC	__RPL_REC
 #define REL	__RPL_REL
 #define RPN	__RPL_RPN
 #define SCK	__RPL_SCK
@@ -1039,7 +1042,7 @@ pid_t debug_fork();
 enum t_rplcas_commandes		{ RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE };
 
 enum t_type		{ ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,
-				MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,
+				MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK,
 				SLB, SPH, SQL, TBL, VCX, VIN, VRL };
 
 	/*
@@ -1973,6 +1976,7 @@ typedef struct processus
 	unsigned char				evaluation_forcee;					/*Y/N*/
 	unsigned char				instruction_valide;					/*Y/N*/
 	unsigned char				instruction_intrinseque;			/*Y/I/N*/
+	unsigned char				instruction_sensible;				/*Y/N*/
 	unsigned char				test_instruction;					/*Y/N*/
 	unsigned char				affichage_arguments;				/*Y/N*/
 	unsigned char				constante_symbolique;				/*Y/N*/
@@ -2468,6 +2472,7 @@ void *rpl_malloc(struct_processus *s_eta
 void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s);
 void rpl_free(struct_processus *s_etat_processus, void *ptr);
 void *sys_malloc(size_t s);
+void *sys_realloc(void *ptr, size_t s);
 void sys_free(void *ptr);
 
 /*