Branch: Tag:

2002-10-30

2002-10-30 14:45:50 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added some NT/IA64 debug.

Rev: src/dynamic_load.c:1.67

2:   || 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
24:   # 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 */   
440:    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;
462:    { 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)