pike.git/
src/
dynamic_load.c
Branch:
Tag:
Non-build tags
All tags
No tags
2002-10-30
2002-10-30 14:45:50 by Henrik Grubbström (Grubba) <grubba@grubba.org>
458a7182b4f1349570e8a9d8c9573ab5c4acc183 (
24
lines) (+
22
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
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)