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

fix #378 fail to build on windows

Browse source 
HANDLE and int have different size. use _open_osfhandle.
This commit is contained in:
Fabrizio Fabbri 2017-05-13 15:36:37 +02:00
parent deec5bc13b
commit a229a496f2
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixsys.d
View file

@ -418,9 +418,7 @@ si_spawn_subprocess(cl_object command, cl_object argv, cl_object environ,
&child_stderr, 0, TRUE,
DUPLICATE_SAME_ACCESS);
/* Same for the parent_read and parent_error. */
/* DuplicateHandle(current, parent_read, current, */
/* &parent_error, 0, TRUE, */
/* DUPLICATE_SAME_ACCESS); */
parent_error = _open_osfhandle((intptr_t)child_stderr, _O_RDONLY);
}
else
create_descriptor(error, @':output', &child_stderr, &parent_error);