Storable 2.06 (was Re: Bug in ext/Storable/t/integer.t)

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

diff --git a/embed.fnc b/embed.fnc
index 7665b52..c7c03b8 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -130,7 +130,7 @@ Afnp        |int    |fprintf_nocontext|PerlIO* stream|const char* fmt|...
 Afnp   |int    |printf_nocontext|const char* fmt|...
 #endif
 p      |void   |cv_ckproto     |CV* cv|GV* gv|char* p
-p      |CV*    |cv_clone       |CV* proto
+pd     |CV*    |cv_clone       |CV* proto
 Apd    |SV*    |cv_const_sv    |CV* cv
 p      |SV*    |op_const_sv    |OP* o|CV* cv
 Ap     |void   |cv_undef       |CV* cv
@@ -294,7 +294,7 @@ p   |void   |init_argv_symbols|int|char **
 p      |void   |init_debugger
 Ap     |void   |init_stacks
 Ap     |void   |init_tm        |struct tm *ptm
-p      |U32    |intro_my
+pd     |U32    |intro_my
 Ap     |char*  |instr          |const char* big|const char* little
 p      |bool   |io_close       |IO* io|bool not_implicit
 p      |OP*    |invert         |OP* cmd
@@ -534,23 +534,29 @@ Ap        |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
                                |I32 whileline|OP* expr|OP* block|OP* cont
 
 Ap     |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
-Apd    |char*  |new_vstring    |char *vstr|SV *sv
+Apd    |char*  |scan_vstring   |char *vstr|SV *sv
+Apd    |char*  |scan_version   |char *vstr|SV *sv
+Apd    |SV*    |new_version    |SV *ver
+Apd    |SV*    |upg_version    |SV *ver
+Apd    |SV*    |vnumify        |SV *vs
+Apd    |SV*    |vstringify     |SV *vs
+Apd    |int    |vcmp           |SV *lvs|SV *rvs
 p      |PerlIO*|nextargv       |GV* gv
 Ap     |char*  |ninstr         |const char* big|const char* bigend \
                                |const char* little|const char* lend
 p      |OP*    |oopsCV         |OP* o
 Ap     |void   |op_free        |OP* arg
 p      |void   |package        |OP* o
-p      |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
-p      |PADOFFSET|pad_allocmy  |char* name
-p      |PADOFFSET|pad_findmy   |char* name
+pd     |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
+p      |PADOFFSET|allocmy      |char* name
+pd     |PADOFFSET|pad_findmy   |char* name
 p      |OP*    |oopsAV         |OP* o
 p      |OP*    |oopsHV         |OP* o
-p      |void   |pad_leavemy    |I32 fill
-Ap     |SV*    |pad_sv         |PADOFFSET po
-p      |void   |pad_free       |PADOFFSET po
-p      |void   |pad_reset
-p      |void   |pad_swipe      |PADOFFSET po
+pd     |void   |pad_leavemy
+Apd    |SV*    |pad_sv         |PADOFFSET po
+pd     |void   |pad_free       |PADOFFSET po
+pd     |void   |pad_reset
+pd     |void   |pad_swipe      |PADOFFSET po|bool refadjust
 p      |void   |peep           |OP* o
 dopM   |PerlIO*|start_glob     |SV* pattern|IO *io
 #if defined(USE_5005THREADS)
@@ -852,12 +858,6 @@ Anp        |Malloc_t|safesysmalloc |MEM_SIZE nbytes
 Anp    |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
 Anp    |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
 Anp    |Free_t |safesysfree    |Malloc_t where
-#if defined(LEAKTEST)
-Anp    |Malloc_t|safexmalloc   |I32 x|MEM_SIZE size
-Anp    |Malloc_t|safexcalloc   |I32 x|MEM_SIZE elements|MEM_SIZE size
-Anp    |Malloc_t|safexrealloc  |Malloc_t where|MEM_SIZE size
-Anp    |void   |safexfree      |Malloc_t where
-#endif
 #if defined(PERL_GLOBAL_STRUCT)
 Ap     |struct perl_vars *|GetVars
 #endif
