--- rpl/src/rpl.h	2010/06/19 15:54:51	1.43
+++ rpl/src/rpl.h	2010/07/12 15:55:01	1.47
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1213,15 +1213,16 @@ typedef struct liste_pile_systeme
 
 	/*
 	type clôture :
-	C     CASE  : END termine un test SELECT/CASE/THEN/END/DEFAULT/END.
-	D     DO    : END termine une boucle DO/UNTIL/END.
-	I     IF    : END termine un test IF/THEN (ELSE)/END.
-	J     IFERR : END termine un test IFERR/THEN (ELSE)/END.
-	W     WHILE : END termine une boucle WHILE/REPEAT/END.
-
-	F     FOR   : NEXT ou STEP termine une boucle avec compteur.
-	S     START : NEXT ou STEP termine une boucle sans compteur.
-	L     LOOP  : boucle utilisé dans le traitement de l'instruction RETURN.
+	C     SELECT  : END termine un test SELECT/DEFAULT/END.
+	D     DO      : END termine une boucle DO/UNTIL/END.
+	I     IF      : END termine un test IF/THEN (ELSE)/END.
+	J     IFERR   : END termine un test IFERR/THEN (ELSE)/END.
+	K     CASE    : END termine un test CASE/THEN/END
+	W     WHILE   : END termine une boucle WHILE/REPEAT/END.
+
+	F     FOR     : NEXT ou STEP termine une boucle avec compteur.
+	S     START   : NEXT ou STEP termine une boucle sans compteur.
+	L     LOOP    : boucle utilisé dans le traitement de l'instruction RETURN.
 	        Elle correspond à une boucle FOR ou START mais sans son
 			initialisation.
 	*/
@@ -2614,6 +2615,7 @@ void scrutation_injection(struct_process
 void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
 void *surveillance_processus(void *argument);
 void swap(void *variable_1, void *variable_2, unsigned long taille_octets);
+void trace(struct_processus *s_etat_processus, FILE *flux);
 void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);
 void traitement_exceptions_gsl(const char *reason, const char *file,
 		int line, int gsl_errno);