From f69ea3d7480621d986c40caa07bb9a6140e90cf5 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 13 Apr 2004 20:37:49 +0000 Subject: [PATCH] 0.8.9.38: Ignore some SPARC variables --- src/compiler/sparc/insts.lisp | 2 ++ src/compiler/sparc/move.lisp | 3 +-- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp index 4fe9250..801be79 100644 --- 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 --- 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 --- 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" -- 1.7.10.4