From: simonmar <unknown>
Date: Mon, 19 Mar 2001 16:17:44 +0000 (+0000)
Subject: [project @ 2001-03-19 16:17:44 by simonmar]
X-Git-Tag: Approximately_9120_patches~2377
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ff39a56b7750b81e93a0e4e40796cb048efb08b5;p=ghc-hetmet.git

[project @ 2001-03-19 16:17:44 by simonmar]
exprIsAtom shouldn't return True for an SCC.
---

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 1fa614a..6905cb7 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -315,6 +315,7 @@ exprIsAtom :: CoreExpr -> Bool
 exprIsAtom (Var v)    = True	-- primOpIsDupable?
 exprIsAtom (Lit lit)  = True
 exprIsAtom (Type ty)  = True
+exprIsAtom (Note (SCC _) e) = False
 exprIsAtom (Note _ e) = exprIsAtom e
 exprIsAtom other      = False
 \end{code}