From 93cc322ac06d3045a24aece90091f7f80f3dacb8 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 15 Nov 2016 11:07:57 +0100 Subject: gpgscm: Recover more cells. * tests/gpgscm/scheme.c (_s_return): Recover the cell holding the opcode. Fixes-commit: e0cbd3389e2dd6ec19ee3a4c7bad81fa0f1907f5 Signed-off-by: Justus Winter --- tests/gpgscm/scheme.c | 1 + 1 file changed, 1 insertion(+) (limited to 'tests') diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index ce31f8d30..3ed1a00ca 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -2643,6 +2643,7 @@ static pointer _s_return(scheme *sc, pointer a, int enable_gc) { return sc->NIL; free_cons(sc, dump, &op, &dump); sc->op = ivalue(op); + free_cell(sc, op); free_cons(sc, dump, &sc->args, &dump); free_cons(sc, dump, &sc->envir, &dump); free_cons(sc, dump, &sc->code, &sc->dump); -- cgit v1.2.3