Make perlio line buffer VMS record-oriented files on output.

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 3baf32e..1d89b96 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -794,7 +794,8 @@ Ap  |void   |newPROG        |NN OP* o
 Apda   |OP*    |newRANGE       |I32 flags|NN OP* left|NN OP* right
 Apda   |OP*    |newSLICEOP     |I32 flags|NULLOK OP* subscript|NULLOK OP* listop
 Apda   |OP*    |newSTATEOP     |I32 flags|NULLOK char* label|NULLOK OP* o
-Ap     |CV*    |newSUB         |I32 floor|NULLOK OP* o|NULLOK OP* proto|NULLOK OP* block
+Abm    |CV*    |newSUB         |I32 floor|NULLOK OP* o|NULLOK OP* proto \
+                               |NULLOK OP* block
 ApM    |CV *   |newXS_flags    |NULLOK const char *name|NN XSUBADDR_t subaddr\
                                |NN const char *const filename \
                                |NULLOK const char *const proto|U32 flags
@@ -1292,6 +1293,8 @@ AdpPR     |STRLEN |utf8_length    |NN const U8* s|NN const U8 *e
 ApdPR  |IV     |utf8_distance  |NN const U8 *a|NN const U8 *b
 ApdPR  |U8*    |utf8_hop       |NN const U8 *s|I32 off
 ApMd   |U8*    |utf8_to_bytes  |NN U8 *s|NN STRLEN *len
+Apd    |int    |bytes_cmp_utf8 |NN const U8 *b|STRLEN blen|NN const U8 *u \
+                               |STRLEN ulen
 ApMd   |U8*    |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8
 ApMd   |U8*    |bytes_to_utf8  |NN const U8 *s|NN STRLEN *len
 Apd    |UV     |utf8_to_uvchr  |NN const U8 *s|NULLOK STRLEN *retlen
@@ -1487,8 +1490,11 @@ Ap       |void   |sys_intern_clear
 Ap     |void   |sys_intern_init
 #endif
 
+AopP   |const XOP *    |custom_op_xop  |NN const OP *o
 ApR    |const char *   |custom_op_name |NN const OP *o
 ApR    |const char *   |custom_op_desc |NN const OP *o
+Aop    |void   |custom_op_register     |NN Perl_ppaddr_t ppaddr \
+                       |NN const XOP *xop
 
 Adp    |void   |sv_nosharing   |NULLOK SV *sv
 Adpbm  |void   |sv_nolocking   |NULLOK SV *sv
@@ -2051,8 +2057,6 @@ s |void   |deb_stack_n    |NN SV** stack_base|I32 stack_min \
 : Used in perl.c, pp_ctl.c, toke.c
 pda    |PADLIST*|pad_new       |int flags
 : Only used in op.c
-pd     |void   |pad_undef      |NN CV* cv
-: Only used in op.c
 Mpd    |PADOFFSET|pad_add_name |NN const char *name|const STRLEN len\
                                |const U32 flags|NULLOK HV *typestash\
                                |NULLOK HV *ourstash
@@ -2361,13 +2365,13 @@ s       |void   |mro_clean_isarev|NN HV * const isa   \
                                 |const STRLEN len \
                                 |NULLOK HV * const exceptions
 s      |void   |mro_gather_and_rename|NN HV * const stashes \
+                                     |NN HV * const seen_stashes \
                                      |NULLOK HV *stash \
                                      |NULLOK HV *oldstash \
                                      |NN const char *name|I32 namlen
 #endif
 : Used in hv.c, mg.c, pp.c, sv.c
-md     |void   |mro_isa_changed_in|NN HV* stash
-pd     |void   |mro_isa_changed_in3|NULLOK HV* stash|NULLOK const char *stashname|STRLEN stashname_len
+pd     |void   |mro_isa_changed_in|NN HV* stash
 Apd    |void   |mro_method_changed_in  |NN HV* stash
 pdx    |void   |mro_package_moved      |NULLOK HV * const stash|NULLOK HV * const oldstash|NULLOK const GV *gv|NULLOK const char *newname|I32 newname_len
 : Only used in perl.c