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

si_copy_file() did not open files in binary mode (Windows)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-04 17:15:14 +01:00
parent 9d27733db1
commit 88d0b20b3c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixfsys.d
View file

@ -1085,9 +1085,9 @@ si_copy_file(cl_object orig, cl_object dest)
orig = si_coerce_to_filename(orig);
dest = si_coerce_to_filename(dest);
ecl_disable_interrupts();
in = fopen((char*)orig->base_string.self, "r");
in = fopen((char*)orig->base_string.self, OPEN_R);
if (in) {
out = fopen((char*)dest->base_string.self, "w");
out = fopen((char*)dest->base_string.self, OPEN_W);
if (out) {
unsigned char *buffer = ecl_alloc_atomic(1024);
cl_index size;