--- rpl/src/rpl.c	2013/02/23 18:32:15	1.132
+++ rpl/src/rpl.c	2013/03/26 09:04:33	1.138
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -51,6 +51,8 @@ rplinit(int argc, char *argv[], char *en
 	int									erreur_historique;
 	int									option_P;
 
+	integer8							i;
+
 	logical1							core;
 	logical1							debug;
 	logical1							erreur_fichier;
@@ -106,7 +108,6 @@ rplinit(int argc, char *argv[], char *en
 	unsigned char						*ptr;
 	unsigned char						*tampon;
 
-	unsigned long						i;
 	unsigned long						unite_fichier;
 
 	void								*l_element_courant;
@@ -219,7 +220,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	if ((arg_exec = malloc((argc + 1) * sizeof(char *))) == NULL)
+	if ((arg_exec = malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL)
 	{
 #		ifndef SEMAPHORES_NOMMES
 		sem_post(&semaphore_gestionnaires_signaux);
@@ -241,7 +242,7 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
-	for(i = 0; i < (unsigned long) argc; i++)
+	for(i = 0; i < argc; i++)
 	{
 		arg_exec[i] = argv[i];
 	}
@@ -593,7 +594,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGINT);
+	raise(SIGINT);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -680,7 +681,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGTERM);
+	raise(SIGTERM);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -767,7 +768,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGALRM);
+	raise(SIGALRM);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -855,7 +856,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGTSTP);
+	raise(SIGTSTP);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -945,7 +946,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGPIPE);
+	raise(SIGPIPE);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -1035,7 +1036,7 @@ rplinit(int argc, char *argv[], char *en
 	}
 
 	signal_test = SIGTEST;
-	kill(getpid(), SIGUSR1);
+	raise(SIGUSR1);
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = 1000000;
@@ -2253,7 +2254,7 @@ rplinit(int argc, char *argv[], char *en
 							}
 
 							(*s_etat_processus).longueur_definitions_chainees =
-									strlen((*s_etat_processus)
+									(integer8) strlen((*s_etat_processus)
 									.definitions_chainees);
 
 							break;
@@ -2800,7 +2801,7 @@ rplinit(int argc, char *argv[], char *en
 			}
 
 			signal_test = SIGTEST;
-			kill(getpid(), SIGSEGV);
+			raise(SIGSEGV);
 
 			attente.tv_sec = 0;
 			attente.tv_nsec = 1000000;
@@ -2900,7 +2901,7 @@ rplinit(int argc, char *argv[], char *en
 			}
 
 			signal_test = SIGTEST;
-			kill(getpid(), SIGBUS);
+			raise(SIGBUS);
 
 			attente.tv_sec = 0;
 			attente.tv_nsec = 1000000;
@@ -4482,7 +4483,7 @@ rplinit(int argc, char *argv[], char *en
 					{
 						(*s_etat_processus).erreur_systeme = d_es;
 						encart(s_etat_processus,
-								(unsigned long) (5 * 1000000));
+								(integer8) (5 * 1000000));
 
 						if ((*s_etat_processus).erreur_systeme != d_es)
 						{
@@ -5138,12 +5139,18 @@ rplinit(int argc, char *argv[], char *en
 
 								if (erreur == d_absence_erreur)
 								{
-									if (((*s_etat_processus).var_volatile_alarme
-											== 0) && ((*s_etat_processus)
+									if (((*s_etat_processus)
 											.arret_depuis_abort == 0) &&
 											((*s_etat_processus).at_exit
 											!= NULL))
 									{
+										// Permet de traiter ATEXIT
+										// même après réception d'un SIGINT.
+										(*s_etat_processus)
+												.var_volatile_alarme = 0;
+										(*s_etat_processus)
+												.var_volatile_requete_arret = 0;
+
 										erreur = evaluation(s_etat_processus,
 												(*s_etat_processus).at_exit,
 												'E');
@@ -5159,12 +5166,18 @@ rplinit(int argc, char *argv[], char *en
 
 								if (erreur == d_absence_erreur)
 								{
-									if (((*s_etat_processus).var_volatile_alarme
-											== 0) && ((*s_etat_processus)
+									if (((*s_etat_processus)
 											.arret_depuis_abort == 0) &&
 											((*s_etat_processus).at_exit
 											!= NULL))
 									{
+										// Permet de traiter ATEXIT
+										// même après réception d'un SIGINT.
+										(*s_etat_processus)
+												.var_volatile_alarme = 0;
+										(*s_etat_processus)
+												.var_volatile_requete_arret = 0;
+
 										erreur = evaluation(s_etat_processus,
 												(*s_etat_processus).at_exit,
 												'E');
@@ -5380,8 +5393,7 @@ rplinit(int argc, char *argv[], char *en
 						l_element_courant = (void *)
 								(*s_etat_processus).l_base_pile_processus;
 
-						for(i = 0; i < (unsigned long)
-								(*(*((struct_processus_fils *)
+						for(i = 0; i < (*(*((struct_processus_fils *)
 								(*(*((struct_liste_chainee *)
 								l_element_courant)).donnee).objet)).thread)
 								.nombre_objets_dans_pipe; i++)
@@ -5721,8 +5733,9 @@ rplinit(int argc, char *argv[], char *en
 						{
 							free((*resultats));
 
-							if (((*resultats) = malloc(((*s_etat_processus)
-									.hauteur_pile_operationnelle + 1)
+							if (((*resultats) = malloc(((size_t)
+									((*s_etat_processus)
+									.hauteur_pile_operationnelle + 1))
 									* sizeof(unsigned char **))) != NULL)
 							{
 								(*resultats)[(*s_etat_processus)