diff options
| author | Justus Winter <[email protected]> | 2017-04-06 14:24:49 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-06 14:24:49 +0000 |
| commit | f1dc34f502a68673e7a29f3fcf57b8dc6a4fac89 (patch) | |
| tree | 08009c94634948aab00158b7048384c311d49258 /tests/gpgscm/scheme.c | |
| parent | gpgscm: Initialize unused slots in vectors. (diff) | |
| download | gnupg-f1dc34f502a68673e7a29f3fcf57b8dc6a4fac89.tar.gz gnupg-f1dc34f502a68673e7a29f3fcf57b8dc6a4fac89.zip | |
gpgscm: Avoid mutating integer.
* tests/gpgscm/scheme.c (opexe_5): Do not modify the integer in-place
while printing an vector. Integer objects may be shared, so they must
not be mutated.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/gpgscm/scheme.c')
| -rw-r--r-- | tests/gpgscm/scheme.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 3719e5356..aa0cf69e1 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -5181,7 +5181,7 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) { s_return(sc,sc->T); } else { pointer elem=vector_elem(vec,i); - ivalue_unchecked(cdr(sc->args))=i+1; + cdr(sc->args) = mk_integer(sc, i + 1); s_save(sc,OP_PVECFROM, sc->args, sc->NIL); sc->args=elem; if (i > 0) |