0.8.9.38:

	Ignore some SPARC variables

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 4fe9250..801be79 100644 (file)
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -130,6 +130,7 @@ about function addresses and register values.")
         (rd (ldb (byte 5 25) word))
         (immed-p (not (zerop (ldb (byte 1 13) word))))
         (immed-val (sign-extend-immed-value (ldb (byte 13 0) word))))
+    (declare (ignore immed-p))
     ;; Only the value of format and rd are guaranteed to be correct
     ;; because the disassembler is trying to print out the value of a
     ;; register.  The other values may not be right.
@@ -207,6 +208,7 @@ about function addresses and register values.")
                          dstate)))))))
 
 (defun handle-jmpl-inst (rs1 immed-val rd dstate)
+  (declare (ignore rd))
   (let* ((sethi (assoc rs1 *note-sethi-inst*)))
     (when sethi
       ;; RS1 was used in a SETHI instruction.  Assume that

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)

diff --git a/version.lisp-expr b/version.lisp-expr
index 3e76e30..adb5777 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.9.37"
+"0.8.9.38"