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

Added c/ffi/{mmap,cdata}.d to the list of files compiled by Windows.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-06-24 23:26:15 +02:00
parent 8638796be0
commit 399687c5aa
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
msvc/c/Makefile
View file

@ -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 \

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

@ -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
}