From 3e1c50a6f4aaf0317808d7826ba54b4b449844ae Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 28 Nov 2007 11:14:17 +0000 Subject: [PATCH] add comment --- compiler/cmm/CmmOpt.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs index 7c88add..379d7a2 100644 --- a/compiler/cmm/CmmOpt.hs +++ b/compiler/cmm/CmmOpt.hs @@ -343,6 +343,8 @@ cmmMachOpFold cmp [CmmMachOp conv [x], CmmLit (CmmInt i _)] maybe_conversion (MO_U_Conv from _) = Just (from, narrowU) maybe_conversion (MO_S_Conv from _) | not (isFloatingRep from) = Just (from, narrowS) + -- don't attempt to apply this optimisation when the source + -- is a float; see #1916 maybe_conversion _ = Nothing maybe_comparison (MO_U_Gt _) rep = Just (MO_U_Gt rep) -- 1.7.10.4