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

Moved some comments

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-03-31 11:17:08 +02:00
parent 57b24d5807
commit 108dffc08e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/unixint.d
View file

@ -560,8 +560,9 @@ handler_fn_protype(process_interrupt_handler, int sig, siginfo_t *siginfo, void
return;
signal_object = pop_signal(the_env);
errno = old_errno;
if (signal_object != Cnil)
if (signal_object != Cnil) {
handle_or_queue(the_env, signal_object, sig);
}
}
#endif
@ -870,6 +871,8 @@ ecl_interrupt_process(cl_object process, cl_object function)
* - In POSIX systems it sends a user level interrupt to
* the thread, which then decides how to act.
*/
/* If FUNCTION is NIL, we just intend to wake up the
* process from some call to ecl_musleep() */
if (!Null(function)) {
/* Trivial spinlock to ensure that the process is past
* the section where it establishes a CATCH */
@ -878,8 +881,6 @@ ecl_interrupt_process(cl_object process, cl_object function)
/* And then only care when the process is really active, for
* otherwise the signal will be ignored. */
if (process->process.phase == ECL_PROCESS_ACTIVE) {
/* If FUNCTION is NIL, we just intend to wake up the
* process from some call to ecl_musleep() */
function = si_coerce_to_function(function);
queue_signal(process->process.env, function);
}