File riscv-float-traps.patch of Package sbcl

Index: sbcl-2.6.0/src/compiler/riscv/parms.lisp
===================================================================
--- sbcl-2.6.0.orig/src/compiler/riscv/parms.lisp
+++ sbcl-2.6.0/src/compiler/riscv/parms.lisp
@@ -51,7 +51,7 @@
 (defconstant-eqx float-rounding-mode (byte 3 5) #'equalp)
 (defconstant-eqx float-sticky-bits (byte 5 0) #'equalp)
 ;;;; RISC-V has no explicit floating point traps.
-(defconstant-eqx float-traps-byte (byte 5 0) #'equalp)
+(defconstant-eqx float-traps-byte (byte 0 0) #'equalp)
 (defconstant-eqx float-exceptions-byte (byte 5 0) #'equalp)
 (defconstant float-fast-bit (ash 1 24)) ;; Flush-to-zero mode
 
openSUSE Build Service is sponsored by