From d858096c99705ccf2e115475f81c4cf88edbeebf Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 4 Apr 2017 14:28:45 +0200 Subject: [PATCH] gpgscm: Simplify substring operation. * tests/gpgscm/scheme.c (opexe_2): Simplify 'substring'. Signed-off-by: Justus Winter --- tests/gpgscm/scheme.c | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index fbc562d97..3c7afa3bd 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -4355,7 +4355,6 @@ static pointer opexe_2(scheme *sc, enum scheme_opcodes op) { char *str; int index0; int index1; - int len; str=strvalue(car(sc->args)); @@ -4374,13 +4373,8 @@ static pointer opexe_2(scheme *sc, enum scheme_opcodes op) { index1=strlength(car(sc->args)); } - len=index1-index0; gc_disable(sc, 1); - x=mk_empty_string(sc,len,' '); - memcpy(strvalue(x),str+index0,len); - strvalue(x)[len]=0; - - s_return_enable_gc(sc, x); + s_return_enable_gc(sc, mk_counted_string(sc, str + index0, index1 - index0)); } CASE(OP_VECTOR): { /* vector */