Branch: Tag:

2000-06-09

2000-06-09 22:45:08 by Martin Stjernholm <mast@lysator.liu.se>

Added a gc debug check.

Rev: src/interpret.c:1.154

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.153 2000/05/09 20:36:37 mast Exp $"); + RCSID("$Id: interpret.c,v 1.154 2000/06/09 22:45:08 mast Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1049:    int num_args;    int num_locals;    unsigned char *pc; +  + #ifdef PIKE_DEBUG +  if (Pike_in_gc > GC_PASS_PREPARE && Pike_in_gc < GC_PASS_KILL) +  fatal("Pike code called within gc.\n"); + #endif +     debug_malloc_touch(fp);    pc=new_frame->context.prog->program + function->func.offset;