Changeset 11218 for trunk/source/level-1/ppc-callback-support.lisp
- Timestamp:
- Oct 24, 2008, 3:39:58 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/ppc-callback-support.lisp
r6948 r11218 26 26 ;;; which calls a subprim in the lisp kernel.) 27 27 #-(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)) 30 30 (macrolet ((ppc-lap-word (instruction-form) 31 31 (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) 35 35 #-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)) 39 37 (p (%allocate-callback-pointer 12))) 40 38 (setf (%get-long p 0) (logior (ldb (byte 8 16) index) … … 57 55 ;;; TOC word in the transfer vector to store the callback index. 58 56 #+(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)) 61 59 (let* ((p (%allocate-callback-pointer 16))) 62 60 (setf (%%get-unsigned-longlong p 0) #.(subprim-name->offset '.SPpoweropen-callback)
Note: See TracChangeset
for help on using the changeset viewer.