@@ -954,6 +954,10 @@ Ap |void   |sys_intern_init
 Ap |char * |custom_op_name|OP* op
 Ap |char * |custom_op_desc|OP* op
 
+#if defined(PERL_COPY_ON_WRITE)
+pM     |int    |sv_release_IVX |SV *sv
+#endif
+
 Adp    |void   |sv_nosharing   |SV *
 Adp    |void   |sv_nolocking   |SV *
 Adp    |void   |sv_nounlocking |SV *
@@ -1007,18 +1011,11 @@ s       |OP*    |no_fh_allowed  |OP *o
 s      |OP*    |scalarboolean  |OP *o
 s      |OP*    |too_few_arguments|OP *o|char* name
 s      |OP*    |too_many_arguments|OP *o|char* name
-s      |PADOFFSET|pad_addlex   |SV* name
-s      |PADOFFSET|pad_findlex  |char* name|PADOFFSET newoff|U32 seq \
-                               |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
 s      |OP*    |newDEFSVOP
 s      |OP*    |new_logop      |I32 type|I32 flags|OP **firstp|OP **otherp
 s      |void   |simplify_sort  |OP *o
 s      |bool   |is_handle_constructor  |OP *o|I32 argnum
 s      |char*  |gv_ename       |GV *gv
-#  if defined(DEBUG_CLOSURES)
-s      |void   |cv_dump        |CV *cv
-#  endif
-s      |CV*    |cv_clone2      |CV *proto|CV *outside
 s      |bool   |scalar_mod_type|OP *o|I32 type
 s      |OP *   |my_kid         |OP *o|OP *attrs|OP **imopsp
 s      |OP *   |dup_attrlist   |OP *o
@@ -1235,6 +1232,10 @@ s        |I32    |expect_number  |char** pattern
 #  if defined(USE_ITHREADS)
 s      |SV*    |gv_share       |SV *sv|CLONE_PARAMS *param
 #  endif
+#if defined(PERL_COPY_ON_WRITE)
+sM     |void   |sv_release_COW |SV *sv|char *pvx|STRLEN cur|STRLEN len \
+                               |U32 hash|SV *after
+#endif
 #endif
 
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
@@ -1301,9 +1302,6 @@ s |char*  |stdize_locale  |char* locs
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 s      |COP*   |closest_cop    |COP *cop|OP *o
 s      |SV*    |mess_alloc
-#  if defined(LEAKTEST)
-s      |void   |xstat          |int
-#  endif
 #endif
 
 START_EXTERN_C
@@ -1351,6 +1349,34 @@ s        |void   |deb_stack_n    |SV** stack_base|I32 stack_min \
                                |I32 stack_max|I32 mark_min|I32 mark_max
 #endif
 
+pd     |PADLIST*|pad_new       |padnew_flags flags
+pd     |void   |pad_undef      |CV* cv|CV* outercv
+pd     |PADOFFSET|pad_add_name |char *name\
+                               |HV* typestash|HV* ourstash \
+                               |bool clone
+pd     |PADOFFSET|pad_add_anon |SV* sv|OPCODE op_type
+pd     |void   |pad_check_dup  |char* name|bool is_our|HV* ourstash
+#ifdef DEBUGGING
+pd     |void   |pad_setsv      |PADOFFSET po|SV* sv
+#endif
+pd     |void   |pad_block_start|int full
+pd     |void   |pad_tidy       |padtidy_type type
+pd     |void   |do_dump_pad    |I32 level|PerlIO *file \
+                               |PADLIST *padlist|int full
+pd     |void   |pad_fixup_inner_anons|PADLIST *padlist|CV *old_cv|CV *new_cv
+
+pd     |void   |pad_push       |PADLIST *padlist|int depth|int has_args
+
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+sd     |PADOFFSET|pad_findlex  |char* name|PADOFFSET newoff|U32 seq \
+                               |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
+#  if defined(DEBUGGING)
+sd     |void   |cv_dump        |CV *cv|char *title
+#  endif
+s      |CV*    |cv_clone2      |CV *proto|CV *outside
+#endif
+
+
 
 END_EXTERN_C