From: simonmar <unknown>
Date: Wed, 8 Mar 2000 15:58:30 +0000 (+0000)
Subject: [project @ 2000-03-08 15:58:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~5044
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54e6a4e1fc2313e5462973d8988b714efd6ab9e5;p=ghc-hetmet.git

[project @ 2000-03-08 15:58:30 by simonmar]
okToUnfoldInHiFile: look at args of a Con for litlits.
---

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 18caca2..a7a23a3 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -498,7 +498,7 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e
     go (Var _)                = True
     go (Con (Literal lit) _)  = not (isLitLitLit lit)
     go (Con (PrimOp op) args) = okToUnfoldPrimOp op && all go args
-    go (Con con args)         = True -- con args are always atomic
+    go (Con con args)         = all go args -- might be litlits in here
     go (App fun arg)          = go fun && go arg
     go (Lam _ body)           = go body
     go (Let binds body)       = and (map go (body :rhssOfBind binds))