diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-11-06 23:57:14 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-06 21:50:43 -0800 |
| commit | 0e42d607f5f6c7f9dcca70d0d07f7d7f5dca5774 (patch) | |
| tree | 63ee1b5a04098da8325e49bf2782c6bc373a9f9b /XSUB.h | |
| parent | 9d22ccf6b40a09ba97011e2b50fde44e4eb71aa6 (diff) | |
| download | perl-0e42d607f5f6c7f9dcca70d0d07f7d7f5dca5774.tar.gz | |
simplify Perl_xs_apiversion_bootcheck
We control both strings. Perl API versions are not old decimal or alphas
versions. Maints dont increase Perl API ver. Just do a memcmp. Faster and
less machine code. Before 0xA6 bytes of machine code on VC 2003 32b,
after 0x35. This patch is related to [perl #123136].
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -331,7 +331,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. #endif #define XS_APIVERSION_BOOTCHECK \ - Perl_xs_apiversion_bootcheck(aTHX_ ST(0), STR_WITH_LEN("v" PERL_API_VERSION_STRING)) + Perl_xs_apiversion_bootcheck(ST(0), STR_WITH_LEN("v" PERL_API_VERSION_STRING)) #ifdef NO_XSLOCKS # define dXCPT dJMPENV; int rEtV = 0 |