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

Removed unused code.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-10-09 17:22:49 +02:00
parent 1eec497853
commit 5f883a2582
1 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/c/unixint.d
View file

@ -744,26 +744,6 @@ do_interrupt_thread(cl_object process)
ok = 0;
goto EXIT;
}
#if 0
context.ContextFlags = CONTEXT_FULL;
if (!GetThreadContext(thread, &context)) {
FEwin32_error("Unable to query context in thread ~A", 1,
process);
ok = 0;
goto RESUME;
}
# ifdef _AMD64_
trap_address = (void*)context.Rsp;
# endif
# ifdef _X86_
trap_address = (void*)context.Esp;
# endif
process->process.interrupt = Ct;
if (!VirtualProtect(trap_address, 1, guard, &guard)) {
FEwin32_error("Unable to protect memory from thread ~A",
1, process);
ok = 0;
#else
process->process.interrupt = Ct;
if (!VirtualProtect(process->process.env,
sizeof(struct cl_env_struct),
@ -774,7 +754,6 @@ do_interrupt_thread(cl_object process)
1, process);
ok = 0;
}
#endif
RESUME:
if (!QueueUserAPC(wakeup_function, thread, 0)) {
FEwin32_error("Unable to queue APC call to thread ~A",