Skip to content
Snippets Groups Projects
Commit c362384a authored by rtoy's avatar rtoy
Browse files

Change printer for the unimp/illtrap instruction to print out its data

portion as a hex number so we easily see the header type code more
easily.
parent dd3e6d5d
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.51 2005/02/07 17:27:17 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.52 2005/03/17 22:12:57 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1553,9 +1553,16 @@ about function addresses and register values.")
(nt "Object not instance trap"))
)))
(eval-when (compile load eval)
;; Print Value as a Lisp hex number
(defun hex-data-printer (value stream dstate)
(declare (ignore dstate))
(format stream "#x~X" value)))
(define-instruction unimp (segment data)
(:declare (type (unsigned-byte 22) data))
(:printer format-2-unimp () :default :control #'unimp-control
(:printer format-2-unimp ((data nil :printer #'hex-data-printer))
:default :control #'unimp-control
:print-name #-sparc-v9 'unimp #+sparc-v9 'illtrap)
(:delay 0)
(:emitter (emit-format-2-unimp segment 0 0 0 data)))
......
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