diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2014-12-08 01:55:47 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-08 14:14:57 -0800 |
commit | 672cbd159cb9e343b9cf12d563b72066e84342e3 (patch) | |
tree | 2afabfad0f3d567b99eedfeb8e159734e2697da9 /util.c | |
parent | 2adef77e7a89cf7f4241acf45453bdfeaaeddaf4 (diff) | |
download | perl-672cbd159cb9e343b9cf12d563b72066e84342e3.tar.gz |
make xs_version_bootcheck a static func since not used as export anymore
Since commit db6e00bd00 the function has not been used by XS modules. Now
remove it from export table since it has never been public API (the macro
is), and it saves its symbol name string name, symbol table pointer,
and allows for inlining and/or random calling convention optimization
by the CC.
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -5451,15 +5451,15 @@ Perl_xs_handshake(const U32 key, void * v_my_perl, const char * file, ...) U32 xsverlen; assert(HS_GETXSVERLEN(key) <= UCHAR_MAX && HS_GETXSVERLEN(key) <= HS_APIVERLEN_MAX); if((xsverlen = HS_GETXSVERLEN(key))) - Perl_xs_version_bootcheck(aTHX_ + S_xs_version_bootcheck(aTHX_ items, ax, va_arg(args, char*), xsverlen); } va_end(args); return ax; } -void -Perl_xs_version_bootcheck(pTHX_ U32 items, U32 ax, const char *xs_p, +STATIC void +S_xs_version_bootcheck(pTHX_ U32 items, U32 ax, const char *xs_p, STRLEN xs_len) { SV *sv; |