Changeset 9947


Ignore:
Timestamp:
Jul 10, 2008, 8:58:28 AM (11 years ago)
Author:
gb
Message:

Do %TCR-INTERRUPT via trap.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-lisp-threads.lisp

    r9578 r9947  
    341341  ;; When a thread dies, it should try to clear its interrupt-pending
    342342  ;; flag.
    343   (or (not (eql 0 (%fixnum-ref tcr target::tcr.interrupt-pending)))
    344       (with-macptrs (tcrp)
    345         (%setf-macptr-to-object tcrp tcr)
    346         (ff-call
    347          (%kernel-import target::kernel-import-raise-thread-interrupt)
    348          :address tcrp
    349          :signed-fullword))))
     343  (if (eql 0 (%fixnum-ref tcr target::tcr.interrupt-pending))
     344    (%%tcr-interrupt tcr)
     345    0))
    350346
    351347
Note: See TracChangeset for help on using the changeset viewer.