* embed.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- * 2000, 2001, 2002, 2003, 2004, 2005, by Larry Wall and others
+ * 2000, 2001, 2002, 2003, 2004, 2005, 2006, 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 cv_ckproto Perl_cv_ckproto
#define cv_clone Perl_cv_clone
#endif
+#define gv_const_sv Perl_gv_const_sv
#define cv_const_sv Perl_cv_const_sv
#ifdef PERL_CORE
#define op_const_sv Perl_op_const_sv
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
#endif
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define uiv_2buf S_uiv_2buf
#ifdef PERL_CORE
#define utf8_mg_pos S_utf8_mg_pos
#define utf8_mg_pos_init S_utf8_mg_pos_init
+#define stringify_regexp S_stringify_regexp
+#define F0convert S_F0convert
#endif
#if defined(PERL_OLD_COPY_ON_WRITE)
#ifdef PERL_CORE
#define find_in_my_stash S_find_in_my_stash
#define tokenize_use S_tokenize_use
#define new_constant S_new_constant
-#endif
-# if defined(DEBUGGING)
-#ifdef PERL_CORE
-#define tokereport S_tokereport
-#endif
-# endif
-#ifdef PERL_CORE
#define ao S_ao
-#define depcom S_depcom
#define incl_perldb S_incl_perldb
#endif
# if defined(PERL_CR_FILTER)
#define strip_return S_strip_return
#endif
# endif
+# if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define tokereport S_tokereport
+#endif
+# endif
#endif
#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define save_set_svflags Perl_save_set_svflags
#define hv_scalar Perl_hv_scalar
#define hv_name_set Perl_hv_name_set
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#endif
#define hv_clear_placeholders Perl_hv_clear_placeholders
#ifdef PERL_CORE
#define magic_scalarpack Perl_magic_scalarpack
#ifdef PERL_CORE
#define my_clearenv Perl_my_clearenv
#endif
+#ifdef PERL_IMPLICIT_CONTEXT
+#endif
#define ck_anoncode Perl_ck_anoncode
#define ck_bitop Perl_ck_bitop
#define ck_concat Perl_ck_concat
#define cv_ckproto(a,b,c) Perl_cv_ckproto(aTHX_ a,b,c)
#define cv_clone(a) Perl_cv_clone(aTHX_ a)
#endif
+#define gv_const_sv(a) Perl_gv_const_sv(aTHX_ a)
#define cv_const_sv(a) Perl_cv_const_sv(aTHX_ a)
#ifdef PERL_CORE
#define op_const_sv(a,b) Perl_op_const_sv(aTHX_ a,b)
#ifdef PERL_CORE
#endif
#endif
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#endif
+#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define uiv_2buf S_uiv_2buf
#ifdef PERL_CORE
#define utf8_mg_pos(a,b,c,d,e,f,g,h,i) S_utf8_mg_pos(aTHX_ a,b,c,d,e,f,g,h,i)
#define utf8_mg_pos_init(a,b,c,d,e,f,g) S_utf8_mg_pos_init(aTHX_ a,b,c,d,e,f,g)
+#define stringify_regexp(a,b,c) S_stringify_regexp(aTHX_ a,b,c)
+#define F0convert S_F0convert
#endif
#if defined(PERL_OLD_COPY_ON_WRITE)
#ifdef PERL_CORE
#define feature_is_enabled(a,b) S_feature_is_enabled(aTHX_ a,b)
#define force_ident(a,b) S_force_ident(aTHX_ a,b)
#define incline(a) S_incline(aTHX_ a)
-#define intuit_method(a,b) S_intuit_method(aTHX_ a,b)
+#define intuit_method(a,b,c) S_intuit_method(aTHX_ a,b,c)
#define intuit_more(a) S_intuit_more(aTHX_ a)
#define lop(a,b,c) S_lop(aTHX_ a,b,c)
#define missingterm(a) S_missingterm(aTHX_ a)
#define find_in_my_stash(a,b) S_find_in_my_stash(aTHX_ a,b)
#define tokenize_use(a,b) S_tokenize_use(aTHX_ a,b)
#define new_constant(a,b,c,d,e,f) S_new_constant(aTHX_ a,b,c,d,e,f)
-#endif
-# if defined(DEBUGGING)
-#ifdef PERL_CORE
-#define tokereport(a) S_tokereport(aTHX_ a)
-#endif
-# endif
-#ifdef PERL_CORE
#define ao(a) S_ao(aTHX_ a)
-#define depcom() S_depcom(aTHX)
#define incl_perldb() S_incl_perldb(aTHX)
#endif
# if defined(PERL_CR_FILTER)
#define strip_return(a) S_strip_return(aTHX_ a)
#endif
# endif
+# if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define tokereport(a) S_tokereport(aTHX_ a)
+#endif
+# endif
#endif
#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c)
#define hv_scalar(a) Perl_hv_scalar(aTHX_ a)
#define hv_name_set(a,b,c,d) Perl_hv_name_set(aTHX_ a,b,c,d)
+#ifdef PERL_CORE
+#endif
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#endif
+#endif
#define hv_clear_placeholders(a) Perl_hv_clear_placeholders(aTHX_ a)
#ifdef PERL_CORE
#define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b)
#ifdef PERL_CORE
#define my_clearenv() Perl_my_clearenv(aTHX)
#endif
+#ifdef PERL_IMPLICIT_CONTEXT
+#endif
#define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a)
#define ck_bitop(a) Perl_ck_bitop(aTHX_ a)
#define ck_concat(a) Perl_ck_concat(aTHX_ a)