mirror of
git://git.gnupg.org/gnupg.git
synced 2025-01-21 14:47:03 +01:00
gpgscm: Free memory backing string ports.
* tests/gpgscm/scheme.c (finalize_cell): Free memory backing string ports. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
d4ede89981
commit
599ad21104
@ -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)) {
|
||||
|
Loading…
x
Reference in New Issue
Block a user