Optimise for (reverse ...)

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

diff --git a/embed.h b/embed.h
index 3de8118..96b6d7c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -761,6 +761,7 @@
 #ifdef PERL_CORE
 #define pad_findmy             Perl_pad_findmy
 #endif
+#define find_rundefsvoffset    Perl_find_rundefsvoffset
 #ifdef PERL_CORE
 #define oopsAV                 Perl_oopsAV
 #endif
@@ -2155,6 +2156,11 @@
 #ifdef PERL_CORE
 #define magic_scalarpack       Perl_magic_scalarpack
 #endif
+#ifdef PERL_IN_SV_C
+#ifdef PERL_CORE
+#define find_uninit_var                S_find_uninit_var
+#endif
+#endif
 #ifdef PERL_NEED_MY_HTOLE16
 #ifdef PERL_CORE
 #define my_htole16             Perl_my_htole16
@@ -3382,6 +3388,7 @@
 #ifdef PERL_CORE
 #define pad_findmy(a)          Perl_pad_findmy(aTHX_ a)
 #endif
+#define find_rundefsvoffset()  Perl_find_rundefsvoffset(aTHX)
 #ifdef PERL_CORE
 #define oopsAV(a)              Perl_oopsAV(aTHX_ a)
 #endif
@@ -3745,7 +3752,7 @@
 #define report_evil_fh(a,b,c)  Perl_report_evil_fh(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE
-#define report_uninit()                Perl_report_uninit(aTHX)
+#define report_uninit(a)       Perl_report_uninit(aTHX_ a)
 #endif
 #define vwarn(a,b)             Perl_vwarn(aTHX_ a,b)
 #define vwarner(a,b,c)         Perl_vwarner(aTHX_ a,b,c)
@@ -4770,6 +4777,11 @@
 #ifdef PERL_CORE
 #define magic_scalarpack(a,b)  Perl_magic_scalarpack(aTHX_ a,b)
 #endif
+#ifdef PERL_IN_SV_C
+#ifdef PERL_CORE
+#define find_uninit_var(a,b,c) S_find_uninit_var(aTHX_ a,b,c)
+#endif
+#endif
 #ifdef PERL_NEED_MY_HTOLE16
 #ifdef PERL_CORE
 #define my_htole16             Perl_my_htole16