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

Replace use of malloc in string ports with a heap-allocated bytevector.

Browse source 
Without this, if SEXP_USE_FINALIZERS=0, constructing output string ports
without closing them would leak memory.  SEXP_USE_FINALIZERS=0 still
requires caution when working with file-backed ports.
This commit is contained in:
Alex Shinn 2015-07-04 16:54:25 +09:00
parent 841bf95509
commit 2a203e9ff5
1 changed files with 19 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
sexp.c
View file

@ -163,15 +163,6 @@ sexp sexp_finalize_port (sexp ctx, sexp self, sexp_sint_t n, sexp 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)
/* output string ports have list cookies */
&& (sexp_nullp(sexp_port_cookie(port)) || sexp_pairp(sexp_port_cookie(port)))
#if !SEXP_USE_STRING_STREAMS
&& !sexp_port_customp(port)
#endif
)
free(sexp_port_buf(port));
sexp_port_offset(port) = 0;
sexp_port_size(port) = 0;
}
@ -1578,7 +1569,7 @@ int sexp_buffered_flush (sexp ctx, sexp p, int forcep) {
} else { /* string port */
tmp = sexp_c_string(ctx, sexp_port_buf(p), off);
if (tmp && sexp_stringp(tmp)) {
sexp_push(ctx, sexp_port_cookie(p), tmp);
sexp_push(ctx, sexp_cdr(sexp_port_cookie(p)), tmp);
sexp_port_offset(p) = 0;
res = 0;
} else {
@ -1604,17 +1595,23 @@ sexp sexp_open_input_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp str) {
}
sexp sexp_open_output_string_op (sexp ctx, sexp self, sexp_sint_t n) {
sexp res = sexp_make_output_port(ctx, NULL, SEXP_FALSE);
if (sexp_exceptionp(res)) return res;
sexp_port_buf(res) = (char*) sexp_malloc(SEXP_PORT_BUFFER_SIZE);
if (!sexp_port_buf(res)) {
res = sexp_global(ctx, SEXP_G_OOM_ERROR);
sexp_gc_var1(res);
sexp_gc_preserve1(ctx, res);
res = sexp_make_output_port(ctx, NULL, SEXP_FALSE);
if (!sexp_exceptionp(res)) {
sexp_port_cookie(res) = sexp_cons(ctx, SEXP_FALSE, SEXP_NULL);
sexp_car(sexp_port_cookie(res)) =
sexp_make_bytes(ctx, sexp_make_fixnum(SEXP_PORT_BUFFER_SIZE), SEXP_VOID);
if (sexp_exceptionp(sexp_car(sexp_port_cookie(res)))) {
res = sexp_car(sexp_port_cookie(res));
} else {
sexp_port_buf(res) = sexp_bytes_data(sexp_car(sexp_port_cookie(res)));
sexp_port_size(res) = SEXP_PORT_BUFFER_SIZE;
sexp_port_offset(res) = 0;
sexp_port_cookie(res) = SEXP_NULL;
sexp_port_binaryp(res) = 0;
}
}
sexp_gc_release1(ctx);
return res;
}
@ -1627,9 +1624,9 @@ sexp sexp_get_output_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp out) {
sexp_gc_preserve3(ctx, ls, rev, tmp);
if (sexp_port_offset(out) > 0) {
tmp = sexp_c_string(ctx, sexp_port_buf(out), sexp_port_offset(out));
rev = sexp_cons(ctx, tmp, sexp_port_cookie(out));
rev = sexp_cons(ctx, tmp, sexp_cdr(sexp_port_cookie(out)));
} else {
rev = sexp_port_cookie(out);
rev = sexp_cdr(sexp_port_cookie(out));
}
ls = sexp_reverse(ctx, rev);
res = SEXP_FALSE;