diff options
| author | Richard Leach <richardleach@users.noreply.github.com> | 2021-06-11 20:48:29 +0100 |
|---|---|---|
| committer | Hugo van der Sanden <hv@crypt.org> | 2021-07-03 02:40:33 +0100 |
| commit | 84c75204391437a2f1d2f579c545b4592014b1cb (patch) | |
| tree | ae4dd6fe22fe647fab18b1c4dcfb5095e4bf2ea8 /proto.h | |
| parent | c683824536c9806b1b970459bf81690e006b59ae (diff) | |
| download | perl-84c75204391437a2f1d2f579c545b4592014b1cb.tar.gz | |
Add inline av_fetch_simple and av_store_simple functions
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -269,6 +269,13 @@ PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval) #define PERL_ARGS_ASSERT_AV_FETCH \ assert(av) +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE SV** Perl_av_fetch_simple(pTHX_ AV *av, SSize_t key, I32 lval) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_AV_FETCH_SIMPLE \ + assert(av) +#endif + PERL_CALLCONV void Perl_av_fill(pTHX_ AV *av, SSize_t fill); #define PERL_ARGS_ASSERT_AV_FILL \ assert(av) @@ -309,6 +316,11 @@ PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV *av) PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val); #define PERL_ARGS_ASSERT_AV_STORE \ assert(av) +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE SV** Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val); +#define PERL_ARGS_ASSERT_AV_STORE_SIMPLE \ + assert(av) +#endif /* PERL_CALLCONV SSize_t av_tindex(pTHX_ AV *av) __attribute__warn_unused_result__; */ #define PERL_ARGS_ASSERT_AV_TINDEX |