--- rpl/src/rplexternals.h	2017/07/12 15:42:43	1.84
+++ rpl/src/rplexternals.h	2017/08/03 17:17:50	1.88
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
+  RPL/2 (R) version 4.1.28
   Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -105,7 +105,8 @@
 #define initializeObject(a, b)	do { \
 			(*a).descripteur_bibliotheque = (*b).descripteur_bibliotheque; \
 			(*a).extension_type = (*b).extension_type; } while(0)
-#define objectContainer(a) ((*a).objet)
+#define objectContainer(type, a) ((type *) ((*a).objet))
+#define objectOf(a) ((*a).objet)
 #define ifIsExternal(a, b) if (((*a).type == EXT) && ((*a).extension_type == b))
 #define elseIfIsExternal(a, b) } else if (((*a).type == EXT) && \
 			((*a).extension_type == b))
@@ -149,6 +150,10 @@
 	({ __CATCH_SYSTEM_ERROR__; typeof(daisyChain) __daisyChain = daisyChain; \
 	if (__daisyChain == NULL) executionError("End of daisy chain"); \
 	(__daisyChain == NULL) ? NULL : (*__daisyChain).suivant; })
+
+#define next		suivant
+#define data		donnee
+#define daisyChain	struct_liste_chainee
 	
 #define null NULL
 #define nullify(ptr) __CATCH_SYSTEM_ERROR__; do { ptr = NULL; } while(0)
@@ -223,6 +228,8 @@
 	unsigned char	__taille_bloc; \
 	unsigned char	__type; \
 	t_8_bits		__masque; \
+	void *s_etat_processus = (*rpl_arguments).s_etat_processus; \
+	DISABLE_SET_BUT_NOT_USED_WARNING(s_etat_processus); \
 	{ \
 		(*rpl_arguments).instruction_valide = 'Y'; \
 		(*rpl_arguments).erreur = 0; \