Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing memory leak in string ports found by Lorenzo.

Browse source 
In the future this will be simplified by dropping support for
C string streams and never using malloc for buffers.
This commit is contained in:
Alex Shinn 2012-11-23 11:17:08 +09:00
parent b6ba47c2e3
commit 9ed2f9a27a
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
sexp.c
View file

@ -140,22 +140,16 @@ sexp sexp_finalize_port (sexp ctx, sexp self, sexp_sint_t n, sexp port) {
}
}
#endif
if (sexp_port_stream(port) && ! sexp_port_no_closep(port)) {
if (sexp_port_stream(port) && ! sexp_port_no_closep(port))
/* close the stream */
fclose(sexp_port_stream(port));
/* free the buffer if allocated */
if (sexp_port_buf(port)
&& (sexp_oportp(port)
if (sexp_port_buf(port) && sexp_oportp(port)
#if !SEXP_USE_STRING_STREAMS
|| (sexp_iportp(port) && sexp_truep(sexp_port_cookie(port)))
&& !sexp_port_customp(port)
#endif
)
#if SEXP_USE_STRING_STREAMS
&& !sexp_port_customp(port)
#endif
)
free(sexp_port_buf(port));
}
)
free(sexp_port_buf(port));
}
return res;
}