Ignore:
Timestamp:
Dec 8, 2008, 5:15:49 PM (13 years ago)
Author:
gz
Message:

r11450 from trunk: *quit-interrupt-hook*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-misc.lisp

    r11164 r11482  
    622622
    623623
    624 (defx86lapfunction break-event-pending-p ()
     624(defx86lapfunction pending-user-interrupt ()
    625625  (xorq (% imm0) (% imm0))
    626   (ref-global x8664::intflag imm1)
     626  (ref-global x8664::intflag arg_z)
     627  ;; If another signal happens now, it will get ignored, same as if it happened
     628  ;; before whatever signal is in arg_z.  But then these are async signals, so
     629  ;; who can be sure it didn't actually happen just before...
    627630  (set-global imm0 x8664::intflag)
    628   (testq (% imm1) (% imm1))
    629   (setne (%b imm0))
    630   (andl ($ x8664::t-offset) (%l imm0))
    631   (lea (@ (target-nil-value) (% imm0)) (% arg_z))
    632631  (single-value-return))
    633632
Note: See TracChangeset for help on using the changeset viewer.