X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Ffloat.lisp;h=67445d518be0f8af62a3a55fe5e2c7927837392a;hb=70c40b1892a606163d0f60ac7b20093724e8e5e5;hp=649c922d8b53a412c7c6974a1517d1dbedce63e9;hpb=4d5efa2b046c8d041b054452a1696ca53423a912;p=sbcl.git

diff --git a/src/compiler/hppa/float.lisp b/src/compiler/hppa/float.lisp
index 649c922..67445d5 100644
--- a/src/compiler/hppa/float.lisp
+++ b/src/compiler/hppa/float.lisp
@@ -613,9 +613,9 @@
                       (loadw y nfp (tn-offset stack-tn))))))))
   (frob %unary-round single-reg single-float fcnvfx "inline float round")
   (frob %unary-round double-reg double-float fcnvfx "inline float round")
-  (frob %unary-truncate single-reg single-float fcnvfxt
+  (frob %unary-truncate/single-float single-reg single-float fcnvfxt
     "inline float truncate")
-  (frob %unary-truncate double-reg double-float fcnvfxt
+  (frob %unary-truncate/double-float double-reg double-float fcnvfxt
     "inline float truncate"))
 
 (define-vop (make-single-float)