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

embed.fnc: Add string arg assertions for S_packlist

Browse Source 
This function takes a string argument with beginning and ending
positions.  It appears to me that those positions are overwritten
without being examined, but the function does get called with an
apparently empty string, but it actually contains a NUL.
This commit is contained in:
Karl Williamson 2025-12-16 12:14:50 -07:00 committed by Karl Williamson
parent c6c2ced1e9
commit 31d13f8ab7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
embed.fnc
View File

@ -2588,8 +2588,8 @@ p |void |output_non_portable \
dp |void |package |NN OP *name \
|NULLOK OP *version
Adp |void |packlist |NN SV *cat \
|NN const char *pat \
|NN const char *patend \
|SPTR const char *pat \
|EPTRtermNUL const char *patend \
|NN SV **beglist \
|NN SV **endlist
Adp |PADOFFSET|pad_add_anon |NN CV *func \

2
proto.h generated
View File

@ -3337,7 +3337,7 @@ PERL_CALLCONV void
Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist);
#define PERL_ARGS_ASSERT_PACKLIST \
assert(cat); assert(pat); assert(patend); assert(beglist); \
assert(endlist)
assert(endlist); assert(pat <= patend); assert(*patend == '\0')
PERL_CALLCONV PADOFFSET
Perl_pad_add_anon(pTHX_ CV *func, I32 optype);