diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2015-10-25 19:57:11 -0400 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-10-26 14:03:08 +1100 |
| commit | 0b057af72368f97c1b6f0b4c58943ced6d6c98d2 (patch) | |
| tree | 0f72c26500f2a06a7c51ad7490a01bef4391ebfe /ext/PerlIO-encoding | |
| parent | 1d532a9b3f7c7516fc5a74a94731d12ed7d0928b (diff) | |
| download | perl-0b057af72368f97c1b6f0b4c58943ced6d6c98d2.tar.gz | |
XS staticing in ext and dist
None of these symbols are exported on Win32 (listed in Makefile.PL with
EUMM's FUNCLIST), so they shouldn't be exported on Linux. Making them
static saves space in the SOs by removing symbol name strings, and removing
runtime plt/got indirection.
Diffstat (limited to 'ext/PerlIO-encoding')
| -rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 | ||||
| -rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 22 |
2 files changed, 12 insertions, 12 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 97f05ec589..7bae036f52 100644 --- a/ext/PerlIO-encoding/encoding.pm +++ b/ext/PerlIO-encoding/encoding.pm @@ -1,7 +1,7 @@ package PerlIO::encoding; use strict; -our $VERSION = '0.22'; +our $VERSION = '0.23'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index 3575d728ac..3e4645c0c8 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -51,7 +51,7 @@ typedef struct { static const MGVTBL PerlIOEncode_tag = { 0, 0, 0, 0, 0, 0, 0, 0 }; -SV * +static SV * PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -87,7 +87,7 @@ PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags) return sv; } -IV +static IV PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs *tab) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -172,7 +172,7 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs * return code; } -IV +static IV PerlIOEncode_popped(pTHX_ PerlIO * f) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -195,7 +195,7 @@ PerlIOEncode_popped(pTHX_ PerlIO * f) return 0; } -STDCHAR * +static STDCHAR * PerlIOEncode_get_base(pTHX_ PerlIO * f) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -232,7 +232,7 @@ PerlIOEncode_get_base(pTHX_ PerlIO * f) return e->base.buf; } -IV +static IV PerlIOEncode_fill(pTHX_ PerlIO * f) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -414,7 +414,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f) return code; } -IV +static IV PerlIOEncode_flush(pTHX_ PerlIO * f) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -531,7 +531,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f) return code; } -IV +static IV PerlIOEncode_close(pTHX_ PerlIO * f) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -560,7 +560,7 @@ PerlIOEncode_close(pTHX_ PerlIO * f) return code; } -Off_t +static Off_t PerlIOEncode_tell(pTHX_ PerlIO * f) { PerlIOBuf *b = PerlIOSelf(f, PerlIOBuf); @@ -574,7 +574,7 @@ PerlIOEncode_tell(pTHX_ PerlIO * f) return PerlIO_tell(PerlIONext(f)); } -PerlIO * +static PerlIO * PerlIOEncode_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * params, int flags) { @@ -591,7 +591,7 @@ PerlIOEncode_dup(pTHX_ PerlIO * f, PerlIO * o, return f; } -SSize_t +static SSize_t PerlIOEncode_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) { PerlIOEncode *e = PerlIOSelf(f, PerlIOEncode); @@ -623,7 +623,7 @@ PerlIOEncode_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) } } -PERLIO_FUNCS_DECL(PerlIO_encode) = { +static PERLIO_FUNCS_DECL(PerlIO_encode) = { sizeof(PerlIO_funcs), "encoding", sizeof(PerlIOEncode), |