Branch: Tag:

1997-07-19

1997-07-19 20:25:31 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

garbage collector improved

Rev: src/gc.c:1.11
Rev: src/gc.h:1.9
Rev: src/interpret.c:1.43
Rev: src/modules/files/file.c:1.49
Rev: src/modules/files/socket.c:1.13
Rev: src/modules/files/testsuite.in:1.6
Rev: src/program.h:1.17
Rev: src/svalue.c:1.13
Rev: src/svalue.h:1.9

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.42 1997/04/16 03:09:11 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.43 1997/07/19 20:25:24 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
84:      struct frame *fp; /* frame pointer */    + #ifdef DEBUG + static void gc_check_stack_callback(struct callback *foo, void *bar, void *gazonk) + { +  gc_xmark_svalues(evaluator_stack,sp-evaluator_stack-1); + } + #endif +    void init_interpreter()   {   #ifdef USE_MMAP_FOR_STACK    static int fd = -1;    -  + #ifdef DEBUG +  static struct callback *spcb; +  if(!spcb) +  { +  spcb=add_gc_callback(gc_check_stack_callback,0,0); +  } + #endif +    #ifndef MAP_VARIABLE   #define MAP_VARIABLE 0   #endif