This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move some fncs from Public to extensions visible
authorKarl Williamson <khw@khw-desktop.(none)>
Fri, 19 Feb 2010 22:26:24 +0000 (15:26 -0700)
committerSteve Hay <SteveHay@planit.com>
Sat, 20 Feb 2010 00:43:19 +0000 (00:43 +0000)
Run
make regen embed.fnc
on this patch.

Several functions are in the public API, but don't need to be.  They are
helpers for the regex engine, and thus need to be visible to extensions
for 'use re "debug"'.

embed.fnc

index 9ccd663..7a734c7 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -575,16 +575,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
-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
+EpR    |bool   |is_utf8_X_begin        |NN const U8 *p
+EpR    |bool   |is_utf8_X_extend       |NN const U8 *p
+EpR    |bool   |is_utf8_X_prepend      |NN const U8 *p
+EpR    |bool   |is_utf8_X_non_hangul   |NN const U8 *p
+EpR    |bool   |is_utf8_X_L            |NN const U8 *p
+EpR    |bool   |is_utf8_X_LV           |NN const U8 *p
+EpR    |bool   |is_utf8_X_LVT          |NN const U8 *p
+EpR    |bool   |is_utf8_X_LV_LVT_V     |NN const U8 *p
+EpR    |bool   |is_utf8_X_T            |NN const U8 *p
+EpR    |bool   |is_utf8_X_V            |NN const U8 *p
 : Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
 : Used in pp.c