From: simonpj <unknown>
Date: Wed, 14 Mar 2001 15:21:25 +0000 (+0000)
Subject: [project @ 2001-03-14 15:21:25 by simonpj]
X-Git-Tag: Approximately_9120_patches~2410
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=65bc483d27128d434edc876faaa70cfa7f8dd2d3;p=ghc-hetmet.git

[project @ 2001-03-14 15:21:25 by simonpj]
Remove dead code, and fix fvs1 -> fvs2 in coreTopBindsToStg
---

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index b877b76..0bc76d9 100644
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -127,7 +127,7 @@ pairs.
 coreToStg :: DynFlags -> [CoreBind] -> IO [StgBinding]
 coreToStg dflags pgm
   = return pgm'
-  where (env', fvs, pgm') = coreTopBindsToStg emptyVarEnv pgm
+  where (_, _, pgm') = coreTopBindsToStg emptyVarEnv pgm
 
 coreExprToStg :: CoreExpr -> StgExpr
 coreExprToStg expr 
@@ -141,7 +141,7 @@ coreTopBindsToStg
 
 coreTopBindsToStg env [] = (env, emptyFVInfo, [])
 coreTopBindsToStg env (b:bs)
-  = (env2, fvs1, b':bs')
+  = (env2, fvs2, b':bs')
   where
 	-- env accumulates down the list of binds, fvs accumulates upwards
 	(env1, fvs2, b' ) = coreTopBindToStg env fvs1 b
@@ -230,9 +230,6 @@ coreToStgRhs scope_fv_info top (binder, rhs)
   where
     binder_info = lookupFVInfo scope_fv_info binder
 
-bogus_rhs = StgRhsClosure noCCS noBinderInfo [] ReEntrant [] bogus_expr
-bogus_expr = (StgLit (MachInt 1))
-
 mkStgRhs :: TopLevelFlag -> FreeVarsInfo -> StgBinderInfo
 	 -> StgExpr -> StgRhs