diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-03-23 09:32:58 -0600 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-03-24 06:54:23 +0000 |
| commit | 3bc251465124132e9f76ec389c7925e9ba93f19d (patch) | |
| tree | aa0dcdd6efe6a816e807eda00403452e0ed220ae /vms | |
| parent | 3e786a109b5852a8d614c8397d2b8b841e916e1d (diff) | |
| download | perl-3bc251465124132e9f76ec389c7925e9ba93f19d.tar.gz | |
vms.c thread clean-up
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E7E280A.5000304@mac.com>
p4raw-id: //depot/perl@19054
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -4618,6 +4618,12 @@ vms_image_init(int *argcp, char ***argvp) 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 @@ Perl_opendir(pTHX_ char *name) 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 @@ closedir(DIR *dd) { (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 |