Make new is_utf8_X_* functions public

diff --git a/embed.fnc b/embed.fnc
index 6b24d1e..17089ff 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -502,16 +502,16 @@ ApR       |bool   |is_utf8_print  |NN const U8 *p
 ApR    |bool   |is_utf8_punct  |NN const U8 *p
 ApR    |bool   |is_utf8_xdigit |NN const U8 *p
 ApR    |bool   |is_utf8_mark   |NN const U8 *p
-pR     |bool   |is_utf8_X_begin        |NN const U8 *p
-pR     |bool   |is_utf8_X_extend       |NN const U8 *p
-pR     |bool   |is_utf8_X_prepend      |NN const U8 *p
-pR     |bool   |is_utf8_X_non_hangul   |NN const U8 *p
-pR     |bool   |is_utf8_X_L            |NN const U8 *p
-pR     |bool   |is_utf8_X_LV           |NN const U8 *p
-pR     |bool   |is_utf8_X_LVT          |NN const U8 *p
-pR     |bool   |is_utf8_X_LV_LVT_V     |NN const U8 *p
-pR     |bool   |is_utf8_X_T            |NN const U8 *p
-pR     |bool   |is_utf8_X_V            |NN const U8 *p
+ApR    |bool   |is_utf8_X_begin        |NN const U8 *p
+ApR    |bool   |is_utf8_X_extend       |NN const U8 *p
+ApR    |bool   |is_utf8_X_prepend      |NN const U8 *p
+ApR    |bool   |is_utf8_X_non_hangul   |NN const U8 *p
+ApR    |bool   |is_utf8_X_L            |NN const U8 *p
+ApR    |bool   |is_utf8_X_LV           |NN const U8 *p
+ApR    |bool   |is_utf8_X_LVT          |NN const U8 *p
+ApR    |bool   |is_utf8_X_LV_LVT_V     |NN const U8 *p
+ApR    |bool   |is_utf8_X_T            |NN const U8 *p
+ApR    |bool   |is_utf8_X_V            |NN const U8 *p
 : Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
 : Used in pp.c 

diff --git a/embed.h b/embed.h
index e30e6f2..c949c5c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -391,7 +391,6 @@
 #define is_utf8_punct          Perl_is_utf8_punct
 #define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define is_utf8_mark           Perl_is_utf8_mark
-#ifdef PERL_CORE
 #define is_utf8_X_begin                Perl_is_utf8_X_begin
 #define is_utf8_X_extend       Perl_is_utf8_X_extend
 #define is_utf8_X_prepend      Perl_is_utf8_X_prepend
@@ -402,6 +401,7 @@
 #define is_utf8_X_LV_LVT_V     Perl_is_utf8_X_LV_LVT_V
 #define is_utf8_X_T            Perl_is_utf8_X_T
 #define is_utf8_X_V            Perl_is_utf8_X_V
+#ifdef PERL_CORE
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
 #endif
@@ -2794,7 +2794,6 @@
 #define is_utf8_punct(a)       Perl_is_utf8_punct(aTHX_ a)
 #define is_utf8_xdigit(a)      Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)                Perl_is_utf8_mark(aTHX_ a)
-#ifdef PERL_CORE
 #define is_utf8_X_begin(a)     Perl_is_utf8_X_begin(aTHX_ a)
 #define is_utf8_X_extend(a)    Perl_is_utf8_X_extend(aTHX_ a)
 #define is_utf8_X_prepend(a)   Perl_is_utf8_X_prepend(aTHX_ a)
@@ -2805,6 +2804,7 @@
 #define is_utf8_X_LV_LVT_V(a)  Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
 #define is_utf8_X_T(a)         Perl_is_utf8_X_T(aTHX_ a)
 #define is_utf8_X_V(a)         Perl_is_utf8_X_V(aTHX_ a)
+#ifdef PERL_CORE
 #define jmaybe(a)              Perl_jmaybe(aTHX_ a)
 #define keyword(a,b,c)         Perl_keyword(aTHX_ a,b,c)
 #endif

diff --git a/global.sym b/global.sym
index 6a44049..ae6a48f 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -242,6 +242,16 @@ Perl_is_utf8_print
 Perl_is_utf8_punct
 Perl_is_utf8_xdigit
 Perl_is_utf8_mark
+Perl_is_utf8_X_begin
+Perl_is_utf8_X_extend
+Perl_is_utf8_X_prepend
+Perl_is_utf8_X_non_hangul
+Perl_is_utf8_X_L
+Perl_is_utf8_X_LV
+Perl_is_utf8_X_LVT
+Perl_is_utf8_X_LV_LVT_V
+Perl_is_utf8_X_T
+Perl_is_utf8_X_V
 Perl_leave_scope
 Perl_lex_end
 Perl_lex_bufutf8