--- rpl/src/instructions_s9.c	2011/09/20 08:56:24	1.40
+++ rpl/src/instructions_s9.c	2011/09/20 09:51:43	1.41
@@ -873,10 +873,13 @@ instruction_suspend(struct_processus *s_
 		INCR_GRANULARITE(attente.tv_nsec);
 	}
 
-	if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
+		if (errno != EINTR)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_processus;
+			return;
+		}
 	}
 
 	if ((*s_etat_processus).profilage == d_vrai)
@@ -1245,10 +1248,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_objets_attente,
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1283,10 +1289,13 @@ instruction_swi(struct_processus *s_etat
 
 			scrutation_interruptions(s_etat_processus);
 
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
 			}
 		}
 		else
@@ -1306,10 +1315,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_objets_attente,
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1343,10 +1355,13 @@ instruction_swi(struct_processus *s_etat
 
 			scrutation_interruptions(s_etat_processus);
 
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
 			}
 		}
 
@@ -1366,10 +1381,13 @@ instruction_swi(struct_processus *s_etat
 				&interruption_reduite, sizeof(interruption_reduite)))
 				!= sizeof(interruption_reduite))
 		{
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*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)
@@ -1403,10 +1421,13 @@ instruction_swi(struct_processus *s_etat
 			scrutation_interruptions(s_etat_processus);
 		}
 
-		if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+		while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
+			if (errno != EINTR)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
 		}
 
 		if ((*s_etat_processus).processus_detache == d_vrai)
@@ -1426,10 +1447,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1472,10 +1496,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&pid, sizeof(pid))) != sizeof(pid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1507,10 +1534,13 @@ instruction_swi(struct_processus *s_etat
 				}
 			}
 
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
 			}
 		}
 		else
@@ -1527,10 +1557,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1573,10 +1606,13 @@ instruction_swi(struct_processus *s_etat
 					(*s_etat_processus).pipe_nombre_interruptions_attente,
 					&tid, sizeof(tid))) != sizeof(tid))
 			{
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 				{
-					(*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)
@@ -1611,10 +1647,13 @@ instruction_swi(struct_processus *s_etat
 				scrutation_interruptions(s_etat_processus);
 			}
 
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
 			}
 		}
 
@@ -1631,10 +1670,13 @@ instruction_swi(struct_processus *s_etat
 				(*s_etat_processus).pipe_acquittement,
 				&tampon, sizeof(unsigned char)) != sizeof(unsigned char))
 		{
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
+				if (errno != EINTR)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					return;
+				}
 			}
 
 			nanosleep(&attente, NULL);
@@ -1649,10 +1691,13 @@ instruction_swi(struct_processus *s_etat
 			scrutation_interruptions(s_etat_processus);
 		}
 
-		if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
+		while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
+			if (errno != EINTR)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
 		}
 
 		if (registre == 0)