Change 19054 by [EMAIL PROTECTED] on 2003/03/24 06:54:23
Subject: [PATCH bleadperl] vms.c thread clean-up
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sun, 23 Mar 2003 15:32:58 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/vms/vms.c#122 edit
Differences ...
==== //depot/perl/vms/vms.c#122 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#121~19042~ Thu Mar 20 23:45:54 2003
+++ perl/vms/vms.c Sun Mar 23 22:54:23 2003
@@ -4618,6 +4618,12 @@
if (tabidx) { tabvec[tabidx] = NULL; env_tables = tabvec; }
getredirection(argcp,argvp);
+#if defined(USE_ITHREADS) && ( defined(__DECC) || defined(__DECCXX) )
+ {
+# include <reentrancy.h>
+ (void) decc$set_reentrancy(C$C_MULTITHREAD);
+ }
+#endif
return;
}
/*}}}*/
@@ -4845,7 +4851,7 @@
dd->pat.dsc$w_length = strlen(dd->pattern);
dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
dd->pat.dsc$b_class = DSC$K_CLASS_S;
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
New(1308,dd->mutex,1,perl_mutex);
MUTEX_INIT( (perl_mutex *) dd->mutex );
#else
@@ -4876,7 +4882,7 @@
{
(void)lib$find_file_end(&dd->context);
Safefree(dd->pattern);
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
MUTEX_DESTROY( (perl_mutex *) dd->mutex );
Safefree(dd->mutex);
#endif
End of Patch.
