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-mmap | |
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-mmap')
-rw-r--r-- | ext/PerlIO-mmap/mmap.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-mmap/mmap.xs | 20 |
2 files changed, 11 insertions, 11 deletions
diff --git a/ext/PerlIO-mmap/mmap.pm b/ext/PerlIO-mmap/mmap.pm index 845f2d1de8..939b94f81d 100644 --- a/ext/PerlIO-mmap/mmap.pm +++ b/ext/PerlIO-mmap/mmap.pm @@ -1,7 +1,7 @@ package PerlIO::mmap; use strict; use warnings; -our $VERSION = '0.014'; +our $VERSION = '0.015'; use XSLoader; XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION); diff --git a/ext/PerlIO-mmap/mmap.xs b/ext/PerlIO-mmap/mmap.xs index e6d592a67d..ff554e1bed 100644 --- a/ext/PerlIO-mmap/mmap.xs +++ b/ext/PerlIO-mmap/mmap.xs @@ -23,7 +23,7 @@ typedef struct { STDCHAR *bbuf; /* malloced buffer if map fails */ } PerlIOMmap; -IV +static IV PerlIOMmap_map(pTHX_ PerlIO *f) { dVAR; @@ -88,7 +88,7 @@ PerlIOMmap_map(pTHX_ PerlIO *f) return code; } -IV +static IV PerlIOMmap_unmap(pTHX_ PerlIO *f) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -116,7 +116,7 @@ PerlIOMmap_unmap(pTHX_ PerlIO *f) return code; } -STDCHAR * +static STDCHAR * PerlIOMmap_get_base(pTHX_ PerlIO *f) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -149,7 +149,7 @@ PerlIOMmap_get_base(pTHX_ PerlIO *f) return PerlIOBuf_get_base(aTHX_ f); } -SSize_t +static SSize_t PerlIOMmap_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -180,7 +180,7 @@ PerlIOMmap_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count) return PerlIOBuf_unread(aTHX_ f, vbuf, count); } -SSize_t +static SSize_t PerlIOMmap_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -207,7 +207,7 @@ PerlIOMmap_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) return PerlIOBuf_write(aTHX_ f, vbuf, count); } -IV +static IV PerlIOMmap_flush(pTHX_ PerlIO *f) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -235,7 +235,7 @@ PerlIOMmap_flush(pTHX_ PerlIO *f) return code; } -IV +static IV PerlIOMmap_fill(pTHX_ PerlIO *f) { PerlIOBuf * const b = PerlIOSelf(f, PerlIOBuf); @@ -249,7 +249,7 @@ PerlIOMmap_fill(pTHX_ PerlIO *f) return code; } -IV +static IV PerlIOMmap_close(pTHX_ PerlIO *f) { PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); @@ -265,14 +265,14 @@ PerlIOMmap_close(pTHX_ PerlIO *f) return code; } -PerlIO * +static PerlIO * PerlIOMmap_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) { return PerlIOBase_dup(aTHX_ f, o, param, flags); } -PERLIO_FUNCS_DECL(PerlIO_mmap) = { +static PERLIO_FUNCS_DECL(PerlIO_mmap) = { sizeof(PerlIO_funcs), "mmap", sizeof(PerlIOMmap), |