--- rpl/src/instructions_s9.c	2011/07/25 07:44:59	1.35
+++ rpl/src/instructions_s9.c	2013/02/27 17:11:44	1.59
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.2
-  Copyright (C) 1989-2011 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.
 
@@ -154,26 +154,12 @@ instruction_sort(struct_processus *s_eta
 
 		if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine) == d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
 				(*s_etat_processus).erreur_execution =
 						d_ex_erreur_type_argument;
 
@@ -183,15 +169,12 @@ instruction_sort(struct_processus *s_eta
 				return;
 			}
 
-			if (((*(*(*s_etat_processus).s_liste_variables_partagees)
-					.table[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet).type != LST) &&
-					((*(*(*s_etat_processus).s_liste_variables_partagees)
-					.table[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet).type != TBL))
+			if (((*(*(*s_etat_processus).pointeur_variable_partagee_courante)
+					.objet).type != LST) && ((*(*(*s_etat_processus)
+					.pointeur_variable_partagee_courante).objet).type != TBL))
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -208,15 +191,14 @@ instruction_sort(struct_processus *s_eta
 
 			liberation(s_etat_processus, s_objet_liste);
 
-			s_objet_liste = (*(*s_etat_processus).s_liste_variables_partagees)
-					.table[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet;
+			s_objet_liste = (*(*s_etat_processus)
+					.pointeur_variable_partagee_courante).objet;
 
 			if ((s_objet_copie = copie_objet(s_etat_processus, s_objet_liste,
 					'N')) == NULL)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -594,7 +576,7 @@ instruction_sort(struct_processus *s_eta
 	else
 	{
 		if (pthread_mutex_unlock(&((*(*s_etat_processus)
-				.s_liste_variables_partagees).mutex)) != 0)
+				.pointeur_variable_partagee_courante).mutex)) != 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
@@ -619,12 +601,11 @@ instruction_sort(struct_processus *s_eta
 	{
 		if (variable_partagee == d_vrai)
 		{
-			(*(*s_etat_processus).s_liste_variables_partagees)
-					.table[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet = s_objet_liste;
+			(*(*s_etat_processus).pointeur_variable_partagee_courante).objet =
+					s_objet_liste;
 
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -760,6 +741,18 @@ instruction_save(struct_processus *s_eta
 		 * Aucune variable n'est accessible (ni locale, ni globale).
 		 */
 
+		if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+				((*((struct_nom *) (*s_objet_1).objet)).symbole == d_faux))
+		{
+			liberation(s_etat_processus, s_objet_1);
+			liberation(s_etat_processus, s_objet_2);
+
+			(*s_etat_processus).erreur_systeme = d_es;
+			(*s_etat_processus).erreur_execution =
+					d_ex_creation_variable_globale;
+			return;
+		}
+
 		if ((s_variable.nom = malloc((strlen((*((struct_nom *)
 				(*s_objet_1).objet)).nom) + 1) * sizeof(unsigned char)))
 				== NULL)
@@ -809,7 +802,7 @@ instruction_save(struct_processus *s_eta
 void
 instruction_suspend(struct_processus *s_etat_processus)
 {
-	sigset_t			masque;
+	struct timespec				attente;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -819,12 +812,12 @@ instruction_suspend(struct_processus *s_
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("(attend un signal SIGCONT)\n\n");
+			printf("(attend un signal RPL/SIGCONT)\n\n");
 			printf("  Aucun argument\n");
 		}
 		else
 		{
-			printf("(wait for SIGCONT signal)\n\n");
+			printf("(wait for RPL/SIGCONT signal)\n\n");
 			printf("  No argument\n");
 		}
 
@@ -844,42 +837,6 @@ instruction_suspend(struct_processus *s_
 		}
 	}
 
-	if (sigfillset(&masque) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-	if (sigdelset(&masque, SIGCONT) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-	if (sigdelset(&masque, SIGFSTOP) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-	if (sigdelset(&masque, SIGFABORT) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-	if (sigdelset(&masque, SIGURG) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-	if (sigdelset(&masque, SIGALRM) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
 	if ((*s_etat_processus).profilage == d_vrai)
 	{
 		profilage(s_etat_processus, "Suspend");
@@ -891,25 +848,32 @@ instruction_suspend(struct_processus *s_
 	}
 
 #	ifndef SEMAPHORES_NOMMES
-	if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
+		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #	else
-	if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#	endif
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
-#	endif
 
-	sigsuspend(&masque);
+	for((*s_etat_processus).redemarrage_processus = d_faux;;)
+	{
+		scrutation_interruptions(s_etat_processus);
+
+		if ((*s_etat_processus).redemarrage_processus == d_vrai)
+		{
+			break;
+		}
+
+		nanosleep(&attente, NULL);
+		INCR_GRANULARITE(attente.tv_nsec);
+	}
 
 #	ifndef SEMAPHORES_NOMMES
-	while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+		while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #	else
-	while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+		while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #	endif
 	{
 		if (errno != EINTR)
@@ -1276,27 +1240,23 @@ instruction_swi(struct_processus *s_etat
 			attente.tv_nsec = GRANULARITE_us * 1000;
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
 
 			while((longueur_ecriture = write_atomic(s_etat_processus,
 					(*s_etat_processus).pipe_nombre_objets_attente,
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -1329,9 +1289,9 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -1339,10 +1299,12 @@ instruction_swi(struct_processus *s_etat
 				}
 			}
 
+			scrutation_interruptions(s_etat_processus);
+
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1354,33 +1316,29 @@ instruction_swi(struct_processus *s_etat
 		}
 		else
 		{
-			tid = -1;
+			tid = (pthread_t) -1;
 
 			attente.tv_sec = 0;
 			attente.tv_nsec = GRANULARITE_us * 1000;
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
 
 			while((longueur_ecriture = write_atomic(s_etat_processus,
 					(*s_etat_processus).pipe_nombre_objets_attente,
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -1413,24 +1371,22 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				endif
 			}
 
+			scrutation_interruptions(s_etat_processus);
+
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1447,18 +1403,14 @@ instruction_swi(struct_processus *s_etat
 		attente.tv_nsec = GRANULARITE_us * 1000;
 
 #		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#		endif
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
-#		endif
 
 		while((longueur_ecriture = write_atomic(s_etat_processus,
 				(*s_etat_processus).pipe_interruptions,
@@ -1466,9 +1418,9 @@ instruction_swi(struct_processus *s_etat
 				!= sizeof(interruption_reduite))
 		{
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1501,24 +1453,22 @@ instruction_swi(struct_processus *s_etat
 			INCR_GRANULARITE(attente.tv_nsec);
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
+
+			scrutation_interruptions(s_etat_processus);
 		}
 
 #		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+			while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			if (errno != EINTR)
@@ -1536,31 +1486,30 @@ instruction_swi(struct_processus *s_etat
 			attente.tv_nsec = GRANULARITE_us * 1000;
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
 
 			while((longueur_ecriture = write_atomic(s_etat_processus,
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
+					if (errno != EINTR)
+					{
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+						return;
+					}
 				}
 
 				if (longueur_ecriture == -1)
@@ -1586,18 +1535,16 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				endif
+
+				scrutation_interruptions(s_etat_processus);
 			}
 
 			pid = getpid();
@@ -1610,9 +1557,9 @@ instruction_swi(struct_processus *s_etat
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -1645,24 +1592,20 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				endif
 			}
 
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1674,30 +1617,26 @@ instruction_swi(struct_processus *s_etat
 		}
 		else
 		{
-			tid = -3;
+			tid = (pthread_t) -3;
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
-#			endif
 
 			while((longueur_ecriture = write_atomic(s_etat_processus,
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -1730,18 +1669,16 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				endif
+
+				scrutation_interruptions(s_etat_processus);
 			}
 
 			tid = pthread_self();
@@ -1754,9 +1691,9 @@ instruction_swi(struct_processus *s_etat
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
 #				ifndef SEMAPHORES_NOMMES
-				while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -1790,24 +1727,22 @@ instruction_swi(struct_processus *s_etat
 				INCR_GRANULARITE(attente.tv_nsec);
 
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+					if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#				endif
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
 				}
-#				endif
+
+				scrutation_interruptions(s_etat_processus);
 			}
 
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1822,27 +1757,23 @@ instruction_swi(struct_processus *s_etat
 		attente.tv_nsec = GRANULARITE_us * 1000;
 
 #		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+#		endif
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
-#		endif
 
 		while(read_atomic(s_etat_processus,
 				(*s_etat_processus).pipe_acquittement,
 				&tampon, sizeof(unsigned char)) != sizeof(unsigned char))
 		{
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -1856,20 +1787,22 @@ instruction_swi(struct_processus *s_etat
 			INCR_GRANULARITE(attente.tv_nsec);
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
 			}
+
+			scrutation_interruptions(s_etat_processus);
 		}
 
 #		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+			while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			if (errno != EINTR)