--- rpl/src/rplexternals.h	2017/07/06 10:18:04	1.81
+++ rpl/src/rplexternals.h	2017/07/10 07:26:12	1.82
@@ -111,6 +111,7 @@
 			((*a).extension_type == b))
 #define	subType(a) ((*a).extension_type)
 #define integerFormat(a) formateur_nombre(s_etat_processus, a, 'I')
+#define procStatus(a) (*a).s_etat_processus
 
 /*
 --------------------------------------------------------------------------------
@@ -1246,6 +1247,15 @@
 		} \
 	} } while(0)
 
+// NON
+#define createObject(rpl_object) do { \
+	if (rpl_object != NULL) \
+		systemError("Reallocated object"); \
+	if ((rpl_object = _allocation(NON)) == NULL) \
+		systemError("Memory allocation error"); \
+	(*rpl_object).objet = NULL; \
+	} while(0)
+
 // EXT
 #define createExternalObject(rpl_object, subtype) do { \
 	if (rpl_object != NULL) \