--- rpl/src/rplexternals.h 2015/06/11 21:20:41 1.65 +++ rpl/src/rplexternals.h 2017/01/18 15:44:24 1.72 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.22 - Copyright (C) 1989-2015 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.26 + Copyright (C) 1989-2017 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1203,6 +1203,12 @@ if ((ptr = malloc(a)) == NULL) \ systemError("Memory allocation error"); ptr; }) +#define reallocate(a, s) ({ void *ptr; \ + struct_processus *s_etat_processus; \ + s_etat_processus = (*rpl_arguments).s_etat_processus; \ + if ((ptr = realloc(a, s)) == NULL) \ + systemError("Memory allocation error"); ptr; }) + #define deallocate(a) do { \ struct_processus *s_etat_processus; \ s_etat_processus = (*rpl_arguments).s_etat_processus; \