--- rpl/src/operations_atomiques.c	2010/05/24 10:58:36	1.9
+++ rpl/src/operations_atomiques.c	2011/09/26 15:57:17	1.31
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.4
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -35,7 +35,7 @@
 ================================================================================
 */
 
-extern inline ssize_t
+ssize_t
 read_atomic(struct_processus *s_etat_processus,
 		int descripteur, void *tampon, size_t longueur_tampon)
 {
@@ -75,6 +75,7 @@ read_atomic(struct_processus *s_etat_pro
 
 				if ((longueur_lue == -1) && (errno == EINTR))
 				{
+					scrutation_interruptions(s_etat_processus);
 					nanosleep(&attente, NULL);
 					drapeau = d_vrai;
 				}
@@ -117,7 +118,7 @@ read_atomic(struct_processus *s_etat_pro
 ================================================================================
 */
 
-extern inline ssize_t
+ssize_t
 write_atomic(struct_processus *s_etat_processus,
 		int descripteur, void *tampon, size_t longueur_tampon)
 {
@@ -153,6 +154,7 @@ write_atomic(struct_processus *s_etat_pr
 				{
 					if (errno == EINTR)
 					{
+						scrutation_interruptions(s_etat_processus);
 						nanosleep(&attente, NULL);
 						drapeau = d_vrai;
 					}
@@ -169,6 +171,7 @@ write_atomic(struct_processus *s_etat_pr
 
 			if (longueur_ecrite == 0)
 			{
+				scrutation_interruptions(s_etat_processus);
 				nanosleep(&attente, NULL);
 			}
 		}