scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Check enabled interrupts before calling the handler.

This commit is contained in:
mainzelm 2002-07-18 08:04:34 +00:00
parent e74e23388e
commit 66c2ae5d38
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scsh/sighandlers.scm
View File

@ -196,9 +196,11 @@
(define (deliver-interrupts) (define (deliver-interrupts)
(let lp ((last ((structure-ref sigevents most-recent-sigevent)))) (let lp ((last ((structure-ref sigevents most-recent-sigevent))))
(let ((event ((structure-ref sigevents next-sigevent-set) (let* ((event ((structure-ref sigevents next-sigevent-set)
last full-interrupt-set))) last full-interrupt-set))
(call-interrupt-handler ((structure-ref sigevents sigevent-type) event)) (interrupt ((structure-ref sigevents sigevent-type) event)))
(if (interrupt-enabled? interrupt (enabled-interrupts))
(call-interrupt-handler interrupt))
(lp event)))) (lp event))))
;;; I am ashamed to say the 33 below is completely bogus. ;;; I am ashamed to say the 33 below is completely bogus.