diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-03 16:38:01 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-06 09:47:33 +0100 |
| commit | 7db26e00a945532e2ab6be50a8ffe43a6a5917a8 (patch) | |
| tree | 0e9ff0e8eb2bae24e7fd16cfa80bcb6b9e404ab9 /compiler/cmm | |
| parent | cf3fb956e9e370a8daa5c72fd0695e3c030d834d (diff) | |
| download | haskell-7db26e00a945532e2ab6be50a8ffe43a6a5917a8.tar.gz | |
comment
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmOpt.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs index 2e3da5ca98..09cbf5045d 100644 --- a/compiler/cmm/CmmOpt.hs +++ b/compiler/cmm/CmmOpt.hs @@ -605,6 +605,11 @@ cmmMachOpFoldM platform mop [x, (CmmLit (CmmInt n _))] Just (cmmMachOpFold platform (MO_S_Shr rep) [x3, CmmLit (CmmInt p rep)]) _ -> Nothing +-- ToDo (#7116): optimise floating-point multiplication, e.g. x*2.0 -> x+x +-- Unfortunately this needs a unique supply because x might not be a +-- register. See #2253 (program 6) for an example. + + -- Anything else is just too hard. cmmMachOpFoldM _ _ _ = Nothing |