Re: new C3 MRO patch

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

diff --git a/embed.fnc b/embed.fnc
index 99252c2..688aae2 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -282,6 +282,16 @@ Ap |void   |gv_efullname4  |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|boo
 Ap     |GV*    |gv_fetchfile   |NN const char* name
 Ap     |GV*    |gv_fetchfile_flags|NN const char *const name|const STRLEN len\
                                |const U32 flags
+ApM    |struct mro_meta*       |mro_meta_init  |NN HV* stash
+#if defined(USE_ITHREADS)
+ApM    |struct mro_meta*       |mro_meta_dup   |NN struct mro_meta* smeta|NN CLONE_PARAMS* param
+#endif
+ApM    |AV*    |mro_get_linear_isa|NN HV* stash
+ApM    |AV*    |mro_get_linear_isa_c3|NN HV* stash|I32 level
+ApM    |AV*    |mro_get_linear_isa_dfs|NN HV* stash|I32 level
+ApM    |void   |mro_isa_changed_in|NN HV* stash
+ApM    |void   |mro_method_changed_in  |NN HV* stash
+ApM    |void   |boot_core_mro
 Apd    |GV*    |gv_fetchmeth   |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
 Apd    |GV*    |gv_fetchmeth_autoload  |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
 Apdmb  |GV*    |gv_fetchmethod |NULLOK HV* stash|NN const char* name
@@ -1195,7 +1205,11 @@ pR       |OP*    |ck_trunc       |NN OP *o
 pR     |OP*    |ck_unpack      |NN OP *o
 sRn    |bool   |is_handle_constructor|NN const OP *o|I32 numargs
 sR     |I32    |is_list_assignment|NULLOK const OP *o
-s      |void   |forget_pmop    |NN PMOP *const o|U32 flags
+#  ifdef USE_ITHREADS
+so     |void   |forget_pmop    |NN PMOP *const o|U32 flags
+#  else
+so     |void   |forget_pmop    |NN PMOP *const o
+#  endif
 s      |void   |find_and_forget_pmops  |NN OP *o
 s      |void   |cop_free       |NN COP *cop
 s      |OP*    |modkids        |NULLOK OP *o|I32 type
@@ -1227,6 +1241,8 @@ Apa       |void*  |Slab_Alloc     |size_t sz
 Ap     |void   |Slab_Free      |NN void *op
 #  if defined(PERL_DEBUG_READONLY_OPS)
 poxM   |void   |pending_Slabs_to_ro
+poxM   |OP *   |op_refcnt_inc  |NULLOK OP *o
+poxM   |PADOFFSET      |op_refcnt_dec  |NN OP *o
 #    if defined(PERL_IN_OP_C)
 s      |void   |Slab_to_rw     |NN void *op
 #    endif