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");