diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 10:05:54 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 10:05:54 +0000 |
commit | be9180d313f8d12f0b694e575718afb3478cc34b (patch) | |
tree | e4fed3f8e7cec9c395ef9fa52dced3ed2c852fe9 /ext/Devel | |
parent | 6b8eaf932222db04db65aff99717b9c1dbd0a692 (diff) | |
parent | 971a9dd36d83520d7040365d2791ad56b6d39411 (diff) | |
download | perl-be9180d313f8d12f0b694e575718afb3478cc34b.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4555
Diffstat (limited to 'ext/Devel')
-rw-r--r-- | ext/Devel/DProf/DProf.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index c5c7bd1c61..e8898cb97b 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -106,7 +106,6 @@ dprof_times(struct tms *t) XS(XS_Devel__DProf_END); /* used by prof_mark() */ -static SV * Sub; /* pointer to $DB::sub */ static PerlIO *fp; /* pointer to tmon.out file */ /* Added -JH */ @@ -259,6 +258,7 @@ prof_mark( opcode ptype ) STRLEN len; SV *sv; U32 id; + SV *Sub = GvSV(DBsub); /* name of current sub */ if( SAVE_STACK ){ if( profstack_ix + 5 > profstack_max ){ @@ -564,6 +564,7 @@ XS(XS_DB_sub) dXSARGS; dORIGMARK; HV *oldstash = curstash; + SV *Sub = GvSV(DBsub); /* name of current sub */ SP -= items; @@ -617,6 +618,7 @@ XS(XS_DB_goto) dORIGMARK; HV *oldstash = curstash; + SV *Sub = GvSV(DBsub); /* name of current sub */ /* SP -= items; added by xsubpp */ DBG_SUB_NOTIFY( "XS DBsub(%s)\n", SvPV(Sub, na) ); @@ -674,7 +676,6 @@ BOOT: dowarn = warn_tmp; } - Sub = GvSV(DBsub); /* name of current sub */ sv_setiv( DBsingle, 0 ); /* disable DB single-stepping */ { |