projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.12: Fix slot-value on specialized parameters in SVUC methods
[sbcl.git]
/
src
/
compiler
/
x86
/
float.lisp
diff --git
a/src/compiler/x86/float.lisp
b/src/compiler/x86/float.lisp
index
bde111a
..
f0c0921
100644
(file)
--- a/
src/compiler/x86/float.lisp
+++ b/
src/compiler/x86/float.lisp
@@
-1732,10
+1732,10
@@
(inst mov y stack-temp)))
,@(unless round-p
'((inst fldcw scw)))))))))
(inst mov y stack-temp)))
,@(unless round-p
'((inst fldcw scw)))))))))
- (frob %unary-truncate single-reg single-float nil)
- (frob %unary-truncate double-reg double-float nil)
+ (frob %unary-truncate/single-float single-reg single-float nil)
+ (frob %unary-truncate/double-float double-reg double-float nil)
#!+long-float
#!+long-float
- (frob %unary-truncate long-reg long-float nil)
+ (frob %unary-truncate/long-float long-reg long-float nil)
(frob %unary-round single-reg single-float t)
(frob %unary-round double-reg double-float t)
#!+long-float
(frob %unary-round single-reg single-float t)
(frob %unary-round double-reg double-float t)
#!+long-float
@@
-1779,10
+1779,10
@@
(inst add esp-tn 4)
,@(unless round-p
'((inst fldcw scw)))))))
(inst add esp-tn 4)
,@(unless round-p
'((inst fldcw scw)))))))
- (frob %unary-truncate single-reg single-float nil)
- (frob %unary-truncate double-reg double-float nil)
+ (frob %unary-truncate/single-float single-reg single-float nil)
+ (frob %unary-truncate/double-float double-reg double-float nil)
#!+long-float
#!+long-float
- (frob %unary-truncate long-reg long-float nil)
+ (frob %unary-truncate/long-float long-reg long-float nil)
(frob %unary-round single-reg single-float t)
(frob %unary-round double-reg double-float t)
#!+long-float
(frob %unary-round single-reg single-float t)
(frob %unary-round double-reg double-float t)
#!+long-float