diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-07-06 02:59:02 -0400 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-07-07 14:29:26 +1000 |
| commit | e45636ee08758dcc84897b46fb23cb42e606e5a8 (patch) | |
| tree | 4bfd5b1f2f70ad8c2ab7e9d5e29c638c7d5164aa /dist/threads | |
| parent | edd0583e505bf8be15700db63562c98bdf8be40c (diff) | |
| download | perl-e45636ee08758dcc84897b46fb23cb42e606e5a8.tar.gz | |
static misc things in /dist/threads/threads.xs
there is no reason for these functions to be exported on a linux build,
since they aren't exported on Win32, also consting ithread_vtbl allows
more memory to be shared between perl procs
Diffstat (limited to 'dist/threads')
| -rw-r--r-- | dist/threads/lib/threads.pm | 2 | ||||
| -rw-r--r-- | dist/threads/threads.xs | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index c395d7ba51..ff41a205f1 100644 --- a/dist/threads/lib/threads.pm +++ b/dist/threads/lib/threads.pm @@ -5,7 +5,7 @@ use 5.008; use strict; use warnings; -our $VERSION = '1.94'; +our $VERSION = '1.95'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs index 6175ba7bab..5b44a38ef0 100644 --- a/dist/threads/threads.xs +++ b/dist/threads/threads.xs @@ -346,7 +346,7 @@ S_exit_warning(pTHX) /* Called from perl_destruct() in each thread. If it's the main thread, * stop it from freeing everything if there are other threads still running. */ -int +STATIC int Perl_ithread_hook(pTHX) { dMY_POOL; @@ -356,7 +356,7 @@ Perl_ithread_hook(pTHX) /* MAGIC (in mg.h sense) hooks */ -int +STATIC int ithread_mg_get(pTHX_ SV *sv, MAGIC *mg) { ithread *thread = (ithread *)mg->mg_ptr; @@ -365,7 +365,7 @@ ithread_mg_get(pTHX_ SV *sv, MAGIC *mg) return (0); } -int +STATIC int ithread_mg_free(pTHX_ SV *sv, MAGIC *mg) { ithread *thread = (ithread *)mg->mg_ptr; @@ -375,7 +375,7 @@ ithread_mg_free(pTHX_ SV *sv, MAGIC *mg) return (0); } -int +STATIC int ithread_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param) { PERL_UNUSED_ARG(param); @@ -383,7 +383,7 @@ ithread_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param) return (0); } -MGVTBL ithread_vtbl = { +STATIC const MGVTBL ithread_vtbl = { ithread_mg_get, /* get */ 0, /* set */ 0, /* len */ |