Branch: Tag:

2000-04-17

2000-04-17 21:06:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more gc() paranoia

Rev: src/block_alloc.h:1.19
Rev: src/error.c:1.49
Rev: src/gc.c:1.69
Rev: src/gc.h:1.32
Rev: src/interpret.c:1.142
Rev: src/object.c:1.112
Rev: src/pike_memory.c:1.66
Rev: src/svalue.c:1.69

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.141 2000/04/17 17:52:13 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.142 2000/04/17 21:06:24 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1249:    {    if(throw_value.type == T_ARRAY)    { +  static int inside=0; +  if(!inside) +  {    ONERROR tmp; -  +  /* We silently ignore errors if we are already describing one.. */ +  inside=1;    SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");    assign_svalue_no_free(sp++, & throw_value);    APPLY_MASTER("handle_error", 1);    pop_stack();    UNSET_ONERROR(tmp); -  +  inside=0;    } -  +  }       sp->u.integer = 0;    sp->subtype=NUMBER_NUMBER;