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.94 2008/05/30 15:54:54 mast Exp $ + || $Id: dynamic_load.c,v 1.95 2008/05/30 16:00:48 mast 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:539: Inside #if defined(__NT__) && defined(_M_IA64)
  #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("pike_module_init in %S left " +  Pike_fatal("pike_module_init in %s left "    "%"PRINTPTRDIFFT"d droppings on stack.\n", -  module_name, Pike_sp - save_sp); +  module_name->str, Pike_sp - save_sp);    }   #endif       pop_n_elems(args);    {    struct program *p = end_program();    exit_compiler();    if (p) {    if (   #if 0
pike.git/src/dynamic_load.c:572:    push_undefined();    }    } else {    /* Initialization failed. */   #ifdef PIKE_DEBUG    struct svalue *save_sp=Pike_sp;   #endif    new_module->exit();   #ifdef PIKE_DEBUG    if(Pike_sp != save_sp) -  Pike_fatal("pike_module_exit in %S left " +  Pike_fatal("pike_module_exit in %s left "    "%"PRINTPTRDIFFT"d droppings on stack.\n", -  module_name, Pike_sp - save_sp); +  module_name->str, Pike_sp - save_sp);   #endif       dlclose(module);    dynamic_module_list = new_module->next;    free_string(new_module->name);    free(new_module);    Pike_error("Failed to initialize dynamic module \"%S\".\n",    module_name);    }    }
pike.git/src/dynamic_load.c:620: Inside #if defined(USE_DYNAMIC_MODULES)
   {    if(SETJMP(recovery))    call_handle_error();    else {   #ifdef PIKE_DEBUG    struct svalue *save_sp=Pike_sp;   #endif    tmp->exit();   #ifdef PIKE_DEBUG    if(Pike_sp != save_sp) -  Pike_fatal("pike_module_exit in %S left " +  Pike_fatal("pike_module_exit in %s left "    "%"PRINTPTRDIFFT"d droppings on stack.\n", -  tmp->name, Pike_sp - save_sp); +  tmp->name->str, Pike_sp - save_sp);   #endif    }    UNSETJMP(recovery);       if (tmp->module_prog) {    free_program(tmp->module_prog);    tmp->module_prog = NULL;    }    free_string(tmp->name);    tmp->name = NULL;