Skip to content
Snippets Groups Projects
Commit e50d75bc authored by Raymond Toy's avatar Raymond Toy
Browse files

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.
parent e741d305
No related branches found
No related tags found
No related merge requests found
...@@ -1061,7 +1061,7 @@ ...@@ -1061,7 +1061,7 @@
;; constraint is that the pieces must be small enough to fit in the ;; constraint is that the pieces must be small enough to fit in the
;; desired float format without rounding. ;; desired float format without rounding.
(frob %single-float %%single-float 12 1f0) (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) (macrolet ((frob (name translate inst to-sc to-type)
......
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