summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-07-14 19:00:17 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-07-14 19:00:17 -0700
commit571a568a1025d5e998209899bcdba774861257f0 (patch)
tree53f768b111059eb6f64b1af5bffb48801e1ea3d9 /dump.c
parentc55d2e076a02daf604c28e6725a61c1495171552 (diff)
downloadperl-571a568a1025d5e998209899bcdba774861257f0.tar.gz
Remove op_latefree(d)
This was an early attempt to fix leaking of ops after syntax errors, disabled because it was deemed to fragile. The new slab allocator (8be227a) has solved this problem another way, so latefree(d) no longer serves any purpose.
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/dump.c b/dump.c
index ad3b96025c..ebfb3db5f3 100644
--- a/dump.c
+++ b/dump.c
@@ -883,7 +883,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
#ifdef DUMPADDR
Perl_dump_indent(aTHX_ level, file, "ADDR = 0x%"UVxf" => 0x%"UVxf"\n", (UV)o, (UV)o->op_next);
#endif
- if (o->op_flags || o->op_latefree || o->op_latefreed || o->op_attached) {
+ if (o->op_flags) {
SV * const tmpsv = newSVpvs("");
switch (o->op_flags & OPf_WANT) {
case OPf_WANT_VOID:
@@ -900,12 +900,6 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
break;
}
append_flags(tmpsv, o->op_flags, op_flags_names);
- if (o->op_latefree)
- sv_catpv(tmpsv, ",LATEFREE");
- if (o->op_latefreed)
- sv_catpv(tmpsv, ",LATEFREED");
- if (o->op_attached)
- sv_catpv(tmpsv, ",ATTACHED");
Perl_dump_indent(aTHX_ level, file, "FLAGS = (%s)\n", SvCUR(tmpsv) ? SvPVX_const(tmpsv) + 1 : "");
SvREFCNT_dec(tmpsv);
}