X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Ffloat.lisp;h=41343826e368e47930f9c5b9ce283cca3ea5899c;hb=12b1dae1a1ed90c6ffe4d958f1281c1c04a8e89b;hp=6ed495cee430d90513be7fc32f252b6c78da0284;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/compiler/alpha/float.lisp b/src/compiler/alpha/float.lisp
index 6ed495c..4134382 100644
--- a/src/compiler/alpha/float.lisp
+++ b/src/compiler/alpha/float.lisp
@@ -573,8 +573,8 @@
                   (current-nfp-tn vop))))
           (inst excb)
           ))))
-  (frob %unary-truncate single-reg single-float cvttq/c_sv t)
-  (frob %unary-truncate double-reg double-float cvttq/c_sv)
+  (frob %unary-truncate/single-float single-reg single-float cvttq/c_sv t)
+  (frob %unary-truncate/double-float double-reg double-float cvttq/c_sv)
   (frob %unary-round single-reg single-float cvttq_sv t)
   (frob %unary-round double-reg double-float cvttq_sv))