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 | |
| parent | 3f45a6dd55fdf1a0e32ab7a240f55674fbadb3f7 (diff) | |
| download | perl-5c84aa53566d8965295f36b803494e6ff74341bd.tar.gz | |
Update calls for new thread context handling
p4raw-id: //depot/vmsperl@4019
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 1 | ||||
| -rw-r--r-- | ext/DynaLoader/dl_vms.xs | 2 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.xs | 1 |
3 files changed, 4 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) diff --git a/ext/DynaLoader/dl_vms.xs b/ext/DynaLoader/dl_vms.xs index d83d532c50..1024c41f96 100644 --- a/ext/DynaLoader/dl_vms.xs +++ b/ext/DynaLoader/dl_vms.xs @@ -112,6 +112,7 @@ dl_set_error(sts,stv) vmssts stv; { vmssts vec[3]; + dTHX; vec[0] = stv ? 2 : 1; vec[1] = sts; vec[2] = stv; @@ -121,6 +122,7 @@ dl_set_error(sts,stv) static unsigned int findsym_handler(void *sig, void *mech) { + dTHX; unsigned long int myvec[8],args, *usig = (unsigned long int *) sig; /* Be paranoid and assume signal vector passed in might be readonly */ myvec[0] = args = usig[0] > 10 ? 9 : usig[0] - 1; diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 9cca0e3e1d..cc3f0c10d6 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -81,6 +81,7 @@ /* The non-POSIX CRTL times() has void return type, so we just get the current time directly */ clock_t vms_times(struct tms *PL_bufptr) { + dTHX; clock_t retval; /* Get wall time and convert to 10 ms intervals to * produce the return value that the POSIX standard expects */ |