Ignore:
Timestamp:
Jul 21, 2007, 10:51:36 PM (13 years ago)
Author:
gb
Message:

Allocate callback trampolines via mmap on ppc, too.

File:
1 edited

Legend:

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

    r4260 r6948  
    2121(in-package "CCL")
    2222
    23 ;;; Do nothing; it seems that we can safely be pretty casual about assuming
    24 ;;; that malloc()ed memory is executable on PPC.
    25 (defun reset-callback-storage ())
    2623
    2724
     
    4037               #.(subprim-name->offset '.SPpoweropen-callbackX)
    4138               #.(subprim-name->offset '.SPpoweropen-callback)))
    42            (p (malloc 12)))
     39           (p (%allocate-callback-pointer 12)))
    4340      (setf (%get-long p 0) (logior (ldb (byte 8 16) index)
    4441                                    (ppc-lap-word (lis 11 ??)))   ; unboxed index
     
    6259(defun make-callback-trampoline (index &optional monitor-exception-ports)
    6360  (declare (ignorable monitor-exception-ports))
    64   (let* ((p (malloc 16)))
     61  (let* ((p (%allocate-callback-pointer 16)))
    6562    (setf (%%get-unsigned-longlong p 0) #.(subprim-name->offset '.SPpoweropen-callback)
    6663          (%%get-unsigned-longlong p 8) index)
Note: See TracChangeset for help on using the changeset viewer.