diff options
author | Karl Williamson <khw@cpan.org> | 2020-11-29 08:54:43 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-06 09:02:53 -0700 |
commit | 4eff5eb8fa96cf12671631ada42a7f7a00d51c5b (patch) | |
tree | 490cff8b1635d517dceded96731364fd9dc6aa8d /proto.h | |
parent | 269cb1d351d144f06b2b724d50e35e7b7e6bc4b9 (diff) | |
download | perl-4eff5eb8fa96cf12671631ada42a7f7a00d51c5b.tar.gz |
Evaluate arg once in all forms of SvTRUE
5.32 did this for one form; now all do.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 18 |
1 files changed, 18 insertions, 0 deletions
@@ -117,6 +117,24 @@ PERL_STATIC_INLINE void Perl_SvREFCNT_inc_void(SV *sv); #define PERL_ARGS_ASSERT_SVREFCNT_INC_VOID #endif #ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE bool Perl_SvTRUE(pTHX_ SV *sv); +#define PERL_ARGS_ASSERT_SVTRUE +#endif +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE bool Perl_SvTRUE_NN(pTHX_ SV *sv); +#define PERL_ARGS_ASSERT_SVTRUE_NN \ + assert(sv) +#endif +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE bool Perl_SvTRUE_common(pTHX_ SV *sv, const bool sv_2bool_is_fallback); +#define PERL_ARGS_ASSERT_SVTRUE_COMMON \ + assert(sv) +#endif +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE bool Perl_SvTRUE_nomg(pTHX_ SV *sv); +#define PERL_ARGS_ASSERT_SVTRUE_NOMG +#endif +#ifndef PERL_NO_INLINE_FUNCTIONS PERL_STATIC_INLINE I32 Perl_TOPMARK(pTHX); #define PERL_ARGS_ASSERT_TOPMARK #endif |