From: simonmar <unknown>
Date: Thu, 26 Aug 2004 11:06:04 +0000 (+0000)
Subject: [project @ 2004-08-26 11:06:04 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1682
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=793fb3bb7838467c091d00eb8f48497fa641f51b;p=ghc-hetmet.git

[project @ 2004-08-26 11:06:04 by simonmar]
Urk, since when has subtraction been associative.  /me dons the pointy
hat.
---

diff --git a/ghc/compiler/cmm/MachOp.hs b/ghc/compiler/cmm/MachOp.hs
index 2d933e0..dcf9bb6 100644
--- a/ghc/compiler/cmm/MachOp.hs
+++ b/ghc/compiler/cmm/MachOp.hs
@@ -506,7 +506,6 @@ isAssociativeMachOp :: MachOp -> Bool
 isAssociativeMachOp mop = 
   case mop of
 	MO_Add r 	-> not (isFloatingRep r)
-	MO_Sub r 	-> not (isFloatingRep r)
 	MO_Mul r	-> not (isFloatingRep r)
 	MO_And _	-> True
 	MO_Or _		-> True