summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorLeon Timmermans <fawaka@gmail.com>2021-10-20 21:39:44 +0200
committerLeon Timmermans <fawaka@gmail.com>2021-10-20 21:39:44 +0200
commit56077d95e0c5c575823e8dc912a857ad69c0feaf (patch)
treec7e370fd594f3102710f12fc5a1d22295be7a565 /inline.h
parent3c9a7db41dfa6138e75ca43b0b39825ccbb1d175 (diff)
downloadperl-56077d95e0c5c575823e8dc912a857ad69c0feaf.tar.gz
Revert "Introduce a "declaration after statement" into inline.h"
This reverts commit 632ce96a35d784df9e43bc8ad87b4e8f1f24a590. Sereal hasn't been fixed yet to deal with the fallout of this change, so we postpone this change for a later moment
Diffstat (limited to 'inline.h')
-rw-r--r--inline.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/inline.h b/inline.h
index e9b5580fff..79155d8d13 100644
--- a/inline.h
+++ b/inline.h
@@ -81,6 +81,8 @@ Approximate Perl equivalent: C<splice(@myarray, $key, 1, $val)>.
PERL_STATIC_INLINE SV**
Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val)
{
+ SV** ary;
+
PERL_ARGS_ASSERT_AV_STORE_SIMPLE;
assert(SvTYPE(av) == SVt_PVAV);
assert(!SvMAGICAL(av));
@@ -88,7 +90,7 @@ Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val)
assert(AvREAL(av));
assert(key > -1);
- SV **ary = AvARRAY(av);
+ ary = AvARRAY(av);
if (AvFILLp(av) < key) {
if (key > AvMAX(av)) {