X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fmips%2Fparms.lisp;h=5d6f495b5678bbe7f21c90dc9c08c7c96f64960f;hb=489bb00dd20898eca10b62d32dd11e5cd79b96a2;hp=c133443987a2054134a82eebee83b1c5fd045307;hpb=b66385e2031fc2cac17dd129df0af400beb48a22;p=sbcl.git

diff --git a/src/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp
index c133443..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))
 
@@ -128,9 +129,6 @@
   pseudo-atomic
   object-not-list
   object-not-instance
-  ;; Stepper actually not implemented on Mips, but these constants
-  ;; are still needed to avoid undefined variable warnings during sbcl
-  ;; build.
   single-step-around
   single-step-before)