--- rpl/src/rplexternals.h	2011/06/24 20:31:42	1.25
+++ rpl/src/rplexternals.h	2013/02/26 19:56:17	1.42
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.12
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -124,6 +124,8 @@
 --------------------------------------------------------------------------------
 */
 
+#define DISABLE_SET_BUT_NOT_USED_WARNING(a) if (&a != ((&a) + 1));
+
 #define HEADER \
 	int				__constante; \
 	logical1		__evaluation; \
@@ -139,7 +141,13 @@
 		(*rpl_arguments).instruction_valide = 'Y'; \
 		(*rpl_arguments).erreur = 0; \
 		__constante = 0; \
-		__evaluation = d_faux;
+		__evaluation = d_faux; \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__evaluation); \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__type); \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__indice_bit); \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__indice_bloc); \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__taille_bloc); \
+		DISABLE_SET_BUT_NOT_USED_WARNING(__masque);
 
 #define FUNCTION \
 	if (__validation_instruction == d_vrai) return; \
@@ -1037,6 +1045,15 @@
 
 /*
 --------------------------------------------------------------------------------
+  Récupération des interruptions et des signaux
+--------------------------------------------------------------------------------
+*/
+
+#define pollSignalsAndInterrupts() \
+	{ scrutation_injection((*rpl_arguments).s_etat_processus); } while(0)
+
+/*
+--------------------------------------------------------------------------------
   Exécution d'une fonction intrinsèque
 --------------------------------------------------------------------------------
 */