diff options
| author | Justus Winter <[email protected]> | 2016-06-30 10:35:27 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-06-30 13:31:37 +0000 |
| commit | 599ad21104e622acbd1230d90d6a23abf9145499 (patch) | |
| tree | f83c2f6de023fec7d34b20293c8bb0984d842131 /tests/gpgscm/scheme.c | |
| parent | gpgscm: Use the allocator from libgcrypt. (diff) | |
| download | gnupg-599ad21104e622acbd1230d90d6a23abf9145499.tar.gz gnupg-599ad21104e622acbd1230d90d6a23abf9145499.zip | |
gpgscm: Free memory backing string ports.
* tests/gpgscm/scheme.c (finalize_cell): Free memory backing string
ports.
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, 2 insertions, 0 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 4c28230f1..5f2f205da 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -1390,6 +1390,8 @@ static void finalize_cell(scheme *sc, pointer a) { if(a->_object._port->kind&port_file && a->_object._port->rep.stdio.closeit) { port_close(sc,a,port_input|port_output); + } else if (a->_object._port->kind & port_srfi6) { + sc->free(a->_object._port->rep.string.start); } sc->free(a->_object._port); } else if(is_foreign_object(a)) { |