gpgscm: Recover more cells.
authorJustus Winter <justus@g10code.com>
Tue, 15 Nov 2016 10:07:57 +0000 (11:07 +0100)
committerJustus Winter <justus@g10code.com>
Tue, 15 Nov 2016 10:10:56 +0000 (11:10 +0100)
* tests/gpgscm/scheme.c (_s_return): Recover the cell holding the
opcode.

Fixes-commit: e0cbd3389e2dd6ec19ee3a4c7bad81fa0f1907f5
Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/scheme.c

index ce31f8d..3ed1a00 100644 (file)
@@ -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);