This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Uncheckedin generated files.
[perl5.git]
/
perlapi.c
diff --git
a/perlapi.c
b/perlapi.c
old mode 100755
(executable)
new mode 100644
(file)
index
6a54b94
..
bb32970
--- a/
perlapi.c
+++ b/
perlapi.c
@@
-1,4
+1,4
@@
-/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
+/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
perlvars.h and thrdvar.h. Any changes made here will be lost!
*/
This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
perlvars.h and thrdvar.h. Any changes made here will be lost!
*/
@@
-85,6
+85,13
@@
Perl_Gv_AMupdate(pTHXo_ HV* stash)
return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
}
return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
}
+#undef Perl_gv_handler
+CV*
+Perl_gv_handler(pTHXo_ HV* stash, I32 id)
+{
+ return ((CPerlObj*)pPerl)->Perl_gv_handler(stash, id);
+}
+
#undef Perl_apply_attrs_string
void
Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len)
#undef Perl_apply_attrs_string
void
Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len)
@@
-169,13
+176,6
@@
Perl_av_extend(pTHXo_ AV* ar, I32 key)
((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
}
((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
}
-#undef Perl_av_fake
-AV*
-Perl_av_fake(pTHXo_ I32 size, SV** svp)
-{
- return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
-}
-
#undef Perl_av_fetch
SV**
Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
#undef Perl_av_fetch
SV**
Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
@@
-218,13
+218,6
@@
Perl_av_push(pTHXo_ AV* ar, SV* val)
((CPerlObj*)pPerl)->Perl_av_push(ar, val);
}
((CPerlObj*)pPerl)->Perl_av_push(ar, val);
}
-#undef Perl_av_reify
-void
-Perl_av_reify(pTHXo_ AV* ar)
-{
- ((CPerlObj*)pPerl)->Perl_av_reify(ar);
-}
-
#undef Perl_av_shift
SV*
Perl_av_shift(pTHXo_ AV* ar)
#undef Perl_av_shift
SV*
Perl_av_shift(pTHXo_ AV* ar)
@@
-843,6
+836,13
@@
Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
}
((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
}
+#undef Perl_gv_efullname4
+void
+Perl_gv_efullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain)
+{
+ ((CPerlObj*)pPerl)->Perl_gv_efullname4(sv, gv, prefix, keepmain);
+}
+
#undef Perl_gv_fetchfile
GV*
Perl_gv_fetchfile(pTHXo_ const char* name)
#undef Perl_gv_fetchfile
GV*
Perl_gv_fetchfile(pTHXo_ const char* name)
@@
-892,6
+892,13
@@
Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
}
((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
}
+#undef Perl_gv_fullname4
+void
+Perl_gv_fullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain)
+{
+ ((CPerlObj*)pPerl)->Perl_gv_fullname4(sv, gv, prefix, keepmain);
+}
+
#undef Perl_gv_init
void
Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
#undef Perl_gv_init
void
Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
@@
-936,7
+943,7
@@
Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
#undef Perl_hv_delete
SV*
#undef Perl_hv_delete
SV*
-Perl_hv_delete(pTHXo_ HV* tb, const char* key,
U
32 klen, I32 flags)
+Perl_hv_delete(pTHXo_ HV* tb, const char* key,
I
32 klen, I32 flags)
{
return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
}
{
return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
}
@@
-950,7
+957,7
@@
Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
#undef Perl_hv_exists
bool
#undef Perl_hv_exists
bool
-Perl_hv_exists(pTHXo_ HV* tb, const char* key,
U
32 klen)
+Perl_hv_exists(pTHXo_ HV* tb, const char* key,
I
32 klen)
{
return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
}
{
return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
}
@@
-964,7
+971,7
@@
Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
#undef Perl_hv_fetch
SV**
#undef Perl_hv_fetch
SV**
-Perl_hv_fetch(pTHXo_ HV* tb, const char* key,
U
32 klen, I32 lval)
+Perl_hv_fetch(pTHXo_ HV* tb, const char* key,
I
32 klen, I32 lval)
{
return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
}
{
return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
}
@@
-1041,7
+1048,7
@@
Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
#undef Perl_hv_store
SV**
#undef Perl_hv_store
SV**
-Perl_hv_store(pTHXo_ HV* tb, const char* key,
U
32 klen, SV* val, U32 hash)
+Perl_hv_store(pTHXo_ HV* tb, const char* key,
I
32 klen, SV* val, U32 hash)
{
return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
}
{
return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
}
@@
-1327,7
+1334,7
@@
Perl_to_uni_lower_lc(pTHXo_ U32 c)
}
#undef Perl_is_utf8_char
}
#undef Perl_is_utf8_char
-int
+STRLEN
Perl_is_utf8_char(pTHXo_ U8 *p)
{
return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
Perl_is_utf8_char(pTHXo_ U8 *p)
{
return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
@@
-1743,10
+1750,10
@@
Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
}
#undef Perl_newCONSTSUB
}
#undef Perl_newCONSTSUB
-void
+CV*
Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
{
Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
{
- ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
+
return
((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
}
#undef Perl_newFORM
}
#undef Perl_newFORM
@@
-2015,6
+2022,13
@@
Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
}
return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
}
+#undef Perl_newSVpvn_share
+SV*
+Perl_newSVpvn_share(pTHXo_ const char* s, I32 len, U32 hash)
+{
+ return ((CPerlObj*)pPerl)->Perl_newSVpvn_share(s, len, hash);
+}
+
#undef Perl_newSVpvf
SV*
Perl_newSVpvf(pTHXo_ const char* pat, ...)
#undef Perl_newSVpvf
SV*
Perl_newSVpvf(pTHXo_ const char* pat, ...)
@@
-2230,21
+2244,21
@@
Perl_init_i18nl14n(pTHXo_ int printwarn)
#undef Perl_new_collate
void
#undef Perl_new_collate
void
-Perl_new_collate(pTHXo_ c
onst c
har* newcoll)
+Perl_new_collate(pTHXo_ char* newcoll)
{
((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
}
#undef Perl_new_ctype
void
{
((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
}
#undef Perl_new_ctype
void
-Perl_new_ctype(pTHXo_ c
onst c
har* newctype)
+Perl_new_ctype(pTHXo_ char* newctype)
{
((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
}
#undef Perl_new_numeric
void
{
((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
}
#undef Perl_new_numeric
void
-Perl_new_numeric(pTHXo_ c
onst c
har* newcoll)
+Perl_new_numeric(pTHXo_ char* newcoll)
{
((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
}
{
((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
}
@@
-2305,6
+2319,13
@@
Perl_regdump(pTHXo_ regexp* r)
((CPerlObj*)pPerl)->Perl_regdump(r);
}
((CPerlObj*)pPerl)->Perl_regdump(r);
}
+#undef Perl_regclass_swash
+SV*
+Perl_regclass_swash(pTHXo_ struct regnode *n, bool doinit, SV **initsvp)
+{
+ return ((CPerlObj*)pPerl)->Perl_regclass_swash(n, doinit, initsvp);
+}
+
#undef Perl_pregexec
I32
Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
#undef Perl_pregexec
I32
Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
@@
-2608,6
+2629,13
@@
Perl_save_re_context(pTHXo)
((CPerlObj*)pPerl)->Perl_save_re_context();
}
((CPerlObj*)pPerl)->Perl_save_re_context();
}
+#undef Perl_save_padsv
+void
+Perl_save_padsv(pTHXo_ PADOFFSET off)
+{
+ ((CPerlObj*)pPerl)->Perl_save_padsv(off);
+}
+
#undef Perl_save_sptr
void
Perl_save_sptr(pTHXo_ SV** sptr)
#undef Perl_save_sptr
void
Perl_save_sptr(pTHXo_ SV** sptr)
@@
-2631,28
+2659,28
@@
Perl_save_threadsv(pTHXo_ PADOFFSET i)
#undef Perl_scan_bin
NV
#undef Perl_scan_bin
NV
-Perl_scan_bin(pTHXo_ char* start,
I32 len, I32
* retlen)
+Perl_scan_bin(pTHXo_ char* start,
STRLEN len, STRLEN
* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
}
#undef Perl_scan_hex
NV
{
return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
}
#undef Perl_scan_hex
NV
-Perl_scan_hex(pTHXo_ char* start,
I32 len, I32
* retlen)
+Perl_scan_hex(pTHXo_ char* start,
STRLEN len, STRLEN
* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
}
#undef Perl_scan_num
char*
{
return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
}
#undef Perl_scan_num
char*
-Perl_scan_num(pTHXo_ char* s)
+Perl_scan_num(pTHXo_ char* s
, YYSTYPE *lvalp
)
{
{
- return ((CPerlObj*)pPerl)->Perl_scan_num(s);
+ return ((CPerlObj*)pPerl)->Perl_scan_num(s
, lvalp
);
}
#undef Perl_scan_oct
NV
}
#undef Perl_scan_oct
NV
-Perl_scan_oct(pTHXo_ char* start,
I32 len, I32
* retlen)
+Perl_scan_oct(pTHXo_ char* start,
STRLEN len, STRLEN
* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
}
{
return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
}
@@
-3213,6
+3241,13
@@
Perl_sv_unref(pTHXo_ SV* sv)
((CPerlObj*)pPerl)->Perl_sv_unref(sv);
}
((CPerlObj*)pPerl)->Perl_sv_unref(sv);
}
+#undef Perl_sv_unref_flags
+void
+Perl_sv_unref_flags(pTHXo_ SV* sv, U32 flags)
+{
+ ((CPerlObj*)pPerl)->Perl_sv_unref_flags(sv, flags);
+}
+
#undef Perl_sv_untaint
void
Perl_sv_untaint(pTHXo_ SV* sv)
#undef Perl_sv_untaint
void
Perl_sv_untaint(pTHXo_ SV* sv)
@@
-3331,20
+3366,27
@@
Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
#undef Perl_utf16_to_utf8
U8*
#undef Perl_utf16_to_utf8
U8*
-Perl_utf16_to_utf8(pTHXo_ U
16* p, U8 *d, I32 byte
len)
+Perl_utf16_to_utf8(pTHXo_ U
8* p, U8 *d, I32 bytelen, I32 *new
len)
{
{
- return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
+ return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen
, newlen
);
}
#undef Perl_utf16_to_utf8_reversed
U8*
}
#undef Perl_utf16_to_utf8_reversed
U8*
-Perl_utf16_to_utf8_reversed(pTHXo_ U
16* p, U8 *d, I32 byte
len)
+Perl_utf16_to_utf8_reversed(pTHXo_ U
8* p, U8 *d, I32 bytelen, I32 *new
len)
{
{
- return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
+ return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen, newlen);
+}
+
+#undef Perl_utf8_length
+STRLEN
+Perl_utf8_length(pTHXo_ U8* s, U8 *e)
+{
+ return ((CPerlObj*)pPerl)->Perl_utf8_length(s, e);
}
#undef Perl_utf8_distance
}
#undef Perl_utf8_distance
-I
32
+I
V
Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
{
return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
{
return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
@@
-3359,7
+3401,7
@@
Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
#undef Perl_utf8_to_bytes
U8*
#undef Perl_utf8_to_bytes
U8*
-Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN len)
+Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN
*
len)
{
return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len);
}
{
return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len);
}
@@
-3371,11
+3413,18
@@
Perl_bytes_to_utf8(pTHXo_ U8 *s, STRLEN *len)
return ((CPerlObj*)pPerl)->Perl_bytes_to_utf8(s, len);
}
return ((CPerlObj*)pPerl)->Perl_bytes_to_utf8(s, len);
}
+#undef Perl_utf8_to_uv_simple
+UV
+Perl_utf8_to_uv_simple(pTHXo_ U8 *s, STRLEN* retlen)
+{
+ return ((CPerlObj*)pPerl)->Perl_utf8_to_uv_simple(s, retlen);
+}
+
#undef Perl_utf8_to_uv
UV
#undef Perl_utf8_to_uv
UV
-Perl_utf8_to_uv(pTHXo_ U8 *s,
I32* retlen
)
+Perl_utf8_to_uv(pTHXo_ U8 *s,
STRLEN curlen, STRLEN* retlen, U32 flags
)
{
{
- return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s,
retlen
);
+ return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s,
curlen, retlen, flags
);
}
#undef Perl_uv_to_utf8
}
#undef Perl_uv_to_utf8
@@
-3425,7
+3474,7
@@
Perl_whichsig(pTHXo_ char* sig)
{
return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
}
{
return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
}
-#if
defined(USE_PURE_BISON)
+#if
def USE_PURE_BISON
#else
#endif
#if defined(MYMALLOC)
#else
#endif
#if defined(MYMALLOC)
@@
-3840,6
+3889,13
@@
Perl_sv_force_normal(pTHXo_ SV *sv)
((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
}
((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
}
+#undef Perl_sv_force_normal_flags
+void
+Perl_sv_force_normal_flags(pTHXo_ SV *sv, U32 flags)
+{
+ ((CPerlObj*)pPerl)->Perl_sv_force_normal_flags(sv, flags);
+}
+
#undef Perl_tmps_grow
void
Perl_tmps_grow(pTHXo_ I32 n)
#undef Perl_tmps_grow
void
Perl_tmps_grow(pTHXo_ I32 n)
@@
-4054,6
+4110,8
@@
Perl_sys_intern_init(pTHXo)
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
# if defined(DEBUGGING)
# endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
# if defined(DEBUGGING)
# endif
+# if !defined(NV_PRESERVES_UV)
+# endif
#endif
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
#if 0
#endif
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
#if 0