mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

embed.fnc: Change EPTR assert for sv_pos_u2b_foo to gt

Browse Source 
These internal functions can handle empty strings, but it aren't called
with those so far, and it is better practice to not call them with an
empty string, so guard against it now.
This commit is contained in:
Karl Williamson 2025-12-16 11:05:13 -07:00 committed by Karl Williamson
parent ac3b9fce9b
commit 274208291b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
embed.fnc
View File

@ -6125,19 +6125,19 @@ S |STRLEN |sv_pos_u2b_cached \
|NN SV * const sv \
|NN MAGIC ** const mgp \
|SPTR const U8 * const start \
|EPTRge const U8 * const send \
|EPTRgt const U8 * const send \
|STRLEN uoffset \
|STRLEN uoffset0 \
|STRLEN boffset0
ST |STRLEN |sv_pos_u2b_forwards \
|SPTR const U8 * const start \
|EPTRge const U8 * const send \
|EPTRgt const U8 * const send \
|NN STRLEN * const uoffset \
|NN bool * const at_end \
|NN bool *canonical_position
ST |STRLEN |sv_pos_u2b_midway \
|SPTR const U8 * const start \
|EPTRge const U8 *send \
|EPTRgt const U8 *send \
|STRLEN uoffset \
|const STRLEN uend
i |void |sv_unglob |NN SV * const sv \

6
proto.h generated
View File

@ -9292,18 +9292,18 @@ STATIC STRLEN
S_sv_pos_u2b_cached(pTHX_ SV * const sv, MAGIC ** const mgp, const U8 * const start, const U8 * const send, STRLEN uoffset, STRLEN uoffset0, STRLEN boffset0);
# define PERL_ARGS_ASSERT_SV_POS_U2B_CACHED \
assert(sv); assert(mgp); assert(start); assert(send); \
assert(start <= send)
assert(start < send)
STATIC STRLEN
S_sv_pos_u2b_forwards(const U8 * const start, const U8 * const send, STRLEN * const uoffset, bool * const at_end, bool *canonical_position);
# define PERL_ARGS_ASSERT_SV_POS_U2B_FORWARDS \
assert(start); assert(send); assert(uoffset); assert(at_end); \
assert(canonical_position); assert(start <= send)
assert(canonical_position); assert(start < send)
STATIC STRLEN
S_sv_pos_u2b_midway(const U8 * const start, const U8 *send, STRLEN uoffset, const STRLEN uend);
# define PERL_ARGS_ASSERT_SV_POS_U2B_MIDWAY \
assert(start); assert(send); assert(start <= send)
assert(start); assert(send); assert(start < send)
STATIC void
S_utf8_mg_len_cache_update(pTHX_ SV * const sv, MAGIC ** const mgp, const STRLEN ulen);