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

EXT:MMAP did not use its optional argument (Jerry James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-06 22:02:31 +01:00
parent fd8e3a2d76
commit 574f989070
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/ffi/mmap.d
View file

@ -61,6 +61,8 @@
fd = ecl_to_int(si_file_stream_fd(stream));
if (Null(length))
len = ecl_to_unsigned_integer(ecl_file_length(stream));
else
len = ecl_to_unsigned_integer(length);
}
output = si_make_vector(element_type, MAKE_FIXNUM(0), Cnil,
Cnil, Cnil, Cnil);
@ -91,6 +93,8 @@
@':cstream', Ct);
if (Null(length))
length = ecl_file_length(stream);
else
len = ecl_to_unsigned_integer(length);
output = si_make_vector(element_type, length, Cnil,
Cnil, Cnil, Cnil);
cl_read_sequence(2, output, stream);