diff options
| author | David Terei <davidterei@gmail.com> | 2011-08-24 18:32:06 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-08-24 18:33:25 -0700 |
| commit | 3d886b2db7e6ade5622feb3f00f4bcc9ed0d8bbb (patch) | |
| tree | 50b52115a820ce3efd1b70c6718bb0f0d6927a10 /compiler/cmm | |
| parent | faa4b3f08f2379a14d163d5485b05bf3ab84c530 (diff) | |
| download | haskell-3d886b2db7e6ade5622feb3f00f4bcc9ed0d8bbb.tar.gz | |
Use double method, not the hacked rational method.
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprCmmExpr.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/cmm/PprCmmExpr.hs b/compiler/cmm/PprCmmExpr.hs index 0614e8e0b0..763034554f 100644 --- a/compiler/cmm/PprCmmExpr.hs +++ b/compiler/cmm/PprCmmExpr.hs @@ -45,6 +45,7 @@ import Outputable import FastString import Data.Maybe +import Numeric ( fromRat ) ----------------------------------------------------------------------------- @@ -191,7 +192,7 @@ pprLit lit = case lit of , ppUnless (rep == wordWidth) $ space <> dcolon <+> ppr rep ] - CmmFloat f rep -> hsep [ rational f, dcolon, ppr rep ] + CmmFloat f rep -> hsep [ double (fromRat f), dcolon, ppr rep ] CmmLabel clbl -> pprCLabel clbl CmmLabelOff clbl i -> pprCLabel clbl <> ppr_offset i CmmLabelDiffOff clbl1 clbl2 i -> pprCLabel clbl1 <> char '-' |