From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 19 Aug 2013 16:56:22 +0000 (+0400)
Subject: Apply a recent optimization more widely.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6581faf740fa9df06484b0b5a3cfd3967536682d;p=sbcl.git

Apply a recent optimization more widely.

FOREIGN-SYMBOL-SAP was missing changing
LEA REG, [#xADDRESS]
to
MOV REG, #xADDRESS
---

diff --git a/src/compiler/x86-64/c-call.lisp b/src/compiler/x86-64/c-call.lisp
index ede3845..192de22 100644
--- a/src/compiler/x86-64/c-call.lisp
+++ b/src/compiler/x86-64/c-call.lisp
@@ -243,7 +243,7 @@
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)
   (:generator 2
-   (inst lea res (make-fixup foreign-symbol :foreign))))
+   (inst mov res (make-fixup foreign-symbol :foreign))))
 
 #!+linkage-table
 (define-vop (foreign-symbol-dataref-sap)