WinCE more implemented functions

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index c7dd564..5cbcb77 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -29,9 +29,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
-#ifdef PERL_CORE
 #define doing_taint            Perl_doing_taint
-#endif
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
@@ -960,6 +958,7 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
+#define csighandler            Perl_csighandler
 #define stack_grow             Perl_stack_grow
 #define start_subparse         Perl_start_subparse
 #ifdef PERL_CORE
@@ -1116,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
@@ -2539,9 +2541,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
-#ifdef PERL_CORE
 #define doing_taint            Perl_doing_taint
-#endif
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
@@ -3449,6 +3449,7 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
+#define csighandler            Perl_csighandler
 #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
@@ -3605,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