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

[Win32] Fix process listing (with thread support).

Browse source
This commit is contained in:
mgoffioul 2006-09-04 13:46:07 +00:00
parent 8201537dbf
commit 60e733691e
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -28,6 +28,8 @@ ECL 1.0:
- There was a problem with the variable capture when creating accessors
methods for classes.
- [Win32] Processes are now correctly listed with MP:ALL-PROCESSES (M. Goffioul)
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

2
src/c/threads_win32.d
View file

@ -229,7 +229,7 @@ mp_process_enable(cl_object process)
FEerror("Cannot enable the running process ~A.", 1, process);
THREAD_OP_LOCK();
code = (HANDLE)CreateThread(NULL, 0, thread_entry_point, process, 0, &threadId);
if (!code) {
if (code) {
/* If everything went ok, add the thread to the list. */
cl_core.processes = CONS(process, cl_core.processes);
}