Generate the virtual entries at Config.pm build time, as they

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 4eef0bf..0587801 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -443,6 +443,8 @@
 #ifdef PERL_CORE
 #define op_clear               Perl_op_clear
 #endif
+#define op_refcnt_lock         Perl_op_refcnt_lock
+#define op_refcnt_unlock       Perl_op_refcnt_unlock
 #ifdef PERL_CORE
 #define linklist               Perl_linklist
 #endif
@@ -761,6 +763,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
@@ -822,16 +825,10 @@
 #ifdef PERL_CORE
 #define pmtrans                        Perl_pmtrans
 #endif
-#ifdef PERL_CORE
-#define pop_return             Perl_pop_return
-#endif
 #define pop_scope              Perl_pop_scope
 #ifdef PERL_CORE
 #define prepend_elem           Perl_prepend_elem
 #endif
-#ifdef PERL_CORE
-#define push_return            Perl_push_return
-#endif
 #define push_scope             Perl_push_scope
 #ifdef PERL_CORE
 #define ref                    Perl_ref
@@ -3072,6 +3069,8 @@
 #ifdef PERL_CORE
 #define op_clear(a)            Perl_op_clear(aTHX_ a)
 #endif
+#define op_refcnt_lock()       Perl_op_refcnt_lock(aTHX)
+#define op_refcnt_unlock()     Perl_op_refcnt_unlock(aTHX)
 #ifdef PERL_CORE
 #define linklist(a)            Perl_linklist(aTHX_ a)
 #endif
@@ -3387,6 +3386,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
@@ -3449,16 +3449,10 @@
 #ifdef PERL_CORE
 #define pmtrans(a,b,c)         Perl_pmtrans(aTHX_ a,b,c)
 #endif
-#ifdef PERL_CORE
-#define pop_return()           Perl_pop_return(aTHX)
-#endif
 #define pop_scope()            Perl_pop_scope(aTHX)
 #ifdef PERL_CORE
 #define prepend_elem(a,b,c)    Perl_prepend_elem(aTHX_ a,b,c)
 #endif
-#ifdef PERL_CORE
-#define push_return(a)         Perl_push_return(aTHX_ a)
-#endif
 #define push_scope()           Perl_push_scope(aTHX)
 #ifdef PERL_CORE
 #define ref(a,b)               Perl_ref(aTHX_ a,b)
@@ -4610,7 +4604,7 @@
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
-#define tokereport(a,b,c)      S_tokereport(aTHX_ a,b,c)
+#define tokereport(a,b)                S_tokereport(aTHX_ a,b)
 #endif
 #  endif
 #ifdef PERL_CORE
@@ -4758,7 +4752,7 @@
 #endif
 #if defined(DEBUGGING)
 #ifdef PERL_CORE
-#define get_debug_opts(a)      Perl_get_debug_opts(aTHX_ a)
+#define get_debug_opts(a,b)    Perl_get_debug_opts(aTHX_ a,b)
 #endif
 #endif
 #define save_set_svflags(a,b,c)        Perl_save_set_svflags(aTHX_ a,b,c)