Change 12638 by jhi@alpha on 2001/10/25 05:18:06
Integrate change #12636 from maintperl; more dl fixups.
Affected files ...
... //depot/perl/ext/DynaLoader/dl_mac.xs#4 integrate
... //depot/perl/ext/DynaLoader/dl_next.xs#18 integrate
... //depot/perl/ext/DynaLoader/dl_vms.xs#19 integrate
Differences ...
==== //depot/perl/ext/DynaLoader/dl_mac.xs#4 (text) ====
Index: perl/ext/DynaLoader/dl_mac.xs
--- perl/ext/DynaLoader/dl_mac.xs.~1~ Wed Oct 24 23:30:05 2001
+++ perl/ext/DynaLoader/dl_mac.xs Wed Oct 24 23:30:05 2001
@@ -36,6 +36,7 @@
static void terminate(void)
{
+ dTHX;
dMY_CXT;
int size = GetHandleSize((Handle) dl_connections) / sizeof(ConnectionID);
HLock((Handle) dl_connections);
==== //depot/perl/ext/DynaLoader/dl_next.xs#18 (text) ====
Index: perl/ext/DynaLoader/dl_next.xs
--- perl/ext/DynaLoader/dl_next.xs.~1~ Wed Oct 24 23:30:05 2001
+++ perl/ext/DynaLoader/dl_next.xs Wed Oct 24 23:30:05 2001
@@ -156,6 +156,7 @@
{
char *buffer;
int len, maxlen;
+ dTHX;
dMY_CXT;
if ( dl_last_error ) {
@@ -181,6 +182,7 @@
char *result;
char **p;
STRLEN n_a;
+ dTHX;
dMY_CXT;
/* Do not load what is already loaded into this process */
==== //depot/perl/ext/DynaLoader/dl_vms.xs#19 (text) ====
Index: perl/ext/DynaLoader/dl_vms.xs
--- perl/ext/DynaLoader/dl_vms.xs.~1~ Wed Oct 24 23:30:05 2001
+++ perl/ext/DynaLoader/dl_vms.xs Wed Oct 24 23:30:05 2001
@@ -101,6 +101,7 @@
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 @@
int flags
PREINIT:
dTHX;
+ dMY_CXT;
char vmsspec[NAM$C_MAXRSS];
SV *reqSV, **reqSVhndl;
STRLEN deflen;
@@ -265,7 +267,6 @@
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));
End of Patch.
