--- rpl/src/gestion_processus.c	2010/08/06 15:32:58	1.24
+++ rpl/src/gestion_processus.c	2011/04/14 08:46:38	1.33.2.2
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.0.23
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -925,6 +925,9 @@ surveillance_processus(void *argument)
 							(*s_etat_processus).erreur_systeme_processus_fils =
 									d_es_processus;
 						}
+
+						pthread_kill((*s_argument_thread).thread_pere,
+								SIGINJECT);
 					}
 				}
 				else
@@ -3397,29 +3400,26 @@ lecture_pipe(struct_processus *s_etat_pr
 ================================================================================
 */
 
-#ifndef OS2
-extern inline
-#endif
 void
 scrutation_injection(struct_processus *s_etat_processus)
 {
 	fd_set							ensemble_descripteurs;
 
+	logical1						drapeau_erreur;
+	logical1						registre_arret_si_exception;
+
 #	if !defined(OpenBSD) && !defined(OS2)
 		struct timespec				timeout;
 #	else
 		struct timeval				timeout;
 #	endif
 
-	logical1						drapeau_erreur;
-	logical1						registre_arret_si_exception;
-
 	unsigned char					tampon;
 	unsigned char					tampon_profilage[20];
 
 	// Si on est dans le processus père, il n'y a rien à surveiller.
 
-	if ((*s_etat_processus).var_volatile_processus_pere == 0)
+	if ((*s_etat_processus).var_volatile_processus_racine == 0)
 	{
 		FD_ZERO(&ensemble_descripteurs);
 		FD_SET((*s_etat_processus).pipe_nombre_injections,
@@ -3613,7 +3613,8 @@ scrutation_injection(struct_processus *s
 ================================================================================
 */
 
-inline int test_arret(struct_processus *s_etat_processus)
+int
+test_arret(struct_processus *s_etat_processus)
 {
 	return((int) (*s_etat_processus).var_volatile_requete_arret);
 }