[patch perlguts.pod] save_item doesn't handle magic

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

diff --git a/embed.fnc b/embed.fnc
index 4e5665e..972d34d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -535,7 +535,7 @@ Ap  |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
 
 Ap     |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
 Ap     |char*  |scan_vstring   |char *vstr|SV *sv
-Apd    |char*  |scan_version   |char *vstr|SV *sv
+Apd    |char*  |scan_version   |char *vstr|SV *sv|bool qv
 Apd    |SV*    |new_version    |SV *ver
 Apd    |SV*    |upg_version    |SV *ver
 Apd    |SV*    |vnumify        |SV *vs
@@ -697,14 +697,16 @@ p |void   |sub_crush_depth|CV* cv
 Apd    |bool   |sv_2bool       |SV* sv
 Apd    |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
 Apd    |IO*    |sv_2io         |SV* sv
-Apd    |IV     |sv_2iv         |SV* sv
+Amb    |IV     |sv_2iv         |SV* sv
+Apd    |IV     |sv_2iv_flags   |SV* sv|I32 flags
 Apd    |SV*    |sv_2mortal     |SV* sv
 Apd    |NV     |sv_2nv         |SV* sv
 Amb    |char*  |sv_2pv         |SV* sv|STRLEN* lp
 Apd    |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
 Apd    |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
 Ap     |char*  |sv_pvn_nomg    |SV* sv|STRLEN* lp
-Apd    |UV     |sv_2uv         |SV* sv
+Amb    |UV     |sv_2uv         |SV* sv
+Apd    |UV     |sv_2uv_flags   |SV* sv|I32 flags
 Apd    |IV     |sv_iv          |SV* sv
 Apd    |UV     |sv_uv          |SV* sv
 Apd    |NV     |sv_nv          |SV* sv
@@ -1085,7 +1087,8 @@ s |void*  |docatch_body
 s      |void*  |vdocatch_body  |va_list args
 #endif
 s      |OP*    |dofindlabel    |OP *o|char *label|OP **opstack|OP **oplimit
-s      |void   |doparseform    |SV *sv
+s      |OP*    |doparseform    |SV *sv
+sn     |bool   |num_overflow   |NV value|I32 fldsize|I32 frcsize
 s      |I32    |dopoptoeval    |I32 startingblock
 s      |I32    |dopoptolabel   |char *label
 s      |I32    |dopoptoloop    |I32 startingblock