Skip to content
Snippets Groups Projects
Commit 9aacb50d authored by toy's avatar toy
Browse files

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.)
parent 3dc4a6aa
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment