* embed.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- * 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
+ * 2000, 2001, 2002, 2003, 2004, 2005, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
#define hv_exists Perl_hv_exists
#define hv_exists_ent Perl_hv_exists_ent
#define hv_fetch Perl_hv_fetch
-#define hv_fetch_flags Perl_hv_fetch_flags
#define hv_fetch_ent Perl_hv_fetch_ent
#define hv_free_ent Perl_hv_free_ent
#define hv_iterinit Perl_hv_iterinit
#define gp_dup Perl_gp_dup
#define mg_dup Perl_mg_dup
#define sv_dup Perl_sv_dup
+#define rvpv_dup Perl_rvpv_dup
#if defined(HAVE_INTERP_INTERN)
#define sys_intern_dup Perl_sys_intern_dup
#endif
#define next_symbol S_next_symbol
#endif
#ifdef PERL_CORE
-#define doencodes S_doencodes
-#endif
-#ifdef PERL_CORE
#define is_an_int S_is_an_int
#endif
#ifdef PERL_CORE
#if defined(PERL_CORE) || defined(PERL_EXT)
#define checkposixcc S_checkposixcc
#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define make_trie S_make_trie
+#endif
#endif
#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
#if defined(PERL_CORE) || defined(PERL_EXT)
#define hv_exists(a,b,c) Perl_hv_exists(aTHX_ a,b,c)
#define hv_exists_ent(a,b,c) Perl_hv_exists_ent(aTHX_ a,b,c)
#define hv_fetch(a,b,c,d) Perl_hv_fetch(aTHX_ a,b,c,d)
-#define hv_fetch_flags(a,b,c,d,e) Perl_hv_fetch_flags(aTHX_ a,b,c,d,e)
#define hv_fetch_ent(a,b,c,d) Perl_hv_fetch_ent(aTHX_ a,b,c,d)
#define hv_free_ent(a,b) Perl_hv_free_ent(aTHX_ a,b)
#define hv_iterinit(a) Perl_hv_iterinit(aTHX_ a)
#define gp_dup(a,b) Perl_gp_dup(aTHX_ a,b)
#define mg_dup(a,b) Perl_mg_dup(aTHX_ a,b)
#define sv_dup(a,b) Perl_sv_dup(aTHX_ a,b)
+#define rvpv_dup(a,b,c) Perl_rvpv_dup(aTHX_ a,b,c)
#if defined(HAVE_INTERP_INTERN)
#define sys_intern_dup(a,b) Perl_sys_intern_dup(aTHX_ a,b)
#endif
#define next_symbol(a) S_next_symbol(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c)
-#endif
-#ifdef PERL_CORE
#define is_an_int(a,b) S_is_an_int(aTHX_ a,b)
#endif
#ifdef PERL_CORE
#define cl_or(a,b,c) S_cl_or(aTHX_ a,b,c)
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
-#define study_chunk(a,b,c,d,e,f) S_study_chunk(aTHX_ a,b,c,d,e,f)
+#define study_chunk(a,b,c,d,e,f,g) S_study_chunk(aTHX_ a,b,c,d,e,f,g)
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define add_data(a,b,c) S_add_data(aTHX_ a,b,c)
#if defined(PERL_CORE) || defined(PERL_EXT)
#define checkposixcc(a) S_checkposixcc(aTHX_ a)
#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define make_trie(a,b,c,d,e,f) S_make_trie(aTHX_ a,b,c,d,e,f)
+#endif
#endif
#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
#if defined(PERL_CORE) || defined(PERL_EXT)
#define reghopmaybe3(a,b,c) S_reghopmaybe3(aTHX_ a,b,c)
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
-#define find_byclass(a,b,c,d,e,f) S_find_byclass(aTHX_ a,b,c,d,e,f)
+#define find_byclass(a,b,c,d,e) S_find_byclass(aTHX_ a,b,c,d,e)
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define to_utf8_substr(a) S_to_utf8_substr(aTHX_ a)
#define pad_fixup_inner_anons(a,b,c) Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
-#define pad_push(a,b,c) Perl_pad_push(aTHX_ a,b,c)
+#define pad_push(a,b) Perl_pad_push(aTHX_ a,b)
#endif
#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE