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

run-program: fix :error :output on windows

Browse source 
The file descriptor for the error output in the parent process was
set to the wrong value.
This commit is contained in:
Marius Gerbershagen 2019-08-25 10:17:18 +02:00
parent 24c93e1537
commit 14a94c2b0e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/unixsys.d
View file

@ -431,7 +431,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. */
parent_error = _open_osfhandle((intptr_t)child_stderr, _O_RDONLY);
parent_error = dup(parent_read);
}
else
create_descriptor(error, @':output', &child_stderr, &parent_error);