reset(tc);
- if (subenv && subenv->ctxsz) tc->subctx = x_alloc(tv->a, subenv->ctxsz);
- else tc->subctx = 0;
+ if (subenv && subenv->ctxsz)
+ tc->subctx = pool_alloc(tv->p_group, subenv->ctxsz);
+ else
+ tc->subctx = 0;
if (subenv && subenv->setup) subenv->setup(tv, subenv, tc, tc->subctx);
}
/* Just call the subsidiary environment. */
if (subenv && subenv->teardown) subenv->teardown(tv, tc->subctx);
- x_free(tv->a, tc->subctx);
}
/*----- That's all, folks -------------------------------------------------*/