Ignore:
Timestamp:
Oct 24, 2008, 3:39:58 AM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/ppc-callback-support.lisp

    r6948 r11218  
    2626;;; which calls a subprim in the lisp kernel.)
    2727#-(and linuxppc-target poweropen-target)
    28 (defun make-callback-trampoline (index &optional monitor-exception-ports)
    29   (declare (ignorable monitor-exception-ports))
     28(defun make-callback-trampoline (index &optional info)
     29  (declare (ignorable info))
    3030  (macrolet ((ppc-lap-word (instruction-form)
    3131               (uvref (uvref (compile nil `(lambda (&lap 0) (ppc-lap-function () ((?? 0)) ,instruction-form))) 0) #+ppc32-host 0 #+ppc64-host 1)))
     
    3434             #.(subprim-name->offset '.SPeabi-callback)
    3535             #-eabi-target
    36              (if monitor-exception-ports
    37                #.(subprim-name->offset '.SPpoweropen-callbackX)
    38                #.(subprim-name->offset '.SPpoweropen-callback)))
     36             #.(subprim-name->offset '.SPpoweropen-callback))
    3937           (p (%allocate-callback-pointer 12)))
    4038      (setf (%get-long p 0) (logior (ldb (byte 8 16) index)
     
    5755;;; TOC word in the transfer vector to store the callback index.
    5856#+(and linuxppc-target poweropen-target)
    59 (defun make-callback-trampoline (index &optional monitor-exception-ports)
    60   (declare (ignorable monitor-exception-ports))
     57(defun make-callback-trampoline (index &optional info)
     58  (declare (ignorable info))
    6159  (let* ((p (%allocate-callback-pointer 16)))
    6260    (setf (%%get-unsigned-longlong p 0) #.(subprim-name->offset '.SPpoweropen-callback)
Note: See TracChangeset for help on using the changeset viewer.