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

pp.h: Convert _EXTEND_NEEDS_GROW to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 12:41:51 -06:00
parent 243b0105c7
commit 0a5b2f9e89
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
inline.h
View File

@ -407,7 +407,7 @@ Perl_rpp_extend(pTHX_ SSize_t n)
EXTEND_HWM_SET(PL_stack_sp, n);
#ifndef STRESS_REALLOC
if (UNLIKELY(_EXTEND_NEEDS_GROW(PL_stack_sp, n)))
if (UNLIKELY(EXTEND_NEEDS_GROW_(PL_stack_sp, n)))
#endif
{
(void)stack_grow(PL_stack_sp, PL_stack_sp, n);

10
pp.h
View File

@ -423,7 +423,7 @@ Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
} STMT_END
#else
/* _EXTEND_NEEDS_GROW(p,n): private helper macro for EXTEND().
/* EXTEND_NEEDS_GROW_(p,n): private helper macro for EXTEND().
* Tests to see whether n is too big and we need to grow the stack. Be
* very careful if modifying this. There are many ways to get things wrong
* (wrapping, truncating etc) that could cause a false negative and cause
@ -439,7 +439,7 @@ Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
* this just gives a safe false positive
*/
# define _EXTEND_NEEDS_GROW(p,n) ((n) < 0 || PL_stack_max - (p) < (n))
# define EXTEND_NEEDS_GROW_(p,n) ((n) < 0 || PL_stack_max - (p) < (n))
/* EXTEND_SKIP(): used for where you would normally call EXTEND(), but
@ -452,13 +452,13 @@ Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
# define EXTEND_SKIP(p, n) STMT_START { \
EXTEND_HWM_SET(p, n); \
assert(!_EXTEND_NEEDS_GROW(p,n)); \
assert(!EXTEND_NEEDS_GROW_(p,n)); \
} STMT_END
# define EXTEND(p,n) STMT_START { \
EXTEND_HWM_SET(p, n); \
if (UNLIKELY(_EXTEND_NEEDS_GROW(p,n))) { \
if (UNLIKELY(EXTEND_NEEDS_GROW_(p,n))) { \
sp = stack_grow(sp,p,EXTEND_SAFE_N_(n)); \
PERL_UNUSED_VAR(sp); \
} \
@ -466,7 +466,7 @@ Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
/* Same thing, but update mark register too. */
# define MEXTEND(p,n) STMT_START { \
EXTEND_HWM_SET(p, n); \
if (UNLIKELY(_EXTEND_NEEDS_GROW(p,n))) { \
if (UNLIKELY(EXTEND_NEEDS_GROW_(p,n))) { \
const SSize_t markoff = mark - PL_stack_base;\
sp = stack_grow(sp,p,EXTEND_SAFE_N_(n)); \
mark = PL_stack_base + markoff; \