pike.git / src / dynamic_load.c

version» Context lines:

pike.git/src/dynamic_load.c:1:   #ifndef TESTING   # include "global.h"   # include "interpret.h"   # include "constants.h"   # include "error.h"   # include "module.h"   # include "stralloc.h"   # 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 */      #ifdef HAVE_ERRNO_H   #include <errno.h>   #endif /* HAVE_ERRNO_H */   #ifdef HAVE_STRING_H   #include <string.h>   #endif /* HAVE_STRING_H */   
pike.git/src/dynamic_load.c:272: Inside #if undefined(TESTING) and #if defined(HAVE_DLOPEN) || defined(USE_DLD) || defined(USE_HPUX_DL)
   }    }       new_module=ALLOC_STRUCT(module_list);    new_module->next=dynamic_module_list;    dynamic_module_list=new_module;    new_module->module=module;    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());   }      #endif /* HAVE_DLOPEN || USE_DLD || USE_HPUX_DL */         void init_dynamic_load(void)   {   #if defined(HAVE_DLOPEN) || defined(USE_DLD) || defined(USE_HPUX_DL)    dlinit();