diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-08-23 03:07:28 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-08-23 03:07:28 +0000 |
| commit | 5c84aa53566d8965295f36b803494e6ff74341bd (patch) | |
| tree | 17e9a4e57891186b16e5883124ecb0f12e76401d /ext/Devel/DProf/DProf.xs | |
| parent | 3f45a6dd55fdf1a0e32ab7a240f55674fbadb3f7 (diff) | |
| download | perl-5c84aa53566d8965295f36b803494e6ff74341bd.tar.gz | |
Update calls for new thread context handling
p4raw-id: //depot/vmsperl@4019
Diffstat (limited to 'ext/Devel/DProf/DProf.xs')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 291742123b..e5b7788d30 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -35,6 +35,7 @@ static U32 dprof_ticks; # include <starlet.h> /* prototype for sys$gettim() */ clock_t dprof_times(struct tms *bufptr) { clock_t retval; + dTHX; /* Get wall time and convert to 10 ms intervals to * produce the return value dprof expects */ # if defined(__DECC) && defined (__ALPHA) |