Changeset 11676


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.

Location:
trunk/source
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/PPC32/ppc32-arch.lisp

    r11659 r11676  
    579579  jvm-init
    580580  tcr-frame-ptr
    581   register_cstack
     581  register-xmacptr-dispose-function
    582582  open-debug-output
    583583  get-r-debug
  • trunk/source/compiler/PPC/PPC64/ppc64-arch.lisp

    r11659 r11676  
    649649  jvm-init
    650650  tcr-frame-ptr
    651   register_cstack
     651  register-xmacptr-dispose-function
    652652  open-debug-output
    653653  get-r-debug
  • trunk/source/compiler/X86/X8632/x8632-arch.lisp

    r11659 r11676  
    696696  jvm-init
    697697  tcr-frame-ptr
    698   register_cstack
     698  register-xmacptr-dispose-function
    699699  open-debug-output
    700700  get-r-debug
  • trunk/source/compiler/X86/X8664/x8664-arch.lisp

    r11659 r11676  
    796796  jvm-init
    797797  tcr-frame-ptr
    798   register_cstack
     798  register-xmacptr-dispose-function
    799799  open-debug-output
    800800  get-r-debug
  • 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.