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

external process: we are using handle, not a pointer

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-08 15:56:55 +01:00
parent ea001f5b63
commit fb0359eda1
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

@ -313,7 +313,7 @@ ecl_waitpid(cl_object pid, cl_object wait)
int ret;
#if defined(ECL_MS_WINDOWS_HOST)
HANDLE *ph = (HANDLE*)ecl_foreign_data_pointer_safe(pid);
ret = TerminateProcess(ph, -1);
ret = TerminateProcess(*ph, -1);
error_encountered = (ret == 0);
#else
ret = kill(ecl_fixnum(pid), Null(force) ? SIGTERM : SIGKILL);