From 2c778cc22b102bf6ea6b442d5b55540cbce25b5e Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 12 Jan 2000 19:48:14 +0000
Subject: [PATCH] Fix for the disassembly of format-3-shift-reg instructions;
 from Raymond Toy.

---
 compiler/sparc/insts.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 5ca8b2047..10a0fe3e8 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.22 1999/11/18 14:25:40 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.23 2000/01/12 19:48:14 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -321,7 +321,7 @@
   (i     :field (byte 1 13) :value 0)
   (x     :field (byte 1 12))
   (asi   :field (byte 7 5) :value 0)
-  (rs2   :field (byte 5 0)))
+  (rs2   :field (byte 5 0) :type 'reg))
 
 (disassem:define-instruction-format
     (format-3-shift-immed 32 :default-printer f3-printer)
-- 
GitLab