Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

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)