stas 2004/04/29 15:06:55
Modified: src/modules/perl modperl_interp.c
Log:
add the tracing of the interpreter addresses (and the parent where
applicable)
Revision Changes Path
1.62 +5 -3 modperl-2.0/src/modules/perl/modperl_interp.c
Index: modperl_interp.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -u -r1.61 -r1.62
--- modperl_interp.c 4 Mar 2004 06:01:07 -0000 1.61
+++ modperl_interp.c 29 Apr 2004 22:06:55 -0000 1.62
@@ -119,7 +119,9 @@
#endif
}
- MP_TRACE_i(MP_FUNC, "0x%lx\n", (unsigned long)interp);
+ MP_TRACE_i(MP_FUNC, "0x%lx / perl: 0x%lx / parent perl: 0x%lx\n",
+ (unsigned long)interp, (unsigned long)interp->perl,
+ (unsigned long)perl);
return interp;
}
@@ -131,8 +133,8 @@
PERL_SET_CONTEXT(interp->perl);
- MP_TRACE_i(MP_FUNC, "interp == 0x%lx\n",
- (unsigned long)interp);
+ MP_TRACE_i(MP_FUNC, "interp == 0x%lx / perl: 0x%lx\n",
+ (unsigned long)interp, (unsigned long)interp->perl);
if (MpInterpIN_USE(interp)) {
MP_TRACE_i(MP_FUNC, "*error - still in use!*\n");
