Changeset 13879

Timestamp:

Jun 24, 2010, 4:38:17 AM (14 years ago)

Author:

Gary Byers

Message:

It'd help if I checked this in ...

Define *PRE-GC-NOTIFICATION-HOOK*.

Call *PRE-GC-NOTIFICATION-HOOK* if it's non-null when the CMAIN callback
gets a SIGTRAP pseudo-interrupt.

File:

• trunk/source/level-1/x86-trap-support.lisp (modified) (2 diffs)

trunk/source/level-1/x86-trap-support.lisp

@@ -358 +358 @@
     (defconstant float-inexact-code
       (conditional-os-constant '(os::FPE_FLTRES os::EXCEPTION_FLT_INEXACT_RESULT)))))
+
+(defparameter *pending-gc-notification-hook* nil)
 
 ;;; UUOs are handled elsewhere.  This should handle all signals other than
@@ -467 +469 @@
                                      :write-p (not (zerop code)))
                      ()
-                     frame-ptr))))
+                     frame-ptr)))
+          ((= signal #$SIGTRAP)
+           (when (= code 0)
+             (let* ((hook *pending-gc-notification-hook*))
+               (declare (special *pending-gc-notification-hook*))
+               (when hook (funcall hook))))))
     skip))