Branch: Tag:

1998-02-27

1998-02-27 08:41:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

lots of changes

Rev: src/acconfig.h:1.16
Rev: src/array.c:1.30
Rev: src/array.h:1.11
Rev: src/builtin_functions.c:1.74
Rev: src/compilation.h:1.7
Rev: src/configure.in:1.160
Rev: src/dynamic_load.c:1.24
Rev: src/interpret.c:1.69
Rev: src/interpret.h:1.19
Rev: src/language.yacc:1.61
Rev: src/las.c:1.53
Rev: src/main.c:1.42
Rev: src/modules/Makefile.in:1.15
Rev: src/modules/dynamic_module_makefile.in:1.31
Rev: src/modules/spider/dumudp.c:1.34
Rev: src/modules/static_module_makefile.in:1.25
Rev: src/modules/system/system.c:1.42
Rev: src/program.c:1.64
Rev: src/program.h:1.33

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.68 1998/02/03 23:12:26 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.69 1998/02/27 08:39:17 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
365:   #define print_return_value()   #endif    -  - void pop_n_elems(INT32 x) - { -  if(!x) return; - #ifdef DEBUG -  if(sp - evaluator_stack < x) -  fatal("Popping out of stack.\n"); -  -  if(x < 0) fatal("Popping negative number of args....\n"); - #endif -  sp-=x; -  free_svalues(sp,x,BIT_MIXED); - } -  -  +    struct callback_list evaluator_callbacks;      #ifdef DEBUG
513: Inside #if defined(DEBUG)
  #ifdef DEBUG    if(d_flag)    { - #ifdef _REENTRANT + #if defined(_REENTRANT) && !defined(__NT__)    if(!mt_trylock(& interpreter_lock))    fatal("Interpreter running unlocked!\n");   #endif