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