mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

printer: fix the recently optimized printing routines

Browse source 
Overflows of the string buffer were not correctly handled.
This commit is contained in:
Marius Gerbershagen 2018-05-23 22:13:15 +02:00
parent 5f621c6e96
commit 2c135e798b
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -4741,7 +4741,7 @@ writestr_stream(const char *s, cl_object strm)
if (i >= size) {
si_fill_pointer_set(buffer, ecl_make_fixnum(size));
cl_write_string(2, buffer, strm);
si_fill_pointer_set(buffer, ecl_make_fixnum(0));
i = 0;
}
}
si_fill_pointer_set(buffer, ecl_make_fixnum(i));

2
src/c/printer/print_unreadable.d
View file

@ -44,7 +44,7 @@ _ecl_write_addr(void *x, cl_object stream)
if (buffer_ndx >= buffer_size) {
si_fill_pointer_set(buffer, ecl_make_fixnum(buffer_size));
cl_write_string(2, buffer, stream);
si_fill_pointer_set(buffer, ecl_make_fixnum(0));
buffer_ndx = 0;
}
}
}

2
src/c/printer/write_symbol.d
View file

@ -107,7 +107,7 @@ needs_to_be_escaped(cl_object s, cl_object readtable, cl_object print_case)
if (buffer_ndx >= buffer_size) { \
si_fill_pointer_set(buffer, ecl_make_fixnum(buffer_size)); \
cl_write_string(2, buffer, stream); \
si_fill_pointer_set(buffer, ecl_make_fixnum(0)); \
buffer_ndx = 0; \
}
static void