[Git][cmucl/cmucl][master] Fix typo in value.

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
e50d75bc by Raymond Toy at 2016-05-12T19:17:36-07:00
Fix typo in value.

The deftransform for converting an (unsigned-byte 32) to a
double-float was using the wrong type of float constant. It should
have been a double instead of single.

This fix allows sparc to cross-compile itself now.

- - - - -


1 changed file:

- src/compiler/sparc/float.lisp


Changes:

=====================================
src/compiler/sparc/float.lisp
=====================================
--- a/src/compiler/sparc/float.lisp
+++ b/src/compiler/sparc/float.lisp
@@ -1061,7 +1061,7 @@
   ;; constraint is that the pieces must be small enough to fit in the
   ;; desired float format without rounding.
   (frob %single-float %%single-float 12 1f0)
-  (frob %double-float %%double-float 12 1f0))
+  (frob %double-float %%double-float 12 1d0))
 
 
 (macrolet ((frob (name translate inst to-sc to-type)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/e50d75bc77d58824c817e2d6ca0af8ed80902233
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160513/1b4463cc/attachment.html>