X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fmove.lisp;h=3ecd2074ab73d50c2c005da501caf61f1f0efe23;hb=8a8a8922802460741d6f8f6c11d71b1f414cf3a7;hp=4ff9eb552e6f9d4cccd44deccca0c13132dcaebc;hpb=ea775867d48327bf1179eb570263427f28083880;p=sbcl.git

diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp
index 4ff9eb5..3ecd207 100644
--- 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)