--- rpl/src/rplexternals.h 2015/09/18 13:41:21 1.66 +++ rpl/src/rplexternals.h 2015/12/13 22:55:01 1.69 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.23 + RPL/2 (R) version 4.1.24 Copyright (C) 1989-2015 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; \