Micro-optimize move-immediate on x86-64.

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

diff --git a/src/compiler/x86-64/static-fn.lisp b/src/compiler/x86-64/static-fn.lisp
index ec4809a..1f0c370 100644 (file)
--- a/src/compiler/x86-64/static-fn.lisp
+++ b/src/compiler/x86-64/static-fn.lisp
@@ -91,7 +91,7 @@
                 (inst enter n-word-bytes)))
 
          ,(if (zerop num-args)
-              '(inst xor ecx ecx)
+              '(zeroize ecx)
               `(inst mov ecx ,(fixnumize num-args)))
 
          (note-this-location vop :call-site)