cvs commit: modperl-2.0/src/modules/perl modperl_interp.c

[stas]

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