Skip to content
Snippets Groups Projects
Commit eadc9825 authored by toy's avatar toy
Browse files

In the deftransform for %unary-ftruncate, the bounds could be lists

which we weren't handling.  Use bound-value to get the value.

This probably still needs some work.
parent 6ff031b6
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.89 2003/07/02 21:45:33 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.90 2003/07/03 17:13:30 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -126,8 +126,8 @@ ...@@ -126,8 +126,8 @@
(macrolet ((frob (ftype func) (macrolet ((frob (ftype func)
`(deftransform %unary-ftruncate ((x) (,ftype)) `(deftransform %unary-ftruncate ((x) (,ftype))
(let* ((x-type (continuation-type x)) (let* ((x-type (continuation-type x))
(lo (numeric-type-low x-type)) (lo (bound-value (numeric-type-low x-type)))
(hi (numeric-type-high x-type)) (hi (bound-value (numeric-type-high x-type)))
(limit-lo (- (ash 1 #-sparc-v9 31 #+sparc-v9 63))) (limit-lo (- (ash 1 #-sparc-v9 31 #+sparc-v9 63)))
(limit-hi (ash 1 #-sparc-v9 31 #+sparc-v9 63))) (limit-hi (ash 1 #-sparc-v9 31 #+sparc-v9 63)))
(if (and (numberp lo) (numberp hi) (if (and (numberp lo) (numberp hi)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment