projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.58:
[sbcl.git]
/
src
/
compiler
/
x86
/
float.lisp
diff --git
a/src/compiler/x86/float.lisp
b/src/compiler/x86/float.lisp
index
a9e8fd5
..
e377010
100644
(file)
--- a/
src/compiler/x86/float.lisp
+++ b/
src/compiler/x86/float.lisp
@@
-388,7
+388,7
@@
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:single-float-type
+ sb!vm:single-float-widetag
sb!vm:single-float-size node)
(with-tn@fp-top(x)
(inst fst (ea-for-sf-desc y))))))
sb!vm:single-float-size node)
(with-tn@fp-top(x)
(inst fst (ea-for-sf-desc y))))))
@@
-402,7
+402,7
@@
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:double-float-type
+ sb!vm:double-float-widetag
sb!vm:double-float-size
node)
(with-tn@fp-top(x)
sb!vm:double-float-size
node)
(with-tn@fp-top(x)
@@
-418,7
+418,7
@@
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:long-float-type
+ sb!vm:long-float-widetag
sb!vm:long-float-size
node)
(with-tn@fp-top(x)
sb!vm:long-float-size
node)
(with-tn@fp-top(x)
@@
-494,8
+494,9
@@
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:complex-single-float-type
- sb!vm:complex-single-float-size node)
+ sb!vm:complex-single-float-widetag
+ sb!vm:complex-single-float-size
+ node)
(let ((real-tn (complex-single-reg-real-tn x)))
(with-tn@fp-top(real-tn)
(inst fst (ea-for-csf-real-desc y))))
(let ((real-tn (complex-single-reg-real-tn x)))
(with-tn@fp-top(real-tn)
(inst fst (ea-for-csf-real-desc y))))
@@
-512,7
+513,7
@@
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:complex-double-float-type
+ sb!vm:complex-double-float-widetag
sb!vm:complex-double-float-size
node)
(let ((real-tn (complex-double-reg-real-tn x)))
sb!vm:complex-double-float-size
node)
(let ((real-tn (complex-double-reg-real-tn x)))
@@
-532,7
+533,7
@@
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
(:note "complex float to pointer coercion")
(:generator 13
(with-fixed-allocation (y
- sb!vm:complex-long-float-type
+ sb!vm:complex-long-float-widetag
sb!vm:complex-long-float-size
node)
(let ((real-tn (complex-long-reg-real-tn x)))
sb!vm:complex-long-float-size
node)
(let ((real-tn (complex-long-reg-real-tn x)))