X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=43f18b3cfeab9dcc897a0dec46954a1565bce36a;hb=a0288114f9bfa2566e353eba77114ea63b616631;hp=19b5f69d6becb3f5e7d03c72bbbdbc1e353b843a;hpb=1cf743e1eac3cc540e4c4d1b0d3ee4753fd60329;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 19b5f69..43f18b3 100644
--- a/embed.h
+++ b/embed.h
@@ -976,6 +976,7 @@
 #define ss_dup			Perl_ss_dup
 #define any_dup			Perl_any_dup
 #define he_dup			Perl_he_dup
+#define hek_dup			Perl_hek_dup
 #define re_dup			Perl_re_dup
 #define fp_dup			Perl_fp_dup
 #define dirp_dup		Perl_dirp_dup
@@ -991,9 +992,11 @@
 #define ptr_table_free		Perl_ptr_table_free
 #  if defined(HAVE_INTERP_INTERN)
 #define sys_intern_dup		Perl_sys_intern_dup
+#  endif
+#endif
+#if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear	Perl_sys_intern_clear
 #define sys_intern_init		Perl_sys_intern_init
-#  endif
 #endif
 #define custom_op_name		Perl_custom_op_name
 #define custom_op_desc		Perl_custom_op_desc
@@ -2954,6 +2957,7 @@
 #define ss_dup(a,b)		Perl_ss_dup(aTHX_ a,b)
 #define any_dup(a,b)		Perl_any_dup(aTHX_ a,b)
 #define he_dup(a,b,c)		Perl_he_dup(aTHX_ a,b,c)
+#define hek_dup(a,b)		Perl_hek_dup(aTHX_ a,b)
 #define re_dup(a,b)		Perl_re_dup(aTHX_ a,b)
 #define fp_dup(a,b,c)		Perl_fp_dup(aTHX_ a,b,c)
 #define dirp_dup(a)		Perl_dirp_dup(aTHX_ a)
@@ -2969,9 +2973,11 @@
 #define ptr_table_free(a)	Perl_ptr_table_free(aTHX_ a)
 #  if defined(HAVE_INTERP_INTERN)
 #define sys_intern_dup(a,b)	Perl_sys_intern_dup(aTHX_ a,b)
+#  endif
+#endif
+#if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear()	Perl_sys_intern_clear(aTHX)
 #define sys_intern_init()	Perl_sys_intern_init(aTHX)
-#  endif
 #endif
 #define custom_op_name(a)	Perl_custom_op_name(aTHX_ a)
 #define custom_op_desc(a)	Perl_custom_op_desc(aTHX_ a)