gpgscm: Simplify substring operation.

* tests/gpgscm/scheme.c (opexe_2): Simplify 'substring'.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-04-04 14:28:45 +02:00
parent 685438bf6f
commit d858096c99
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 1 additions and 7 deletions

View File

@ -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 */