common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

0.9.4.71:

Browse source 
Fix disassembly printing for mips break instructions.
This commit is contained in:
Thiemo Seufer 2005-09-16 13:22:08 +00:00
parent 40b6c8b103
commit 85483d976c
2 changed files with 28 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
src/compiler/mips/insts.lisp
View file

@ -222,10 +222,10 @@
(sb!disassem:define-instruction-format
(break 32 :default-printer
'(:name :tab code (:unless (:constant 0) subcode)))
'(:name :tab code (:unless (:constant 0) ", " subcode)))
(op :field (byte 6 26) :value special-op)
(code :field (byte 10 16))
(subcode :field (byte 10 6) :value 0)
(subcode :field (byte 10 6))
(funct :field (byte 6 0) :value #b001101))
(sb!disassem:define-instruction-format
@ -1062,35 +1062,35 @@
(defun break-control (chunk inst stream dstate)
(declare (ignore inst))
(flet ((nt (x) (if stream (sb!disassem:note x dstate))))
(case (break-code chunk dstate)
(#.halt-trap
(nt "Halt trap"))
(#.pending-interrupt-trap
(nt "Pending interrupt trap"))
(#.error-trap
(nt "Error trap")
(sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
(#.cerror-trap
(nt "Cerror trap")
(sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
(#.breakpoint-trap
(nt "Breakpoint trap"))
(#.fun-end-breakpoint-trap
(nt "Function end breakpoint trap"))
(#.after-breakpoint-trap
(nt "After breakpoint trap"))
(#.pseudo-atomic-trap
(nt "Pseudo atomic trap"))
(#.object-not-list-trap
(nt "Object not list trap"))
(#.object-not-instance-trap
(nt "Object not instance trap"))
)))
(when (= (break-code chunk dstate) 0)
(case (break-subcode chunk dstate)
(#.halt-trap
(nt "Halt trap"))
(#.pending-interrupt-trap
(nt "Pending interrupt trap"))
(#.error-trap
(nt "Error trap")
(sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
(#.cerror-trap
(nt "Cerror trap")
(sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
(#.breakpoint-trap
(nt "Breakpoint trap"))
(#.fun-end-breakpoint-trap
(nt "Function end breakpoint trap"))
(#.after-breakpoint-trap
(nt "After breakpoint trap"))
(#.pseudo-atomic-trap
(nt "Pseudo atomic trap"))
(#.object-not-list-trap
(nt "Object not list trap"))
(#.object-not-instance-trap
(nt "Object not instance trap"))))))
(define-instruction break (segment code &optional (subcode 0))
(:declare (type (unsigned-byte 10) code subcode))
(:printer break ((op special-op) (funct #b001101))
'(:name :tab code (:unless (:constant 0) subcode))
'(:name :tab code (:unless (:constant 0) ", " subcode))
:control #'break-control)
:pinned
(:cost 0)

2
version.lisp-expr
View file

@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.9.4.70"
"0.9.4.71"