X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fparms.lisp;h=5d6f495b5678bbe7f21c90dc9c08c7c96f64960f;hb=557df1e8a17c2f4d9f97752cb8476805e79f0073;hp=8b3f6157ae1dca3c9edbf91e05cab20032a74c39;hpb=b4488369e16bcc093eedadc4f75dbc6ef90bc931;p=sbcl.git

diff --git a/src/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp
index 8b3f615..5d6f495 100644
--- a/src/compiler/mips/parms.lisp
+++ b/src/compiler/mips/parms.lisp
@@ -52,6 +52,7 @@
 (def!constant float-overflow-trap-bit (ash 1 2))
 (def!constant float-divide-by-zero-trap-bit (ash 1 3))
 (def!constant float-invalid-trap-bit (ash 1 4))
+(def!constant float-unimplemented-trap-bit (ash 1 5))
 
 (def!constant float-round-to-nearest 0)
 (def!constant float-round-to-zero 1)
@@ -61,7 +62,7 @@
 (defconstant-eqx float-rounding-mode (byte 2 0) #'equalp)
 (defconstant-eqx float-sticky-bits (byte 5 2) #'equalp)
 (defconstant-eqx float-traps-byte (byte 5 7) #'equalp)
-(defconstant-eqx float-exceptions-byte (byte 5 12) #'equalp)
+(defconstant-eqx float-exceptions-byte (byte 6 12) #'equalp)
 (defconstant-eqx float-condition-bit (ash 1 23) #'equalp)
 (def!constant float-fast-bit (ash 1 24))
 
@@ -127,7 +128,9 @@
   unused
   pseudo-atomic
   object-not-list
-  object-not-instance)
+  object-not-instance
+  single-step-around
+  single-step-before)
 
 (defenum (:prefix trace-table-)
   normal