summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorReini Urban <rurban@x-ray.at>2012-10-21 18:56:11 -0500
committerFather Chrysostomos <sprout@cpan.org>2012-10-25 20:02:56 -0700
commit90840c5d1d3d2c755d7c159f1c92fd655ce53941 (patch)
treebc368dd8b606ddddc77780bec343ecf42015c1ce /op.c
parentf019c49e380f764c1ead36fe3602184804292711 (diff)
downloadperl-90840c5d1d3d2c755d7c159f1c92fd655ce53941.tar.gz
Re-enable static op allocation with obslab
obslab and the removal of the op_latefree logic, which allowed static ops, removed support for the compiler modules, which allocates ops statically. Add an op_static flag to replace the old latefree(d) op_free logic.
Diffstat (limited to 'op.c')
-rw-r--r--op.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/op.c b/op.c
index 8fccf7145a..df5c050214 100644
--- a/op.c
+++ b/op.c
@@ -303,7 +303,8 @@ Perl_Slab_Free(pTHX_ void *op)
PERL_ARGS_ASSERT_SLAB_FREE;
if (!o->op_slabbed) {
- PerlMemShared_free(op);
+ if (!o->op_static)
+ PerlMemShared_free(op);
return;
}