Branch: Tag:

1996-10-15

1996-10-15 04:04:07 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

check_threads_etc() callbacks recoded...

Rev: src/gc.c:1.3
Rev: src/gc.h:1.4
Rev: src/interpret.c:1.7
Rev: src/interpret.h:1.4
Rev: src/las.c:1.4
Rev: src/object.c:1.2
Rev: src/object.h:1.2
Rev: src/signal_handler.c:1.4
Rev: src/threads.c:1.8
Rev: src/threads.h:1.5

25:   #include "signal_handler.h"   #include "gc.h"   #include "threads.h" + #include "callback.h"      #include <fcntl.h>   
293:    free_svalues(sp,x,BIT_MIXED);   }    +  + struct callback *evaluator_callbacks =0; +    /* This function is called 'every now and then'. (1-10000 / sec or so)    * It should do anything that needs to be done fairly often.    */   void check_threads_etc()   { -  THREADS_ALLOW(); -  -  /* Allow other threads to run */ -  -  THREADS_DISALLOW(); -  -  check_signals(); -  if(objects_to_destruct) destruct_objects_to_destruct(); -  CHECK_FOR_GC(); +  call_callback(& evaluator_callbacks, (void *)0);   }      #ifdef DEBUG