pike.git / src / dynamic_load.c

version» Context lines:

pike.git/src/dynamic_load.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: dynamic_load.c,v 1.66 2002/10/11 01:39:30 nilsson Exp $ + || $Id: dynamic_load.c,v 1.67 2002/10/30 14:45:50 grubba Exp $   */      #ifdef TESTING   #define NO_PIKE_INCLUDES   #define CREATE_MAIN   #define NO_PIKE_GUTS   #endif      #ifndef NO_PIKE_INCLUDES   # include "global.h"
pike.git/src/dynamic_load.c:17:   # include "constants.h"   # include "pike_error.h"   # include "module.h"   # include "stralloc.h"   # include "pike_macros.h"   # include "main.h"   # include "constants.h"   # include "language.h"   # include "lex.h"    - RCSID("$Id: dynamic_load.c,v 1.66 2002/10/11 01:39:30 nilsson Exp $"); + RCSID("$Id: dynamic_load.c,v 1.67 2002/10/30 14:45:50 grubba Exp $");      #else /* TESTING */      #include <stdio.h>      #endif /* !TESTING */      #ifdef HAVE_ERRNO_H   #include <errno.h>   #endif /* HAVE_ERRNO_H */
pike.git/src/dynamic_load.c:433:    if(!init || !exit)    {    dlclose(module);       if (strlen(module_name) < 1024) {    Pike_error("Failed to initialize dynamic module \"%s\".\n", module_name);    } else {    Pike_error("Failed to initialize dynamic module.\n");    }    } + #if defined(__NT__) && defined(_M_IA64) +  else +  { +  fprintf(stderr, "pike_module_init: 0x%p\n" +  " func: 0x%p\n" +  " gp: 0x%p\n", +  init, ((void **)init)[0], ((void **)init)[1]); +  fprintf(stderr, "pike_module_exit: 0x%p\n" +  " func: 0x%p\n" +  " gp: 0x%p\n", +  exit, ((void **)exit)[0], ((void **)exit)[1]); +  } + #endif /* __NT__ && _M_IA64 */       new_module=ALLOC_STRUCT(module_list);    new_module->next=dynamic_module_list;    dynamic_module_list=new_module;    new_module->module=module;    new_module->module_prog = NULL;    new_module->init=init;    new_module->exit=exit;       save.lex = lex;
pike.git/src/dynamic_load.c:455:    save.compilation_depth=compilation_depth;    compilation_depth=-1;    start_new_program();       global_callable_flags|=CALLABLE_DYNAMIC;      #ifdef PIKE_DEBUG    { struct svalue *save_sp=Pike_sp;   #endif    SET_ONERROR(err, cleanup_compilation, &save); + #if defined(__NT__) && defined(_M_IA64) +  fprintf(stderr, "Calling pike_module_init()...\n"); + #endif /* __NT__ && _M_IA64 */    (*(modfun)init)(); -  + #if defined(__NT__) && defined(_M_IA64) +  fprintf(stderr, "pike_module_init() done.\n"); + #endif /* __NT__ && _M_IA64 */    UNSET_ONERROR(err);   #ifdef PIKE_DEBUG    if(Pike_sp != save_sp)    Pike_fatal("load_module(%s) left %ld droppings on stack!\n",    module_name,    PTRDIFF_T_TO_LONG(Pike_sp - save_sp));    }   #endif       pop_n_elems(args);