gpgscm: Free file names.

* tests/gpgscm/scheme.c (scheme_load_named_file): Free file name.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-06-28 18:10:01 +02:00
parent 56cebdc30c
commit 6cb2be91a7
1 changed files with 5 additions and 0 deletions

View File

@ -4938,6 +4938,11 @@ void scheme_load_named_file(scheme *sc, FILE *fin, const char *filename) {
if(sc->retcode==0) {
sc->retcode=sc->nesting!=0;
}
#if SHOW_ERROR_LINE
sc->free(sc->load_stack[0].rep.stdio.filename);
sc->load_stack[0].rep.stdio.filename = NULL;
#endif
}
void scheme_load_string(scheme *sc, const char *cmd) {