Optimize calling asm routines and static foreign functions on x86-64.

[sbcl.git] / src / compiler / x86-64 / macros.lisp

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 2883d28..fe896aa 100644 (file)
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -168,8 +168,7 @@
 ;;; object.
 (defun allocation-tramp (alloc-tn size lowtag)
   (inst push size)
-  (inst lea temp-reg-tn (make-ea :qword
-                            :disp (make-fixup "alloc_tramp" :foreign)))
+  (inst mov temp-reg-tn (make-fixup "alloc_tramp" :foreign))
   (inst call temp-reg-tn)
   (inst pop alloc-tn)
   (when lowtag