diff options
| author | Justus Winter <[email protected]> | 2017-04-05 14:56:46 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-10 12:57:36 +0000 |
| commit | 1b6adab41d386b587f65e5c6f14a63859ac1226b (patch) | |
| tree | 2d5ec1ead7d60ddef3191f3aa9b15e5547d5b500 /tests/gpgscm/scheme.c | |
| parent | gpgscm: Mmap script files. (diff) | |
| download | gnupg-1b6adab41d386b587f65e5c6f14a63859ac1226b.tar.gz gnupg-1b6adab41d386b587f65e5c6f14a63859ac1226b.zip | |
gpgscm: Fix opcode dispatch.
* tests/gpgscm/scheme.c (opexe_0): Consider 'op', not 'sc->op'. The
former is the opcode we are currently executing.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/gpgscm/scheme.c')
| -rw-r--r-- | tests/gpgscm/scheme.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index fd9920704..933dc4552 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -4884,7 +4884,7 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) { if(c==EOF) { s_return(sc,sc->EOF_OBJ); } - if(sc->op==OP_PEEK_CHAR) { + if(op==OP_PEEK_CHAR) { backchar(sc,c); } s_return(sc,mk_character(sc,c)); @@ -5183,7 +5183,7 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) { CASE(OP_VM_HISTORY): /* *vm-history* */ s_return(sc, history_flatten(sc)); default: - snprintf(sc->strbuff,STRBUFFSIZE,"%d: illegal operator", sc->op); + snprintf(sc->strbuff,STRBUFFSIZE,"%d: illegal operator", op); Error_0(sc,sc->strbuff); } return sc->T; /* NOTREACHED */ |