X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=5cbcb77afec89d8c7c7d7c59f4801ae314c94e18;hb=02d51d12d1be7a3f46d87dbd220b0acd1f787f57;hp=951ff7b334d5e798dc2cdb664d6c4941e8ab1415;hpb=d36b65820b6b5e1d5ddb96186c8b7aa0b6e2ce9f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 951ff7b..5cbcb77 100644
--- a/embed.h
+++ b/embed.h
@@ -958,9 +958,7 @@
 #ifdef PERL_CORE
 #define sighandler		Perl_sighandler
 #endif
-#ifdef PERL_CORE
 #define csighandler		Perl_csighandler
-#endif
 #define stack_grow		Perl_stack_grow
 #define start_subparse		Perl_start_subparse
 #ifdef PERL_CORE
@@ -1117,6 +1115,9 @@
 #define seed			Perl_seed
 #endif
 #ifdef PERL_CORE
+#define get_hash_seed		Perl_get_hash_seed
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh		Perl_report_evil_fh
 #endif
 #ifdef PERL_CORE
@@ -3448,9 +3449,7 @@
 #ifdef PERL_CORE
 #define sighandler		Perl_sighandler
 #endif
-#ifdef PERL_CORE
 #define csighandler		Perl_csighandler
-#endif
 #define stack_grow(a,b,c)	Perl_stack_grow(aTHX_ a,b,c)
 #define start_subparse(a,b)	Perl_start_subparse(aTHX_ a,b)
 #ifdef PERL_CORE
@@ -3607,6 +3606,9 @@
 #define seed()			Perl_seed(aTHX)
 #endif
 #ifdef PERL_CORE
+#define get_hash_seed()		Perl_get_hash_seed(aTHX)
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh(a,b,c)	Perl_report_evil_fh(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE