security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2024-12-22 10:19:57 +01:00
Code Activity

gpgscm: Refactor.

Browse Source 
* tests/gpgscm/scheme.c (opexe_0): Reduce code duplication.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-11-18 12:51:00 +01:00
parent d8df804272
commit a3b258d1d1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/gpgscm/scheme.c
View File

@ -2963,16 +2963,16 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
} }
} }
#else
CASE(OP_LAMBDA): /* lambda */
sc->value = sc->code;
/* Fallthrough. */
#endif
CASE(OP_LAMBDA1): CASE(OP_LAMBDA1):
gc_disable(sc, 1); gc_disable(sc, 1);
s_return_enable_gc(sc, mk_closure(sc, sc->value, sc->envir)); s_return_enable_gc(sc, mk_closure(sc, sc->value, sc->envir));
#else
CASE(OP_LAMBDA): /* lambda */
gc_disable(sc, 1);
s_return_enable_gc(sc, mk_closure(sc, sc->code, sc->envir));
#endif
CASE(OP_MKCLOSURE): /* make-closure */ CASE(OP_MKCLOSURE): /* make-closure */
x=car(sc->args); x=car(sc->args);