Skip to content
Snippets Groups Projects
Commit 47d85d1c authored by wlott's avatar wlott
Browse files

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.
parent 1a92a21e
No related branches found
No related tags found
No related merge requests found
;;; -*- Mode: Lisp; Package: MIPS -*- ;;; -*- 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. ;;; A simple dissambler for the MIPS R2000.
;;; ;;;
...@@ -129,7 +129,7 @@ ...@@ -129,7 +129,7 @@
;; Major hack ... ;; Major hack ...
(format stream "~16,8T~A~8,8T~A, ~A, #x~X~48,8T; ~S~%" (format stream "~16,8T~A~8,8T~A, ~A, #x~X~48,8T; ~S~%"
name (register-name rt) (register-name rs) immed name (register-name rt) (register-name rs) immed
(vm:offset-initial-symbol immed))) (vm:offset-static-symbol immed)))
(t (t
(format stream "~16,8T~A~8,8T~A, ~A, #x~X~%" (format stream "~16,8T~A~8,8T~A, ~A, #x~X~%"
name (register-name rt) (register-name rs) immed))))) name (register-name rt) (register-name rs) immed)))))
...@@ -233,7 +233,7 @@ ...@@ -233,7 +233,7 @@
name (register-name rd) (register-name rt) (register-name rs)))) name (register-name rd) (register-name rt) (register-name rs))))
(def-mips-instruction-type (:break-type) (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))) (format stream "~16,8T~A~8,8T#x~X~%" name code)))
(def-mips-instruction-type (:syscall-type) (def-mips-instruction-type (:syscall-type)
......
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