mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Using fwrite() to write a string, we miss the right character count

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-09 21:27:19 +01:00
parent acfb2b748f
commit bd7da68ebf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/file.d
View file

@ -2735,7 +2735,7 @@ io_file_read_vector(cl_object strm, cl_object data, cl_index start, cl_index end
cl_elttype t = ecl_array_elttype(data);
if (start >= end)
return start;
if (t == aet_b8 || t == aet_i8 || t == aet_bc) {
if (t == aet_b8 || t == aet_i8) {
if (strm->stream.byte_size == 8) {
void *aux = data->vector.self.bc + start;
return strm->stream.ops->read_byte8(strm, aux, end-start);
@ -2757,7 +2757,7 @@ io_file_write_vector(cl_object strm, cl_object data, cl_index start, cl_index en
cl_elttype t = ecl_array_elttype(data);
if (start >= end)
return start;
if (t == aet_b8 || t == aet_i8 || t == aet_bc) {
if (t == aet_b8 || t == aet_i8) {
if (strm->stream.byte_size == 8) {
void *aux = data->vector.self.fix + start;
return strm->stream.ops->write_byte8(strm, aux, end-start);