diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-10-06 15:03:06 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-10-09 11:16:06 -0600 |
| commit | fb241e71f66a109447972250b3da4dcbffea0e71 (patch) | |
| tree | 3ef5e8b8e22294a20b5c6ea13ba4aa21aa1deb6d /proto.h | |
| parent | b40a2c17551b484a78122be98db5dc06bb4614d5 (diff) | |
| download | perl-fb241e71f66a109447972250b3da4dcbffea0e71.tar.gz | |
Allow _swash_inversion_hash() to be called in regexec.c
To prevent this very-internal core function from being used by XS
writers, it isn't defined except if the preprocessor indicates it is
compiling certain .c files. Add regexec.c to the list
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -6676,6 +6676,12 @@ PERL_CALLCONV IV Perl__invlist_search(pTHX_ SV* const invlist, const UV cp) #define PERL_ARGS_ASSERT__INVLIST_SEARCH \ assert(invlist) +PERL_CALLCONV HV* Perl__swash_inversion_hash(pTHX_ SV* const swash) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT__SWASH_INVERSION_HASH \ + assert(swash) + #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C) PERL_CALLCONV SV* Perl__add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end) @@ -6726,12 +6732,6 @@ PERL_CALLCONV void Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, S PERL_CALLCONV SV* Perl__new_invlist(pTHX_ IV initial_size) __attribute__warn_unused_result__; -PERL_CALLCONV HV* Perl__swash_inversion_hash(pTHX_ SV* const swash) - __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT__SWASH_INVERSION_HASH \ - assert(swash) - PERL_CALLCONV SV* Perl__swash_to_invlist(pTHX_ SV* const swash) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1); |