From 6581faf740fa9df06484b0b5a3cfd3967536682d Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Mon, 19 Aug 2013 20:56:22 +0400 Subject: [PATCH] Apply a recent optimization more widely. FOREIGN-SYMBOL-SAP was missing changing LEA REG, [#xADDRESS] to MOV REG, #xADDRESS --- src/compiler/x86-64/c-call.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4