diff options
| author | Justus Winter <justus@g10code.com> | 2016-11-15 11:07:57 +0100 |
|---|---|---|
| committer | Justus Winter <justus@g10code.com> | 2016-11-15 11:10:56 +0100 |
| commit | 93cc322ac06d3045a24aece90091f7f80f3dacb8 (patch) | |
| tree | 9fd2f23dc8fc12b162020577daddfb294e334e36 /tests | |
| parent | g10: Fix memory leak. (diff) | |
| download | gnupg2-93cc322ac06d3045a24aece90091f7f80f3dacb8.tar.xz gnupg2-93cc322ac06d3045a24aece90091f7f80f3dacb8.zip | |
gpgscm: Recover more cells.
* tests/gpgscm/scheme.c (_s_return): Recover the cell holding the
opcode.
Fixes-commit: e0cbd3389e2dd6ec19ee3a4c7bad81fa0f1907f5
Signed-off-by: Justus Winter <justus@g10code.com>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gpgscm/scheme.c | 1 |
1 files changed, 1 insertions, 0 deletions
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); |