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
(perl #128316) preserve errno from failed system calls
[perl5.git]
/
utf8.c
diff --git
a/utf8.c
b/utf8.c
index
2c2ef48
..
56d3322
100644
(file)
--- a/
utf8.c
+++ b/
utf8.c
@@
-1118,7
+1118,7
@@
on the first byte of character or just after the last byte of a character.
*/
U8 *
*/
U8 *
-Perl_utf8_hop(const U8 *s,
I32
off)
+Perl_utf8_hop(const U8 *s,
SSize_t
off)
{
PERL_ARGS_ASSERT_UTF8_HOP;
{
PERL_ARGS_ASSERT_UTF8_HOP;
@@
-2740,7
+2740,7
@@
Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
CopHINTS_set(PL_curcop, PL_hints);
}
if (!SvROK(retval) || SvTYPE(SvRV(retval)) != SVt_PVHV) {
CopHINTS_set(PL_curcop, PL_hints);
}
if (!SvROK(retval) || SvTYPE(SvRV(retval)) != SVt_PVHV) {
- if (SvPOK(retval))
+ if (SvPOK(retval))
{
/* If caller wants to handle missing properties, let them */
if (flags_p && *flags_p & _CORE_SWASH_INIT_RETURN_IF_UNDEF) {
/* If caller wants to handle missing properties, let them */
if (flags_p && *flags_p & _CORE_SWASH_INIT_RETURN_IF_UNDEF) {
@@
-2750,6
+2750,7
@@
Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
"Can't find Unicode property definition \"%"SVf"\"",
SVfARG(retval));
NOT_REACHED; /* NOTREACHED */
"Can't find Unicode property definition \"%"SVf"\"",
SVfARG(retval));
NOT_REACHED; /* NOTREACHED */
+ }
}
} /* End of calling the module to find the swash */
}
} /* End of calling the module to find the swash */
@@
-3634,12
+3635,12
@@
Perl__swash_inversion_hash(pTHX_ SV* const swash)
while ((from_list = (AV *) hv_iternextsv(specials_inverse,
&char_to, &to_len)))
{
while ((from_list = (AV *) hv_iternextsv(specials_inverse,
&char_to, &to_len)))
{
- if (av_tindex(from_list) > 0) {
+ if (av_tindex
_nomg
(from_list) > 0) {
SSize_t i;
/* We iterate over all combinations of i,j to place each code
* point on each list */
SSize_t i;
/* We iterate over all combinations of i,j to place each code
* point on each list */
- for (i = 0; i <= av_tindex(from_list); i++) {
+ for (i = 0; i <= av_tindex
_nomg
(from_list); i++) {
SSize_t j;
AV* i_list = newAV();
SV** entryp = av_fetch(from_list, i, FALSE);
SSize_t j;
AV* i_list = newAV();
SV** entryp = av_fetch(from_list, i, FALSE);
@@
-3656,7
+3657,7
@@
Perl__swash_inversion_hash(pTHX_ SV* const swash)
}
/* For DEBUG_U: UV u = valid_utf8_to_uvchr((U8*) SvPVX(*entryp), 0);*/
}
/* For DEBUG_U: UV u = valid_utf8_to_uvchr((U8*) SvPVX(*entryp), 0);*/
- for (j = 0; j <= av_tindex(from_list); j++) {
+ for (j = 0; j <= av_tindex
_nomg
(from_list); j++) {
entryp = av_fetch(from_list, j, FALSE);
if (entryp == NULL) {
Perl_croak(aTHX_ "panic: av_fetch() unexpectedly failed");
entryp = av_fetch(from_list, j, FALSE);
if (entryp == NULL) {
Perl_croak(aTHX_ "panic: av_fetch() unexpectedly failed");
@@
-3732,7
+3733,7
@@
Perl__swash_inversion_hash(pTHX_ SV* const swash)
/* Look through list to see if this inverse mapping already is
* listed, or if there is a mapping to itself already */
/* Look through list to see if this inverse mapping already is
* listed, or if there is a mapping to itself already */
- for (i = 0; i <= av_tindex(list); i++) {
+ for (i = 0; i <= av_tindex
_nomg
(list); i++) {
SV** entryp = av_fetch(list, i, FALSE);
SV* entry;
UV uv;
SV** entryp = av_fetch(list, i, FALSE);
SV* entry;
UV uv;