diff options
author | Father Chrysostomos <sprout@cpan.org> | 2015-01-05 21:32:03 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2015-01-06 06:39:32 -0800 |
commit | a8c717cfeba2a8e3b9ad4886fdb19601d89d846c (patch) | |
tree | 7b124b658d3b75b99ce91c8a472cd7889ca49e17 /dist/threads-shared | |
parent | f7219c0a9696421192a4830631fa6e3fd28adf39 (diff) | |
download | perl-a8c717cfeba2a8e3b9ad4886fdb19601d89d846c.tar.gz |
Revert "const + static vtables in threads::shared"
This reverts commit 7105b7e7a5e49caa06b8d7ef71008838ec902227.
Diffstat (limited to 'dist/threads-shared')
-rw-r--r-- | dist/threads-shared/lib/threads/shared.pm | 4 | ||||
-rw-r--r-- | dist/threads-shared/shared.xs | 18 |
2 files changed, 11 insertions, 11 deletions
diff --git a/dist/threads-shared/lib/threads/shared.pm b/dist/threads-shared/lib/threads/shared.pm index cdb1990268..304891cf31 100644 --- a/dist/threads-shared/lib/threads/shared.pm +++ b/dist/threads-shared/lib/threads/shared.pm @@ -7,7 +7,7 @@ use warnings; use Scalar::Util qw(reftype refaddr blessed); -our $VERSION = '1.48'; # Please update the pod, too. +our $VERSION = '1.47'; # Please update the pod, too. my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -195,7 +195,7 @@ threads::shared - Perl extension for sharing data structures between threads =head1 VERSION -This document describes threads::shared version 1.48 +This document describes threads::shared version 1.47 =head1 SYNOPSIS diff --git a/dist/threads-shared/shared.xs b/dist/threads-shared/shared.xs index 11b1c8aca3..162a3d7028 100644 --- a/dist/threads-shared/shared.xs +++ b/dist/threads-shared/shared.xs @@ -136,7 +136,7 @@ /* * The shared things need an interpreter to live in ... */ -static PerlInterpreter *PL_sharedsv_space; /* The shared sv space */ +PerlInterpreter *PL_sharedsv_space; /* The shared sv space */ /* To access shared space we fake aTHX in this scope and thread's context */ /* Bug #24255: We include ENTER+SAVETMPS/FREETMPS+LEAVE with @@ -177,7 +177,7 @@ typedef struct { #endif } recursive_lock_t; -static recursive_lock_t PL_sharedsv_lock; /* Mutex protecting the shared sv space */ +recursive_lock_t PL_sharedsv_lock; /* Mutex protecting the shared sv space */ void recursive_lock_init(pTHX_ recursive_lock_t *lock) @@ -291,7 +291,7 @@ sharedsv_userlock_free(pTHX_ SV *sv, MAGIC *mg) return (0); } -const static MGVTBL sharedsv_userlock_vtbl = { +MGVTBL sharedsv_userlock_vtbl = { 0, /* get */ 0, /* set */ 0, /* len */ @@ -332,10 +332,10 @@ const static MGVTBL sharedsv_userlock_vtbl = { the shared thing. */ -const static MGVTBL sharedsv_scalar_vtbl; /* Scalars have this vtable */ -const static MGVTBL sharedsv_array_vtbl; /* Hashes and arrays have this +extern MGVTBL sharedsv_scalar_vtbl; /* Scalars have this vtable */ +extern MGVTBL sharedsv_array_vtbl; /* Hashes and arrays have this - like 'tie' */ -const static MGVTBL sharedsv_elem_vtbl; /* Elements of hashes and arrays have +extern MGVTBL sharedsv_elem_vtbl; /* Elements of hashes and arrays have this _AS WELL AS_ the scalar magic: The sharedsv_elem_vtbl associates the element with the array/hash and the sharedsv_scalar_vtbl associates it with the value @@ -878,7 +878,7 @@ sharedsv_scalar_mg_local(pTHX_ SV* nsv, MAGIC *mg) } #endif -const static MGVTBL sharedsv_scalar_vtbl = { +MGVTBL sharedsv_scalar_vtbl = { sharedsv_scalar_mg_get, /* get */ sharedsv_scalar_mg_set, /* set */ 0, /* len */ @@ -1039,7 +1039,7 @@ sharedsv_elem_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param) return (0); } -const static MGVTBL sharedsv_elem_vtbl = { +MGVTBL sharedsv_elem_vtbl = { sharedsv_elem_mg_FETCH, /* get */ sharedsv_elem_mg_STORE, /* set */ 0, /* len */ @@ -1152,7 +1152,7 @@ sharedsv_array_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param) return (0); } -const static MGVTBL sharedsv_array_vtbl = { +MGVTBL sharedsv_array_vtbl = { 0, /* get */ 0, /* set */ sharedsv_array_mg_FETCHSIZE,/* len */ |