diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-11-19 11:05:43 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-11-19 17:13:01 -0700 |
commit | 95c823ec176ed1673f36e569e083307cd98f368f (patch) | |
tree | 1114267ba5ead034ece83931ebfbf963238ab34b | |
parent | c1976674d8b5219ed0ff97e7be3eaa3118ad66eb (diff) | |
download | perl-95c823ec176ed1673f36e569e083307cd98f368f.tar.gz |
embed.fnc: Make a function global
This function is supposed to only be called internally, but it is called
by a macro that has global scope, so it also has to be global.
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | embed.h | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -645,7 +645,7 @@ Anpd |bool |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep ApR |bool |is_utf8_alnum |NN const U8 *p ApR |bool |is_utf8_idfirst|NN const U8 *p ApR |bool |is_utf8_xidfirst|NN const U8 *p -EXpR |bool |_is_utf8__perl_idstart|NN const U8 *p +ApR |bool |_is_utf8__perl_idstart|NN const U8 *p ApR |bool |is_utf8_idcont |NN const U8 *p ApR |bool |is_utf8_xidcont |NN const U8 *p ApR |bool |is_utf8_alpha |NN const U8 *p @@ -27,6 +27,7 @@ /* Hide global symbols */ #define Gv_AMupdate(a,b) Perl_Gv_AMupdate(aTHX_ a,b) +#define _is_utf8__perl_idstart(a) Perl__is_utf8__perl_idstart(aTHX_ a) #define _to_uni_fold_flags(a,b,c,d) Perl__to_uni_fold_flags(aTHX_ a,b,c,d) #define _to_utf8_fold_flags(a,b,c,d,e) Perl__to_utf8_fold_flags(aTHX_ a,b,c,d,e) #define _to_utf8_lower_flags(a,b,c,d,e) Perl__to_utf8_lower_flags(aTHX_ a,b,c,d,e) @@ -848,7 +849,6 @@ #define do_spawn_nowait(a) Perl_do_spawn_nowait(aTHX_ a) #endif #if defined(PERL_CORE) || defined(PERL_EXT) -#define _is_utf8__perl_idstart(a) Perl__is_utf8__perl_idstart(aTHX_ a) #define av_reify(a) Perl_av_reify(aTHX_ a) #define current_re_engine() Perl_current_re_engine(aTHX) #define op_clear(a) Perl_op_clear(aTHX_ a) |