Changeset 11218 for trunk/source/level-1/ppc-callback-support.lisp

Timestamp:

Oct 24, 2008, 3:39:58 AM (12 years ago)

Author:

gb

Message:

Drop support for :MONITOR-EXCEPTION-PORTS in MAKE-CALLBACK-ROUTINE; always
use the simplest version of .SPcallback (but worry about eabi/poweropen
differences.)

File:

• trunk/source/level-1/ppc-callback-support.lisp (modified) (3 diffs)

trunk/source/level-1/ppc-callback-support.lisp

@@ -26 +26 @@
 ;;; which calls a subprim in the lisp kernel.)
 #-(and linuxppc-target poweropen-target)
-(defun make-callback-trampoline (index &optional monitor-exception-ports)
-  (declare (ignorable monitor-exception-ports))
+(defun make-callback-trampoline (index &optional info)
+  (declare (ignorable info))
   (macrolet ((ppc-lap-word (instruction-form)
                (uvref (uvref (compile nil `(lambda (&lap 0) (ppc-lap-function () ((?? 0)) ,instruction-form))) 0) #+ppc32-host 0 #+ppc64-host 1)))
@@ -34 +34 @@
              #.(subprim-name->offset '.SPeabi-callback)
              #-eabi-target
-             (if monitor-exception-ports
-               #.(subprim-name->offset '.SPpoweropen-callbackX)
-               #.(subprim-name->offset '.SPpoweropen-callback)))
+             #.(subprim-name->offset '.SPpoweropen-callback))
            (p (%allocate-callback-pointer 12)))
       (setf (%get-long p 0) (logior (ldb (byte 8 16) index)
@@ -57 +55 @@
 ;;; TOC word in the transfer vector to store the callback index.
 #+(and linuxppc-target poweropen-target)
-(defun make-callback-trampoline (index &optional monitor-exception-ports)
-  (declare (ignorable monitor-exception-ports))
+(defun make-callback-trampoline (index &optional info)
+  (declare (ignorable info))
   (let* ((p (%allocate-callback-pointer 16)))
     (setf (%%get-unsigned-longlong p 0) #.(subprim-name->offset '.SPpoweropen-callback)