diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-05 13:16:30 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-07-03 14:05:48 -0600 |
| commit | 47b34d7254198c381a7d21eb29478f1a0267a9d6 (patch) | |
| tree | 0d6299a8466fae0d3c2b0076be66552cf8815ad2 /proto.h | |
| parent | 839cfe5dcd857d5775f8c5d638b85b1a539d73c9 (diff) | |
| download | perl-47b34d7254198c381a7d21eb29478f1a0267a9d6.tar.gz | |
Restrict some inversion list functions
These functions are internal only with names beginning with underscore.
I hadn't realized that their definitions could be restricted.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 40 |
1 files changed, 20 insertions, 20 deletions
@@ -23,26 +23,6 @@ PERL_CALLCONV int Perl_Gv_AMupdate(pTHX_ HV* stash, bool destructing) assert(stash) PERL_CALLCONV const char * Perl_PerlIO_context_layers(pTHX_ const char *mode); -PERL_CALLCONV void Perl__append_range_to_invlist(pTHX_ SV* const invlist, const UV start, const UV end) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT__APPEND_RANGE_TO_INVLIST \ - assert(invlist) - -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); -#define PERL_ARGS_ASSERT__SWASH_TO_INVLIST \ - assert(swash) - PERL_CALLCONV UV Perl__to_uni_fold_flags(pTHX_ UV c, U8 *p, STRLEN *lenp, U8 flags) __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_3); @@ -6276,6 +6256,11 @@ STATIC I32 S_study_chunk(pTHX_ struct RExC_state_t *pRExC_state, regnode **scanp #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C) +PERL_CALLCONV void Perl__append_range_to_invlist(pTHX_ SV* const invlist, const UV start, const UV end) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT__APPEND_RANGE_TO_INVLIST \ + assert(invlist) + PERL_CALLCONV void Perl__invlist_intersection(pTHX_ SV* const a, SV* const b, SV** i) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) @@ -6302,6 +6287,21 @@ PERL_CALLCONV void Perl__invlist_union(pTHX_ SV* const a, SV* const b, SV** outp #define PERL_ARGS_ASSERT__INVLIST_UNION \ assert(a); assert(b); assert(output) +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); +#define PERL_ARGS_ASSERT__SWASH_TO_INVLIST \ + assert(swash) + #endif #if defined(PERL_IN_REGEXEC_C) STATIC char* S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, const char *strend, regmatch_info *reginfo) |