diff options
| author | simonmar <unknown> | 2002-01-03 11:45:06 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-01-03 11:45:06 +0000 |
| commit | 6009d77ae17f1b03e7ed208b40e65d1117544050 (patch) | |
| tree | 078f03a45e45b0901543866d506a6e259569fb1b /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | beaf0404918eae2faf8a1783009a601f81984ac7 (diff) | |
| download | haskell-6009d77ae17f1b03e7ed208b40e65d1117544050.tar.gz | |
[project @ 2002-01-03 11:45:06 by simonmar]
Fix for previous commit: use the SRT on the top-level constructor when
deciding whether it has any CAF references, since not all top-level
bindings have CgInfo pinned on.
Diffstat (limited to 'ghc/compiler/codeGen/CodeGen.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index c9d35229c0..b7f01cbc0b 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -233,11 +233,10 @@ cgTopRhs :: Id -> StgRhs -> SRT -> FCode (Id, CgIdInfo) -- It's already been globalised if necessary cgTopRhs bndr (StgRhsCon cc con args) srt - = forkStatics (cgTopRhsCon bndr con args) + = forkStatics (cgTopRhsCon bndr con args srt) cgTopRhs bndr (StgRhsClosure cc bi fvs upd_flag args body) srt - = -- There should be no free variables - ASSERT(null fvs) + = ASSERT(null fvs) -- There should be no free variables let lf_info = mkClosureLFInfo bndr TopLevel [{-no fvs-}] upd_flag args in |