PERL_MM_USE_DEFAULT

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

diff --git a/embed.pl b/embed.pl
index 8671366..9261787 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1353,9 +1353,9 @@ Ap        |bool   |is_uni_lower   |U32 c
 Ap     |bool   |is_uni_print   |U32 c
 Ap     |bool   |is_uni_punct   |U32 c
 Ap     |bool   |is_uni_xdigit  |U32 c
-Ap     |U32    |to_uni_upper   |U32 c
-Ap     |U32    |to_uni_title   |U32 c
-Ap     |U32    |to_uni_lower   |U32 c
+Ap     |U32    |to_uni_upper   |U32 c|U8 *p|STRLEN *lenp
+Ap     |U32    |to_uni_title   |U32 c|U8 *p|STRLEN *lenp
+Ap     |U32    |to_uni_lower   |U32 c|U8 *p|STRLEN *lenp
 Ap     |bool   |is_uni_alnum_lc|U32 c
 Ap     |bool   |is_uni_alnumc_lc|U32 c
 Ap     |bool   |is_uni_idfirst_lc|U32 c
@@ -1370,9 +1370,6 @@ Ap        |bool   |is_uni_lower_lc|U32 c
 Ap     |bool   |is_uni_print_lc|U32 c
 Ap     |bool   |is_uni_punct_lc|U32 c
 Ap     |bool   |is_uni_xdigit_lc|U32 c
-Ap     |U32    |to_uni_upper_lc|U32 c
-Ap     |U32    |to_uni_title_lc|U32 c
-Ap     |U32    |to_uni_lower_lc|U32 c
 Apd    |STRLEN |is_utf8_char   |U8 *p
 Apd    |bool   |is_utf8_string |U8 *s|STRLEN len
 Ap     |bool   |is_utf8_alnum  |U8 *p
@@ -1469,6 +1466,7 @@ p |char*  |mem_collxfrm   |const char* s|STRLEN len|STRLEN* xlen
 Afp    |SV*    |mess           |const char* pat|...
 Ap     |SV*    |vmess          |const char* pat|va_list* args
 p      |void   |qerror         |SV* err
+Apd    |void   |sortsv         |SV ** array|size_t num_elts|SVCOMPARE_t f
 Apd    |int    |mg_clear       |SV* sv
 Apd    |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
 Apd    |MAGIC* |mg_find        |SV* sv|int type
@@ -1816,9 +1814,9 @@ Ap        |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
 Ap     |UV     |swash_fetch    |SV *sv|U8 *ptr|bool do_utf8
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |const char* f|const char* s
-Ap     |UV     |to_utf8_lower  |U8 *p
-Ap     |UV     |to_utf8_upper  |U8 *p
-Ap     |UV     |to_utf8_title  |U8 *p
+Ap     |UV     |to_utf8_lower  |U8 *p|U8* ustrp|STRLEN *lenp
+Ap     |UV     |to_utf8_upper  |U8 *p|U8* ustrp|STRLEN *lenp
+Ap     |UV     |to_utf8_title  |U8 *p|U8* ustrp|STRLEN *lenp
 #if defined(UNLINK_ALL_VERSIONS)
 Ap     |I32    |unlnk          |char* f
 #endif
@@ -1898,8 +1896,9 @@ Apd       |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
 Apd    |void   |sv_setsv_mg    |SV *dstr|SV *sstr
 Apd    |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
 Ap     |MGVTBL*|get_vtbl       |int vtbl_id
-p      |char*  |pv_display     |SV *sv|char *pv|STRLEN cur|STRLEN len \
+p      |char*  |pv_display     |SV *dsv|char *pv|STRLEN cur|STRLEN len \
                                |STRLEN pvlim
+p      |char*  |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim
 Afp    |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
 Ap     |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
                                |va_list *args
@@ -1941,17 +1940,17 @@ Ap      |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
 p      |OP *   |my_attrs       |OP *o|OP *attrs
 p      |void   |boot_core_xsutils
 #if defined(USE_ITHREADS)
-Ap     |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max|clone_params* param
-Ap     |PERL_SI*|si_dup        |PERL_SI* si|clone_params* param
-Ap     |ANY*   |ss_dup         |PerlInterpreter* proto_perl|clone_params* param
+Ap     |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max|CLONE_PARAMS* param
+Ap     |PERL_SI*|si_dup        |PERL_SI* si|CLONE_PARAMS* param
+Ap     |ANY*   |ss_dup         |PerlInterpreter* proto_perl|CLONE_PARAMS* param
 Ap     |void*  |any_dup        |void* v|PerlInterpreter* proto_perl
-Ap     |HE*    |he_dup         |HE* e|bool shared|clone_params* param
-Ap     |REGEXP*|re_dup         |REGEXP* r|clone_params* param
-Ap     |PerlIO*|fp_dup         |PerlIO* fp|char type
+Ap     |HE*    |he_dup         |HE* e|bool shared|CLONE_PARAMS* param
+Ap     |REGEXP*|re_dup         |REGEXP* r|CLONE_PARAMS* param
+Ap     |PerlIO*|fp_dup         |PerlIO* fp|char type|CLONE_PARAMS* param
 Ap     |DIR*   |dirp_dup       |DIR* dp
-Ap     |GP*    |gp_dup         |GP* gp|clone_params* param
-Ap     |MAGIC* |mg_dup         |MAGIC* mg|clone_params* param
-Ap     |SV*    |sv_dup         |SV* sstr|clone_params* param
+Ap     |GP*    |gp_dup         |GP* gp|CLONE_PARAMS* param
+Ap     |MAGIC* |mg_dup         |MAGIC* mg|CLONE_PARAMS* param
+Ap     |SV*    |sv_dup         |SV* sstr|CLONE_PARAMS* param
 #if defined(HAVE_INTERP_INTERN)
 Ap     |void   |sys_intern_dup |struct interp_intern* src \
                                |struct interp_intern* dst
@@ -2103,7 +2102,6 @@ s |I32    |dopoptosub_at  |PERL_CONTEXT* cxstk|I32 startingblock
 s      |void   |save_lines     |AV *array|SV *sv
 s      |OP*    |doeval         |int gimme|OP** startop
 s      |PerlIO *|doopen_pmc    |const char *name|const char *mode
-s      |void   |qsortsv        |SV ** array|size_t num_elts|SVCOMPARE_t f
 #endif
 
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)