projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimize raw-instance-slots-equalp for #-complex-float-vops.
[sbcl.git]
/
src
/
compiler
/
float-tran.lisp
diff --git
a/src/compiler/float-tran.lisp
b/src/compiler/float-tran.lisp
index
51cf1dd
..
2ae1e33
100644
(file)
--- a/
src/compiler/float-tran.lisp
+++ b/
src/compiler/float-tran.lisp
@@
-1229,9
+1229,10
@@
:complexp :real
:low (numeric-type-low type)
:high (numeric-type-high type))))))
:complexp :real
:low (numeric-type-low type)
:high (numeric-type-high type))))))
-#-sb-xc-host ; (See CROSS-FLOAT-INFINITY-KLUDGE.)
+
(defoptimizer (realpart derive-type) ((num))
(one-arg-derive-type num #'realpart-derive-type-aux #'realpart))
(defoptimizer (realpart derive-type) ((num))
(one-arg-derive-type num #'realpart-derive-type-aux #'realpart))
+
(defun imagpart-derive-type-aux (type)
(let ((class (numeric-type-class type))
(format (numeric-type-format type)))
(defun imagpart-derive-type-aux (type)
(let ((class (numeric-type-class type))
(format (numeric-type-format type)))
@@
-1253,7
+1254,7
@@
:complexp :real
:low (numeric-type-low type)
:high (numeric-type-high type))))))
:complexp :real
:low (numeric-type-low type)
:high (numeric-type-high type))))))
-#-sb-xc-host ; (See CROSS-FLOAT-INFINITY-KLUDGE.)
+
(defoptimizer (imagpart derive-type) ((num))
(one-arg-derive-type num #'imagpart-derive-type-aux #'imagpart))
(defoptimizer (imagpart derive-type) ((num))
(one-arg-derive-type num #'imagpart-derive-type-aux #'imagpart))