From 9aacb50d50b2a0d8324a196e13d420aa7e99bb71 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 21 Mar 2002 19:38:49 +0000
Subject: [PATCH] Branch offsets are really 22 bits long, not 13.  (Bug noted
 by Christophe Rhodes.  It causes SBCL to fail to disassemble sort-vector, but
 is ok in CMUCL.)

---
 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 21a48225a..cbc793207 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.32 2001/06/25 16:49:13 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.33 2002/03/21 19:38:49 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -379,7 +379,7 @@ about function addresses and register values.")
 (disassem:define-argument-type relative-label
   :sign-extend t
   :use-label #'(lambda (value dstate)
-		 (declare (type (signed-byte 13) value)
+		 (declare (type (signed-byte 22) value)
 			  (type disassem:disassem-state dstate))
 		 (+ (ash value 2) (disassem:dstate-cur-addr dstate))))
 
-- 
GitLab