pike.git/ src/ builtin_functions.c

2000-10-04

2000-10-04 22:59:11 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 4639402912e79196aec1752ea854c7bd48e3acdc (21 lines) (+14/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

fixed a core dumping bug

Rev: src/builtin_functions.c:1.314

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.313 2000/09/30 13:42:41 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.314 2000/10/04 22:59:11 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
701:    if(f->current_object && f->context.prog)    {    INT32 args; +  if(!f->locals) +  { +  args=0; +  }else{    args=f->num_args;    args = DO_NOT_WARN((INT32) MINIMUM(f->num_args, Pike_sp - f->locals));    if(of)    args = DO_NOT_WARN((INT32)MINIMUM(f->num_args,of->locals - f->locals));    args=MAXIMUM(args,0); -  +  }       ITEM(a)[frames].u.array=i=allocate_array_no_init(3+args,0);    ITEM(a)[frames].type=T_ARRAY; -  +  if(f->locals)    assign_svalues_no_free(ITEM(i)+3, f->locals, args, BIT_MIXED);    if(f->current_object->prog)    {