From 47d85d1cf08cefe2d39fa48bf500b820f46691cd Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 24 Feb 1990 17:07:35 +0000 Subject: [PATCH] Changed BREAK instruction to look at only half the field to be consistent with the rest of the world. Changed offset-initial-symbol to offset-static-symbol. --- code/pmax-disassem.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/pmax-disassem.lisp b/code/pmax-disassem.lisp index 012255309..ca3ab2184 100644 --- a/code/pmax-disassem.lisp +++ b/code/pmax-disassem.lisp @@ -1,6 +1,6 @@ ;;; -*- Mode: Lisp; Package: MIPS -*- ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.10 1990/02/21 19:35:32 ch Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.11 1990/02/24 17:07:35 wlott Exp $ ;;; ;;; A simple dissambler for the MIPS R2000. ;;; @@ -129,7 +129,7 @@ ;; Major hack ... (format stream "~16,8T~A~8,8T~A, ~A, #x~X~48,8T; ~S~%" name (register-name rt) (register-name rs) immed - (vm:offset-initial-symbol immed))) + (vm:offset-static-symbol immed))) (t (format stream "~16,8T~A~8,8T~A, ~A, #x~X~%" name (register-name rt) (register-name rs) immed))))) @@ -233,7 +233,7 @@ name (register-name rd) (register-name rt) (register-name rs)))) (def-mips-instruction-type (:break-type) - (let ((code (ldb (byte 20 6) word))) ; MIPS assembler uses (byte 10 16) + (let ((code (ldb (byte 10 16) word))) ; The entire field is (byte 20 6) (format stream "~16,8T~A~8,8T#x~X~%" name code))) (def-mips-instruction-type (:syscall-type) -- GitLab