From 399687c5aaae99bb8ec2b0768d3418bbc591ae03 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 24 Jun 2011 23:26:15 +0200 Subject: [PATCH] Added c/ffi/{mmap,cdata}.d to the list of files compiled by Windows. --- msvc/c/Makefile | 2 +- src/c/ffi/mmap.d | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/msvc/c/Makefile b/msvc/c/Makefile index ce618d082..b452cd2e9 100755 --- a/msvc/c/Makefile +++ b/msvc/c/Makefile @@ -74,7 +74,7 @@ OBJS = main.obj symbol.obj package.obj list.obj\ write_object.obj write_symbol.obj \ write_array.obj write_list.obj write_code.obj \ write_sse.obj print_unreadable.obj \ - libraries.obj backtrace.obj \ + libraries.obj backtrace.obj mmap.obj cdata.obj \ cos.obj sin.obj tan.obj atan.obj \ cosh.obj sinh.obj tanh.obj \ exp.obj expt.obj log.obj \ diff --git a/src/c/ffi/mmap.d b/src/c/ffi/mmap.d index 127b306f9..e4555d3ce 100644 --- a/src/c/ffi/mmap.d +++ b/src/c/ffi/mmap.d @@ -77,7 +77,7 @@ } #else { - cl_object vector; + cl_object output, vector; if (Null(filename)) { output = si_make_vector(element_type, length, Cnil, Cnil, Cnil, Cnil); @@ -90,13 +90,14 @@ @':external-format', @':default', @':cstream', Ct); if (Null(length)) - length = ecl_file_len(stream); + length = ecl_file_length(stream); output = si_make_vector(element_type, length, Cnil, Cnil, Cnil, Cnil); - si_read_sequence(2, output, stream); + cl_read_sequence(2, output, stream); cl_close(1, stream); } @(return output) +} #endif @) @@ -106,7 +107,7 @@ si_mmap_array(cl_object map) #ifdef HAVE_SYS_MMAN_H @(return cl_car(map)); #else - @(return map) + @(return map); #endif }