Jan Engelhardt
19ffadd425
traps on RISC-V OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/sbcl?expand=0&rev=253
14 lines
634 B
Diff
14 lines
634 B
Diff
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
|
|
|