From 574f9890703438199098802ab2af730ee3f99bae Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 6 Feb 2012 22:02:31 +0100 Subject: [PATCH] EXT:MMAP did not use its optional argument (Jerry James) --- src/c/ffi/mmap.d | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/c/ffi/mmap.d b/src/c/ffi/mmap.d index f907fc809..2812d7dcb 100644 --- a/src/c/ffi/mmap.d +++ b/src/c/ffi/mmap.d @@ -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);