Ignore:
Timestamp:
Dec 11, 2007, 4:49:37 AM (13 years ago)
Author:
rme
Message:

The x86 ports don't use a shared closure trampoline.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/xdump/xx8632-fasload.lisp

    r7332 r7882  
    1010  (require "XFASLOAD" "ccl:xdump;xfasload"))
    1111
    12 ;;; xxx
    13 (defun xload-x8632-lap-code (instructions)
    14   (let* ((f (%define-x8632-lap-function nil instructions)))
    15     (if (= (typecode f) target::subtag-xfunction)
    16       (uvref f 0)
    17       f)))
    18 
    19 ;;; xxx
    2012(defparameter *x8632-macro-apply-code*
    2113  #xc9cd0000000000)         ;uuo-error-call-macro-or-special-operator
     
    2315(defun x8632-fixup-macro-apply-code ()
    2416  *x8632-macro-apply-code*)
    25 
    26 (defparameter *x8632-closure-trampoline-code*
    27   (xload-x8632-lap-code '((jmp-subprim  .SPcall-closure))))
    2817
    2918;;; For now, do this with a UUO so that the kernel can catch it.
     
    4231   :name  :darwinx8632
    4332   :macro-apply-code-function 'x8632-fixup-macro-apply-code
    44    :closure-trampoline-code *x8632-closure-trampoline-code*
     33   :closure-trampoline-code nil
    4534   :udf-code *x8632-udf-code*
    4635   :default-image-name "ccl:ccl;x86-boot32.image"
Note: See TracChangeset for help on using the changeset viewer.