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/DynaLoader | |
| parent | 3f45a6dd55fdf1a0e32ab7a240f55674fbadb3f7 (diff) | |
| download | perl-5c84aa53566d8965295f36b803494e6ff74341bd.tar.gz | |
Update calls for new thread context handling
p4raw-id: //depot/vmsperl@4019
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/dl_vms.xs | 2 |
1 files changed, 2 insertions, 0 deletions
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; |