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

[stas]

stas        2003/09/18 00:44:24

  Modified:    src/modules/perl modperl_util.c modperl_util.h
  Log:
  new helper function for tracing: modperl_pid_tid - return $pid/$tid of the
  current thread or a process
  
  Revision  Changes    Path
  1.53      +15 -0     modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -u -r1.52 -r1.53
  --- modperl_util.c    30 Aug 2003 02:33:26 -0000      1.52
  +++ modperl_util.c    18 Sep 2003 07:44:24 -0000      1.53
  @@ -289,6 +289,21 @@
       return apr_psprintf(p, "%s:%u", s->server_hostname, s->port);
   }
   
  +/* used in debug traces */
  +MP_INLINE char *modperl_pid_tid(apr_pool_t *p)
  +{
  +    return apr_psprintf(p, "%lu"
  +#if APR_HAS_THREADS
  +                 "/%lu"
  +#endif /* APR_HAS_THREADS */
  +                 , (unsigned long)getpid()
  +#if APR_HAS_THREADS
  +                 , (unsigned long)apr_os_thread_current()
  +#endif /* APR_HAS_THREADS */
  +        );
  +}
  +
  +    
   #define dl_librefs "DynaLoader::dl_librefs"
   #define dl_modules "DynaLoader::dl_modules"
   
  
  
  
  1.47      +2 -0      modperl-2.0/src/modules/perl/modperl_util.h
  
  Index: modperl_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -u -r1.46 -r1.47
  --- modperl_util.h    30 Aug 2003 02:33:26 -0000      1.46
  +++ modperl_util.h    18 Sep 2003 07:44:24 -0000      1.47
  @@ -97,6 +97,8 @@
   
   char *modperl_server_desc(server_rec *s, apr_pool_t *p);
   
  +MP_INLINE char *modperl_pid_tid(apr_pool_t *p);
  +
   void modperl_xs_dl_handles_clear(pTHX);
   
   void **modperl_xs_dl_handles_get(pTHX);