--- rpl/src/instructions_s1.c	2019/01/28 15:34:25	1.94
+++ rpl/src/instructions_s1.c	2019/02/09 13:36:40	1.100
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.30
+  RPL/2 (R) version 4.1.31
   Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3415,8 +3415,8 @@ instruction_syseval(struct_processus *s_
 	unsigned char				*tampon;
 
 	integer8					longueur_lecture;
+	integer8					longueur_lue;
 	integer8					longueur_tampon;
-	integer8					nombre_iterations;
 	integer8					nombre_lignes;
 	integer8					pointeur;
 	integer8					registre_position_courante;
@@ -3651,23 +3651,6 @@ instruction_syseval(struct_processus *s_
 			l_element_courant = (*l_element_courant).suivant;
 		}
 
-		action_courante.sa_handler = SIG_IGN;
-		action_courante.sa_flags = SA_NODEFER | SA_ONSTACK;
-
-		if (sigaction(SIGINT, &action_courante, &action_passee) != 0)
-		{
-			for(i = 0; i < nombre_arguments; i++)
-			{
-				depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
-						&s_objet_temporaire);
-				liberation(s_etat_processus, s_objet_temporaire);
-			}
-
-			free(arguments);
-			(*s_etat_processus).erreur_systeme = d_es_signal;
-			return;
-		}
-
 		if (pipe(pipes_entree) != 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -3689,6 +3672,24 @@ instruction_syseval(struct_processus *s_
 		fflush(NULL);
 
 		verrouillage_threads_concurrents(s_etat_processus);
+
+		action_courante.sa_handler = SIG_IGN;
+		action_courante.sa_flags = 0;
+
+		if (sigaction(SIGINT, &action_courante, &action_passee) != 0)
+		{
+			for(i = 0; i < nombre_arguments; i++)
+			{
+				depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+						&s_objet_temporaire);
+				liberation(s_etat_processus, s_objet_temporaire);
+			}
+
+			free(arguments);
+			(*s_etat_processus).erreur_systeme = d_es_signal;
+			return;
+		}
+
 		pid = fork();
 
 		if (pid < 0)
@@ -3821,6 +3822,21 @@ instruction_syseval(struct_processus *s_
 		}
 		else
 		{
+			if (sigaction(SIGINT, &action_passee, NULL) != 0)
+			{
+				for(i = 0; i < nombre_arguments; i++)
+				{
+					depilement(s_etat_processus,
+							&((*s_etat_processus).l_base_pile),
+							&s_objet_temporaire);
+					liberation(s_etat_processus, s_objet_temporaire);
+				}
+
+				free(arguments);
+				(*s_etat_processus).erreur_systeme = d_es_signal;
+				return;
+			}
+
 			deverrouillage_threads_concurrents(s_etat_processus);
 
 			if (close(pipes_entree[0]) != 0)
@@ -3968,8 +3984,8 @@ instruction_syseval(struct_processus *s_
 			}
 
 			longueur_lecture = 65536;
+			longueur_lue = 0;
 			pointeur = 0;
-			nombre_iterations = 1;
 
 			if ((tampon = malloc(((size_t) (longueur_lecture + 1)) *
 					sizeof(unsigned char))) == NULL)
@@ -4004,12 +4020,12 @@ instruction_syseval(struct_processus *s_
 					return;
 				}
 
+				longueur_lue += ios;
 				tampon[pointeur + ios] = d_code_fin_chaine;
 				pointeur += ios;
-				nombre_iterations++;
 
 				if ((tampon = realloc(tampon,
-						((size_t) ((nombre_iterations * longueur_lecture) + 1))
+						((size_t) ((longueur_lue + longueur_lecture) + 1))
 						* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -4028,10 +4044,24 @@ instruction_syseval(struct_processus *s_
 				}
 			}
 
+#			ifndef SEMAPHORES_NOMMES
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+#			else
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
+#			endif
+			{
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
+			}
+
 			do
 			{
 				if (kill(pid, 0) != 0)
 				{
+					// Le processus n'existe plus.
 					break;
 				}
 
@@ -4053,18 +4083,6 @@ instruction_syseval(struct_processus *s_
 				{
 					if (errno != EINTR)
 					{
-#						ifndef SEMAPHORES_NOMMES
-							if (sem_post(&((*s_etat_processus).semaphore_fork))
-									!= 0)
-#						else
-							if (sem_post((*s_etat_processus).semaphore_fork)
-									!= 0)
-#						endif
-						{
-							(*s_etat_processus).erreur_systeme = d_es_processus;
-							return;
-						}
-
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
 					}
@@ -4084,19 +4102,6 @@ instruction_syseval(struct_processus *s_
 				}
 			} while((!WIFEXITED(status)) && (!WIFSIGNALED(status)));
 
-#			ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
-#			else
-				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
-#			endif
-			{
-				if (errno != EINTR)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-			}
-
 			if (ios == -1)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -4199,20 +4204,6 @@ instruction_syseval(struct_processus *s_
 			free(tampon);
 		}
 
-		if (sigaction(SIGINT, &action_passee, NULL) != 0)
-		{
-			for(i = 0; i < nombre_arguments; i++)
-			{
-				depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
-						&s_objet_temporaire);
-				liberation(s_etat_processus, s_objet_temporaire);
-			}
-
-			free(arguments);
-			(*s_etat_processus).erreur_systeme = d_es_signal;
-			return;
-		}
-
 		for(i = 0; i < nombre_arguments; i++)
 		{
 			depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
@@ -4220,6 +4211,8 @@ instruction_syseval(struct_processus *s_
 			liberation(s_etat_processus, s_objet_temporaire);
 		}
 
+		free(arguments);
+
 		if ((tampon = malloc(sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -4289,7 +4282,6 @@ instruction_syseval(struct_processus *s_
 			return;
 		}
 
-		free(arguments);
 		free(tampon);
 	}
 	else