Tokeniser debugging

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index b9e7c68..14dcbd7 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -597,6 +597,7 @@
 #define save_pptr              Perl_save_pptr
 #define save_vptr              Perl_save_vptr
 #define save_re_context                Perl_save_re_context
+#define save_padsv             Perl_save_padsv
 #define save_sptr              Perl_save_sptr
 #define save_svref             Perl_save_svref
 #define save_threadsv          Perl_save_threadsv
@@ -725,6 +726,7 @@
 #define utilize                        Perl_utilize
 #define utf16_to_utf8          Perl_utf16_to_utf8
 #define utf16_to_utf8_reversed Perl_utf16_to_utf8_reversed
+#define utf8_length            Perl_utf8_length
 #define utf8_distance          Perl_utf8_distance
 #define utf8_hop               Perl_utf8_hop
 #define utf8_to_bytes          Perl_utf8_to_bytes
@@ -2060,6 +2062,7 @@
 #define save_pptr(a)           Perl_save_pptr(aTHX_ a)
 #define save_vptr(a)           Perl_save_vptr(aTHX_ a)
 #define save_re_context()      Perl_save_re_context(aTHX)
+#define save_padsv(a)          Perl_save_padsv(aTHX_ a)
 #define save_sptr(a)           Perl_save_sptr(aTHX_ a)
 #define save_svref(a)          Perl_save_svref(aTHX_ a)
 #define save_threadsv(a)       Perl_save_threadsv(aTHX_ a)
@@ -2186,6 +2189,7 @@
 #define utilize(a,b,c,d,e)     Perl_utilize(aTHX_ a,b,c,d,e)
 #define utf16_to_utf8(a,b,c,d) Perl_utf16_to_utf8(aTHX_ a,b,c,d)
 #define utf16_to_utf8_reversed(a,b,c,d)        Perl_utf16_to_utf8_reversed(aTHX_ a,b,c,d)
+#define utf8_length(a,b)       Perl_utf8_length(aTHX_ a,b)
 #define utf8_distance(a,b)     Perl_utf8_distance(aTHX_ a,b)
 #define utf8_hop(a,b)          Perl_utf8_hop(aTHX_ a,b)
 #define utf8_to_bytes(a,b)     Perl_utf8_to_bytes(aTHX_ a,b)
@@ -2439,34 +2443,34 @@
 #  endif
 #endif
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
-#define reg(a,b)               S_reg(aTHX_ a,b)
-#define reganode(a,b)          S_reganode(aTHX_ a,b)
-#define regatom(a)             S_regatom(aTHX_ a)
-#define regbranch(a,b)         S_regbranch(aTHX_ a,b)
-#define reguni(a,b,c)          S_reguni(aTHX_ a,b,c)
-#define regclass()             S_regclass(aTHX)
-#define regclassutf8()         S_regclassutf8(aTHX)
+#define reg(a,b,c)             S_reg(aTHX_ a,b,c)
+#define reganode(a,b,c)                S_reganode(aTHX_ a,b,c)
+#define regatom(a,b)           S_regatom(aTHX_ a,b)
+#define regbranch(a,b,c)       S_regbranch(aTHX_ a,b,c)
+#define reguni(a,b,c,d)                S_reguni(aTHX_ a,b,c,d)
+#define regclass(a)            S_regclass(aTHX_ a)
+#define regclassutf8(a)                S_regclassutf8(aTHX_ a)
 #define regcurly(a)            S_regcurly(aTHX_ a)
-#define reg_node(a)            S_reg_node(aTHX_ a)
-#define regpiece(a)            S_regpiece(aTHX_ a)
-#define reginsert(a,b)         S_reginsert(aTHX_ a,b)
-#define regoptail(a,b)         S_regoptail(aTHX_ a,b)
-#define regtail(a,b)           S_regtail(aTHX_ a,b)
+#define reg_node(a,b)          S_reg_node(aTHX_ a,b)
+#define regpiece(a,b)          S_regpiece(aTHX_ a,b)
+#define reginsert(a,b,c)       S_reginsert(aTHX_ a,b,c)
+#define regoptail(a,b,c)       S_regoptail(aTHX_ a,b,c)
+#define regtail(a,b,c)         S_regtail(aTHX_ a,b,c)
 #define regwhite(a,b)          S_regwhite(aTHX_ a,b)
-#define nextchar()             S_nextchar(aTHX)
+#define nextchar(a)            S_nextchar(aTHX_ a)
 #define dumpuntil(a,b,c,d,e)   S_dumpuntil(aTHX_ a,b,c,d,e)
 #define put_byte(a,b)          S_put_byte(aTHX_ a,b)
-#define scan_commit(a)         S_scan_commit(aTHX_ a)
-#define cl_anything(a)         S_cl_anything(aTHX_ a)
+#define scan_commit(a,b)       S_scan_commit(aTHX_ a,b)
+#define cl_anything(a,b)       S_cl_anything(aTHX_ a,b)
 #define cl_is_anything(a)      S_cl_is_anything(aTHX_ a)
-#define cl_init(a)             S_cl_init(aTHX_ a)
-#define cl_init_zero(a)                S_cl_init_zero(aTHX_ a)
+#define cl_init(a,b)           S_cl_init(aTHX_ a,b)
+#define cl_init_zero(a,b)      S_cl_init_zero(aTHX_ a,b)
 #define cl_and(a,b)            S_cl_and(aTHX_ a,b)
-#define cl_or(a,b)             S_cl_or(aTHX_ a,b)
-#define study_chunk(a,b,c,d,e) S_study_chunk(aTHX_ a,b,c,d,e)
-#define add_data(a,b)          S_add_data(aTHX_ a,b)
-#define regpposixcc(a)         S_regpposixcc(aTHX_ a)
-#define checkposixcc()         S_checkposixcc(aTHX)
+#define cl_or(a,b,c)           S_cl_or(aTHX_ a,b,c)
+#define study_chunk(a,b,c,d,e,f)       S_study_chunk(aTHX_ a,b,c,d,e,f)
+#define add_data(a,b,c)                S_add_data(aTHX_ a,b,c)
+#define regpposixcc(a,b)       S_regpposixcc(aTHX_ a,b)
+#define checkposixcc(a)                S_checkposixcc(aTHX_ a)
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 #define regmatch(a)            S_regmatch(aTHX_ a)
@@ -4036,6 +4040,8 @@
 #define save_vptr              Perl_save_vptr
 #define Perl_save_re_context   CPerlObj::Perl_save_re_context
 #define save_re_context                Perl_save_re_context
+#define Perl_save_padsv                CPerlObj::Perl_save_padsv
+#define save_padsv             Perl_save_padsv
 #define Perl_save_sptr         CPerlObj::Perl_save_sptr
 #define save_sptr              Perl_save_sptr
 #define Perl_save_svref                CPerlObj::Perl_save_svref
@@ -4284,6 +4290,8 @@
 #define utf16_to_utf8          Perl_utf16_to_utf8
 #define Perl_utf16_to_utf8_reversed    CPerlObj::Perl_utf16_to_utf8_reversed
 #define utf16_to_utf8_reversed Perl_utf16_to_utf8_reversed
+#define Perl_utf8_length       CPerlObj::Perl_utf8_length
+#define utf8_length            Perl_utf8_length
 #define Perl_utf8_distance     CPerlObj::Perl_utf8_distance
 #define utf8_distance          Perl_utf8_distance
 #define Perl_utf8_hop          CPerlObj::Perl_utf8_hop