follow-up to 26740, shasum --> shasum.com

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 10e6af3..f359500 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -3,7 +3,7 @@
  *    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.
@@ -1329,6 +1329,8 @@
 #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
@@ -1354,6 +1356,8 @@
 #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
@@ -1398,15 +1402,7 @@
 #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)
@@ -1415,6 +1411,11 @@
 #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
@@ -1538,6 +1539,8 @@
 #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
@@ -1692,6 +1695,8 @@
 #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
@@ -3366,6 +3371,10 @@
 #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
@@ -3391,6 +3400,8 @@
 #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
@@ -3435,15 +3446,7 @@
 #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)
@@ -3452,6 +3455,11 @@
 #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
@@ -3575,6 +3583,12 @@
 #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)
@@ -3729,6 +3743,8 @@
 #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)