summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorDaniel Dragan <bulk88@hotmail.com>2014-12-08 01:55:47 -0500
committerFather Chrysostomos <sprout@cpan.org>2014-12-08 14:14:57 -0800
commit672cbd159cb9e343b9cf12d563b72066e84342e3 (patch)
tree2afabfad0f3d567b99eedfeb8e159734e2697da9 /util.c
parent2adef77e7a89cf7f4241acf45453bdfeaaeddaf4 (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/util.c b/util.c
index 3555341b73..6012c0ccb4 100644
--- a/util.c
+++ b/util.c
@@ -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;