Changeset 7882

Timestamp:

Dec 10, 2007, 8:49:37 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/xdump/xx8632-fasload.lisp (modified) (3 diffs)

branches/ia32/xdump/xx8632-fasload.lisp

@@ -10 +10 @@
   (require "XFASLOAD" "ccl:xdump;xfasload"))
 
-;;; xxx
-(defun xload-x8632-lap-code (instructions)
-  (let* ((f (%define-x8632-lap-function nil instructions)))
-    (if (= (typecode f) target::subtag-xfunction)
-      (uvref f 0)
-      f)))
-
-;;; xxx
 (defparameter *x8632-macro-apply-code*
   #xc9cd0000000000)         ;uuo-error-call-macro-or-special-operator
@@ -23 +15 @@
 (defun x8632-fixup-macro-apply-code ()
   *x8632-macro-apply-code*)
-
-(defparameter *x8632-closure-trampoline-code*
-  (xload-x8632-lap-code '((jmp-subprim  .SPcall-closure))))
 
 ;;; For now, do this with a UUO so that the kernel can catch it.
@@ -42 +31 @@
    :name  :darwinx8632
    :macro-apply-code-function 'x8632-fixup-macro-apply-code
-   :closure-trampoline-code *x8632-closure-trampoline-code*
+   :closure-trampoline-code nil
    :udf-code *x8632-udf-code*
    :default-image-name "ccl:ccl;x86-boot32.image"