Skip to content

Commit 7e8c962

Browse files
committed
Remove a few more macros from being visible to XS code
These are a few macros dealing with inversion lists that were never intended to be visible to general XS code, and they actually can't be in use in cpan because the mechanisms to create inversion lists are private to perl.
1 parent 44eb734 commit 7e8c962

File tree

2 files changed

+7
-4
lines changed

2 files changed

+7
-4
lines changed

embed.h

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,13 @@
2323

2424
/* When this symbol is defined, we undef various symbols we have defined
2525
* earlier when this file was #included with this symbol undefined */
26-
#if !defined(PERL_DO_UNDEFS)
26+
#if defined(PERL_DO_UNDEFS)
27+
# if !defined(PERL_CORE) && !defined(PERL_EXT)
28+
# undef invlist_intersection_
29+
# undef invlist_subtract_
30+
# undef invlist_union_
31+
# endif
32+
#else
2733

2834
/* Create short name macros that hide any need for thread context */
2935

regen/embed.pl

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3789,10 +3789,7 @@ BEGIN
37893789
HAS_IGNORED_LOCALE_CATEGORIES_
37903790
HIGHEST_REGCOMP_DOT_H_SYNC_
37913791
inRANGE_helper_
3792-
invlist_intersection_
37933792
invlist_intersection_complement_2nd_
3794-
invlist_subtract_
3795-
invlist_union_
37963793
invlist_union_complement_2nd_
37973794
is_MULTI_CHAR_FOLD_utf8_safe_part0_
37983795
is_MULTI_CHAR_FOLD_utf8_safe_part1_

0 commit comments

Comments
 (0)