0.8.9.38:

[sbcl.git] / src / compiler / sparc / move.lisp

diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp
index 4ff9eb5..3ecd207 100644 (file)
--- a/src/compiler/sparc/move.lisp
+++ b/src/compiler/sparc/move.lisp
@@ -232,8 +232,7 @@
   (:generator 20
     (move x arg)
     (let ((done (gen-label))
-         (one-word (gen-label))
-         (initial-alloc (pad-data-block (1+ bignum-digits-offset))))
+         (one-word (gen-label)))
       (inst sra temp x n-positive-fixnum-bits)
       (inst cmp temp)
       (inst b :eq done)