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

cleanup: remove dead code

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 14:18:27 +01:00
parent e3b8c3a668
commit dfa4d36384
1 changed files with 1 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/c/unixsys.d
View file

@ -642,29 +642,7 @@ create_descriptor(cl_object stream, cl_object direction,
NULL, /* Current directory */
&st_info, /* Startup info */
&pr_info); /* Process info */
#else /* 1 */
saved_stdin = GetStdHandle(STD_INPUT_HANDLE);
saved_stdout = GetStdHandle(STD_OUTPUT_HANDLE);
saved_stderr = GetStdHandle(STD_ERROR_HANDLE);
SetStdHandle(STD_INPUT_HANDLE, child_stdin);
SetStdHandle(STD_OUTPUT_HANDLE, child_stdout);
SetStdHandle(STD_ERROR_HANDLE, child_stderr);
ZeroMemory(&st_info, sizeof(STARTUPINFO));
st_info.cb = sizeof(STARTUPINFO);
ZeroMemory(&pr_info, sizeof(PROCESS_INFORMATION));
ok = CreateProcess(NULL, command->base_string.self,
NULL, NULL, /* lpProcess/ThreadAttributes */
TRUE, /* Inherit handles (for files) */
/*CREATE_NEW_CONSOLE |*/
0,
NULL, /* Inherit environment */
NULL, /* Current directory */
&st_info, /* Startup info */
&pr_info); /* Process info */
SetStdHandle(STD_INPUT_HANDLE, saved_stdin);
SetStdHandle(STD_OUTPUT_HANDLE, saved_stdout);
SetStdHandle(STD_ERROR_HANDLE, saved_stderr);
#endif /* 1 */
/* Child handles must be closed in the parent process */
/* otherwise the created pipes are never closed */
if (ok) {