summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-06-05 13:16:30 -0600
committerKarl Williamson <public@khwilliamson.com>2011-07-03 14:05:48 -0600
commit47b34d7254198c381a7d21eb29478f1a0267a9d6 (patch)
tree0d6299a8466fae0d3c2b0076be66552cf8815ad2 /embed.h
parent839cfe5dcd857d5775f8c5d638b85b1a539d73c9 (diff)
downloadperl-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 'embed.h')
-rw-r--r--embed.h8
1 files changed, 4 insertions, 4 deletions
diff --git a/embed.h b/embed.h
index e20a86c47b..3e19420f43 100644
--- a/embed.h
+++ b/embed.h
@@ -815,10 +815,6 @@
#define do_spawn_nowait(a) Perl_do_spawn_nowait(aTHX_ a)
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
-#define _append_range_to_invlist(a,b,c) Perl__append_range_to_invlist(aTHX_ a,b,c)
-#define _new_invlist(a) Perl__new_invlist(aTHX_ a)
-#define _swash_inversion_hash(a) Perl__swash_inversion_hash(aTHX_ a)
-#define _swash_to_invlist(a) Perl__swash_to_invlist(aTHX_ a)
#define av_reify(a) Perl_av_reify(aTHX_ a)
#define is_utf8_X_L(a) Perl_is_utf8_X_L(aTHX_ a)
#define is_utf8_X_LV(a) Perl_is_utf8_X_LV(aTHX_ a)
@@ -914,10 +910,14 @@
#define study_chunk(a,b,c,d,e,f,g,h,i,j,k) S_study_chunk(aTHX_ a,b,c,d,e,f,g,h,i,j,k)
# endif
# if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+#define _append_range_to_invlist(a,b,c) Perl__append_range_to_invlist(aTHX_ a,b,c)
#define _invlist_intersection(a,b,c) Perl__invlist_intersection(aTHX_ a,b,c)
#define _invlist_invert(a) Perl__invlist_invert(aTHX_ a)
#define _invlist_subtract(a,b,c) Perl__invlist_subtract(aTHX_ a,b,c)
#define _invlist_union(a,b,c) Perl__invlist_union(aTHX_ a,b,c)
+#define _new_invlist(a) Perl__new_invlist(aTHX_ a)
+#define _swash_inversion_hash(a) Perl__swash_inversion_hash(aTHX_ a)
+#define _swash_to_invlist(a) Perl__swash_to_invlist(aTHX_ a)
# endif
# if defined(PERL_IN_REGEXEC_C)
#define find_byclass(a,b,c,d,e) S_find_byclass(aTHX_ a,b,c,d,e)