diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-07 16:30:32 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-07 16:30:32 +0100 |
| commit | e9b067d91703bf151aa6769b5c49fb95a91f6fa5 (patch) | |
| tree | af044dc7ae0745b91d42609bb05337360bc0f757 /proto.h | |
| parent | 7b20c7cd49d506897c54f5ed022a5e5b5f8c594a (diff) | |
| download | perl-e9b067d91703bf151aa6769b5c49fb95a91f6fa5.tar.gz | |
Convert the implementation of XS_VERSION_BOOTCHECK to a function from a macro.
The macro expansion generates over 1K of object code. This is in every shared
object, and is only called once. Hence this change increases the perl binary
by about 1K (once), to save 1K for every XS module loaded.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -4687,6 +4687,11 @@ PERL_CALLCONV void Perl_write_to_stderr(pTHX_ SV* msv) #define PERL_ARGS_ASSERT_WRITE_TO_STDERR \ assert(msv) +PERL_CALLCONV void Perl_xs_version_bootcheck(pTHX_ U32 items, U32 ax, const char *xs_p, STRLEN xs_len) + __attribute__nonnull__(pTHX_3); +#define PERL_ARGS_ASSERT_XS_VERSION_BOOTCHECK \ + assert(xs_p) + PERL_CALLCONV int Perl_yyerror(pTHX_ const char *const s) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_YYERROR \ |