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