Branch: Tag:

1999-04-15

1999-04-15 04:08:39 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug

Rev: src/constants.c:1.17
Rev: src/constants.h:1.9
Rev: src/docode.c:1.46
Rev: src/dynamic_load.c:1.35
Rev: src/interpret.c:1.120
Rev: src/modules/Image/encodings/_xpm.c:1.5
Rev: src/modules/Image/encodings/pcx.c:1.5
Rev: src/modules/Image/encodings/tga.c:1.5
Rev: src/modules/Image/encodings/xbm.c:1.3
Rev: src/modules/Image/encodings/xcf.c:1.7
Rev: src/opcodes.c:1.37

8:   # include "pike_macros.h"   # include "main.h"    - RCSID("$Id: dynamic_load.c,v 1.34 1999/02/10 21:46:43 hubbe Exp $"); + RCSID("$Id: dynamic_load.c,v 1.35 1999/04/15 04:08:13 hubbe Exp $");      #endif /* !TESTING */   
279: Inside #if undefined(TESTING) and #if defined(HAVE_DLOPEN) || defined(USE_DLD) || defined(USE_HPUX_DL)
   new_module->init=init;    new_module->exit=exit;    -  pop_n_elems(args); +     start_new_program(); -  + #ifdef PIKE_DEBUG +  { struct svalue *save_sp=sp; + #endif    (*(modfun)init)(); -  + #ifdef PIKE_DEBUG +  if(sp != save_sp) +  fatal("load_module(%s) left %d droppings on stack!\n", +  module_name, +  sp-save_sp); +  } + #endif    -  +  pop_n_elems(args);    push_program(end_program());   }