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

terminate-process: windows HANDLE isn't fixnum

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-08 14:58:17 +01:00
parent 6e2f3f47b3
commit 62cf64aa86
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/unixsys.d
View file

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