diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-25 05:18:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-25 05:18:06 +0000 |
| commit | ecdc15d98d79648f2ffa6dbe1e51fe6186b688fe (patch) | |
| tree | 50bf32b053096e5f876076f7a2200b378ab9cbc0 /ext | |
| parent | ec2c99ef44702c6855b1e18d57dfd356f1d5932d (diff) | |
| download | perl-ecdc15d98d79648f2ffa6dbe1e51fe6186b688fe.tar.gz | |
Integrate change #12636 from maintperl; more dl fixups.
p4raw-link: @12636 on //depot/maint-5.6/perl: a9c18911d1898cd817acac82893d0885251fc35e
p4raw-id: //depot/perl@12638
p4raw-integrated: from //depot/maint-5.6/perl@12637 'copy in'
ext/DynaLoader/dl_next.xs ext/DynaLoader/dl_vms.xs (@12626..)
'merge in' ext/DynaLoader/dl_mac.xs (@12626..)
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_mac.xs | 1 | ||||
| -rw-r--r-- | ext/DynaLoader/dl_next.xs | 2 | ||||
| -rw-r--r-- | ext/DynaLoader/dl_vms.xs | 3 |
3 files changed, 5 insertions, 1 deletions
diff --git a/ext/DynaLoader/dl_mac.xs b/ext/DynaLoader/dl_mac.xs index 37422877aa..dd1ddfa997 100644 --- a/ext/DynaLoader/dl_mac.xs +++ b/ext/DynaLoader/dl_mac.xs @@ -36,6 +36,7 @@ typedef struct { static void terminate(void) { + dTHX; dMY_CXT; int size = GetHandleSize((Handle) dl_connections) / sizeof(ConnectionID); HLock((Handle) dl_connections); diff --git a/ext/DynaLoader/dl_next.xs b/ext/DynaLoader/dl_next.xs index 405082664d..8fa84404ea 100644 --- a/ext/DynaLoader/dl_next.xs +++ b/ext/DynaLoader/dl_next.xs @@ -156,6 +156,7 @@ static void TransferError(NXStream *s) { char *buffer; int len, maxlen; + dTHX; dMY_CXT; if ( dl_last_error ) { @@ -181,6 +182,7 @@ static char *dlopen(char *path, int mode /* mode is ignored */) char *result; char **p; STRLEN n_a; + dTHX; dMY_CXT; /* Do not load what is already loaded into this process */ diff --git a/ext/DynaLoader/dl_vms.xs b/ext/DynaLoader/dl_vms.xs index 2089826bc1..03ddcb2441 100644 --- a/ext/DynaLoader/dl_vms.xs +++ b/ext/DynaLoader/dl_vms.xs @@ -101,6 +101,7 @@ copy_errmsg(msg,unused) struct dsc$descriptor_s * msg; vmssts unused; { + dTHX; dMY_CXT; if (*(msg->dsc$a_pointer) == '%') { /* first line */ if (dl_last_error) @@ -251,6 +252,7 @@ dl_load_file(filespec, flags) int flags PREINIT: dTHX; + dMY_CXT; char vmsspec[NAM$C_MAXRSS]; SV *reqSV, **reqSVhndl; STRLEN deflen; @@ -265,7 +267,6 @@ dl_load_file(filespec, flags) struct libref *dlptr; vmssts sts, failed = 0; void (*entry)(); - dMY_CXT; CODE: DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filespec,flags)); |