projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.1.26:
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
02bdfd9
..
260ae43
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-210,7
+210,7
@@
;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
#!+alpha
(set-floating-point-modes :traps '(:overflow
;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
#!+alpha
(set-floating-point-modes :traps '(:overflow
- #!-x86 :underflow
+ #!+alpha :underflow
:invalid
:divide-by-zero))
:invalid
:divide-by-zero))
@@
-289,7
+289,7
@@
instead (which is another name for the same thing)."))
;; disabled by default. Joe User can
;; explicitly enable them if
;; desired.
;; disabled by default. Joe User can
;; explicitly enable them if
;; desired.
- #!-x86 :underflow))
+ #!+alpha :underflow))
;; Clear pseudo atomic in case this core wasn't compiled with
;; support.
;;
;; Clear pseudo atomic in case this core wasn't compiled with
;; support.
;;