From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Tue, 4 Mar 2003 09:49:22 +0000 (+0000)
Subject: 0.7.13.12:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=178128629005f3b6b8c40bbb510b498d7552f13c;p=sbcl.git

0.7.13.12:
	RDY is a register/register instruction, not a register/immediate
	... now disassembly works better
---

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 7f05f71..174a2fb 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -1213,12 +1213,12 @@ about function addresses and register values.")
 ;; registers.
 (define-instruction rdy (segment dst)
   (:declare (type tn dst))
-  (:printer format-3-immed ((op #b10) (op3 #b101000) (rs1 0) (immed 0))
+  (:printer format-3-reg ((op #b10) (op3 #b101000) (rs1 0) (immed 0))
             '('RD :tab '%Y ", " rd))
   (:dependencies (reads :y) (writes dst))
   (:delay 0)
-  (:emitter (emit-format-3-immed segment #b10 (reg-tn-encoding dst) #b101000
-				 0 0 0)))
+  (:emitter (emit-format-3-reg segment #b10 (reg-tn-encoding dst) #b101000
+			       0 0 0 0)))
 
 (defconstant-eqx wry-printer
   '('WR :tab rs1 (:unless (:constant 0) ", " (:choose immed rs2)) ", " '%Y)
diff --git a/version.lisp-expr b/version.lisp-expr
index 0adeaf6..40c387f 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.13.11"
+"0.7.13.12"