Branch: Tag:

2000-04-30

2000-04-30 11:05:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed DMALLOC inconsistency for f_aggregate().

Rev: src/builtin_functions.c:1.269
Rev: src/builtin_functions.h:1.13

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.268 2000/04/28 17:14:47 noring Exp $"); + RCSID("$Id: builtin_functions.c,v 1.269 2000/04/30 11:05:08 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
70:    push_int(i);   }    - #ifdef DEBUG_MALLOC - void _f_aggregate(INT32 args) - #else - void f_aggregate(INT32 args) - #endif + void debug_f_aggregate(INT32 args)   {    struct array *a;   #ifdef PIKE_DEBUG
5794:    tFunc(tStr tOr(tVoid,tMix),tVoid),OPT_SIDE_EFFECT);      /* function(0=mixed ...:array(0)) */ - #ifdef DEBUG_MALLOC -  ADD_EFUN("aggregate",_f_aggregate, +  ADD_EFUN("aggregate",debug_f_aggregate,    tFuncV(tNone,tSetvar(0,tMix),tArr(tVar(0))),OPT_TRY_OPTIMIZE); - #else -  ADD_EFUN("aggregate",f_aggregate, -  tFuncV(tNone,tSetvar(0,tMix),tArr(tVar(0))),OPT_TRY_OPTIMIZE); - #endif +       /* function(0=mixed ...:multiset(0)) */    ADD_EFUN("aggregate_multiset",f_aggregate_multiset,