Ignore:
Timestamp:
Feb 1, 2009, 12:37:53 PM (11 years ago)
Author:
gb
Message:

Lisp-side of user-defined GCable-pointer dispose-functions support:
arch-specific imports table entries, simple wrapper
REGISTER-XMACPTR-DISPOSE-FUNCTION.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r11224 r11676  
    11741174(defstatic *lower-to-upper*  nil)
    11751175
     1176;;; "address" should be the address (as returned by FOREIGN-SYMBOL-ADDRESS)
     1177;;; of a foreign function that accepts a pointer as an argument and does
     1178;;; whatever's needed to dispose of it.  That function can be called from
     1179;;; the GC, so it shouldn't call back into lisp.
     1180(defun register-xmacptr-dispose-function (address)
     1181  (ff-call (%kernel-import target::kernel-import-register-xmacptr-dispose-function)
     1182           :address address
     1183           :int))
    11761184
    11771185
Note: See TracChangeset for help on using the changeset viewer.