summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-08-27 13:16:58 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-08-28 13:04:18 -0700
commit53de131162b599a66defd94fa927e8e247dbf8bd (patch)
tree619342a54ef83e6f9a666ab769ed4654dcd41661
parent53d3c048a927d1699269806f3c36facac8c95023 (diff)
downloadperl-53de131162b599a66defd94fa927e8e247dbf8bd.tar.gz
pad.c: Remove BROKEN from USE_BROKEN_PAD_RESET
-rw-r--r--pad.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/pad.c b/pad.c
index be3d055c2a..e1b0a4fe3c 100644
--- a/pad.c
+++ b/pad.c
@@ -751,7 +751,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
continue;
sv = *av_fetch(PL_comppad, retval, TRUE);
if (!(SvFLAGS(sv) &
-#ifdef USE_BROKEN_PAD_RESET
+#ifdef USE_PAD_RESET
(SVs_PADMY|(konst ? SVs_PADTMP : 0))
#else
(SVs_PADMY|SVs_PADTMP)
@@ -1626,7 +1626,7 @@ Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust)
/* if pad tmps aren't shared between ops, then there's no need to
* create a new tmp when an existing op is freed */
-#ifdef USE_BROKEN_PAD_RESET
+#ifdef USE_PAD_RESET
PL_curpad[po] = newSV(0);
SvPADTMP_on(PL_curpad[po]);
#else
@@ -1663,7 +1663,7 @@ Mark all the current temporaries for reuse
static void
S_pad_reset(pTHX)
{
-#ifdef USE_BROKEN_PAD_RESET
+#ifdef USE_PAD_RESET
if (AvARRAY(PL_comppad) != PL_curpad)
Perl_croak(aTHX_ "panic: pad_reset curpad, %p!=%p",
AvARRAY(PL_comppad), PL_curpad);
@@ -1822,7 +1822,7 @@ Free the SV at offset po in the current pad.
void
Perl_pad_free(pTHX_ PADOFFSET po)
{
-#ifndef USE_BROKEN_PAD_RESET
+#ifndef USE_PAD_RESET
SV *sv;
#endif
ASSERT_CURPAD_LEGAL("pad_free");
@@ -1839,7 +1839,7 @@ Perl_pad_free(pTHX_ PADOFFSET po)
PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po)
);
-#ifndef USE_BROKEN_PAD_RESET
+#ifndef USE_PAD_RESET
sv = PL_curpad[po];
if (sv && sv != &PL_sv_undef && !SvPADMY(sv))
SvFLAGS(sv) &= ~SVs_PADTMP;