This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update PERL_MEM_LOG in perlhack.pod
[perl5.git]
/
pad.c
diff --git
a/pad.c
b/pad.c
index
fa19458
..
a68e202
100644
(file)
--- a/
pad.c
+++ b/
pad.c
@@
-180,7
+180,7
@@
Perl_pad_new(pTHX_ int flags)
SAVEI32(PL_max_intro_pending);
SAVEBOOL(PL_cv_has_eval);
if (flags & padnew_SAVESUB) {
SAVEI32(PL_max_intro_pending);
SAVEBOOL(PL_cv_has_eval);
if (flags & padnew_SAVESUB) {
- SAVE
I32
(PL_pad_reset_pending);
+ SAVE
BOOL
(PL_pad_reset_pending);
}
}
}
}
}
}
@@
-1150,8
+1150,8
@@
Mark all the current temporaries for reuse
* to a shared TARG. Such an alias will change randomly and unpredictably.
* We avoid doing this until we can think of a Better Way.
* GSAR 97-10-29 */
* to a shared TARG. Such an alias will change randomly and unpredictably.
* We avoid doing this until we can think of a Better Way.
* GSAR 97-10-29 */
-void
-
Perl
_pad_reset(pTHX)
+
static
void
+
S
_pad_reset(pTHX)
{
dVAR;
#ifdef USE_BROKEN_PAD_RESET
{
dVAR;
#ifdef USE_BROKEN_PAD_RESET
@@
-1310,13
+1310,7
@@
Perl_pad_free(pTHX_ PADOFFSET po)
SvPADTMP_off(PL_curpad[po]);
#ifdef USE_ITHREADS
/* SV could be a shared hash key (eg bugid #19022) */
SvPADTMP_off(PL_curpad[po]);
#ifdef USE_ITHREADS
/* SV could be a shared hash key (eg bugid #19022) */
- if (
-#ifdef PERL_OLD_COPY_ON_WRITE
- !SvIsCOW(PL_curpad[po])
-#else
- !SvFAKE(PL_curpad[po])
-#endif
- )
+ if (!SvIsCOW(PL_curpad[po]))
SvREADONLY_off(PL_curpad[po]); /* could be a freed constant */
#endif
}
SvREADONLY_off(PL_curpad[po]); /* could be a freed constant */
#endif
}