Ignore:
Timestamp:
Dec 2, 2008, 6:11:23 AM (12 years ago)
Author:
gz
Message:

On non-windows platforms, handle SIGTERM by quitting in an orderly fashion. If ccl:*quit-interrupt-hook* is non-nil, it should be a function of no arguments to be invoked before quitting.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r11150 r11450  
    942942
    943943
    944 (defppclapfunction break-event-pending-p ()
     944(defppclapfunction pending-user-interrupt ()
    945945  (ref-global arg_z target::intflag)
     946  ;; If another signal happens now, it will get ignored, same as if it happened
     947  ;; before whatever signal is in arg_z.  But then these are async signals, so
     948  ;; who can be sure it didn't actually happen just before...
    946949  (set-global rzero target::intflag)
    947   (cmpri arg_z 0)
    948   (li arg_z nil)
    949   (beqlr)
    950   (la arg_z target::t-offset arg_z)
    951950  (blr))
    952951
Note: See TracChangeset for help on using the changeset viewer.